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SUMMARY 


Computer programs have been developed capable of calculating : 
detailed aerodynamic loadings and pressure distributions acting on 
pitched and rolled supersonic missile configurations which utilize 
bodies of circular or elliptical cross section. The applicable range in 
angle of attack is up to 20°. Mach number may range from 1.3 to about 


3.0. 


The theoretical approach described in this report is based on repre- 
senting the components by three~dimensional Singularities associated with 
Supersonic, linear flow theory. The body with circular cross section is 
modeled by a distribution along the centerline of supersonic line sources 
'Or sinks to account for volume effects and supersonic line doublets to 
account for effects of angle of attack. If the body cross section is 
‘elliptical, supersonic body source panels are placed on the body surface 
accounting for both volume and angle of attack effects. Constant u- 
velocity panels are distributed over the lifting fins or wings to account 
for lift. Fin thickness is modeled by planar source panels. The fins 
may be arbitrarily deflected. In order to account for fin-body inter- 
ference, a shell with constant cross section is placed around the body 
‘over a length equal to the fin rootchord. Constant u-velocity panels are 
distributed on this interference shell to account for lift carryover onto 
the body. Behind the trailing edges, fin-body interference is accounted 
for by the inclusion of the effects of fin trailing vorticity, determined 
from slender-body theory, in the calculation of body pressures. Body 
nose vortex shedding is modeled by potential flow vortices whose . 
strengths and positions in the cross flow plane are determined from an 


\ 


analytical-empirical approach. If the body cross section is circular, 
the body nose shedding vortex data is built into the main program. For 
bodies with elliptical cross section, this data is input to the body flow. 
modeling program and must be determined from other means. Body nose and 
Canard fin vortex paths along the configuration are calculated by the 


vortex chasing program based on slender-body theory including effects of 


fin deflection. 


Over the body nose section, the calculated pressure distribution can 
include effects of vorticity shed from the body nose. Through the canard 
or monoplane wing section, the pressures acting on the body and lifting 
surfaces can be influenced by the body vortices as they travel along the 
body. From the canard to the tail section, the body pressures can be 
affected by body and canard fin vortices. The effects of the vortices 
may also be included in the calculation of the loads on the tail fins. 


A description is given for the procedure required to calculate, ina 
series of steps, pressure distributions and loadings acting on complete 
configurations. Two calculative examples are shown. The first case 
involves a cruciform canard-body with circular cross section-cruciform 
tail. The second case is concerned with a monoplane wing-elliptical 
cross section body~-interdigitated tail configuration. The computer 
vrograms are described and documented in the appendices of this report. 


1. INTRODUCTION 


Methods for computing the supersonic pressure distributions on mis- 
siles having monoplane or cruciform fins or missiles with bodies of 
elliptical cross section are not well developed, and much work is re- 
quired to produce programs that can be used for design purposes. It is 
the purpose of the work reported here to extend an existing three- dimen- 
sional, supersonic, lifting-surface computer program to include various 
options required for missiles of the above types. The work was jointly 
‘supported by Langley Research Center and the Air Force Flight Dynamics 
Laboratories. Langley technical directors were Wallace C. Sawyer, 
Raymond L. Barger, and Jerry M. Allen; Air Force technical director was 


Calvin L. Dyer. 


Before describing the extensions to the preexisting program, a 
brief description of it will be given. The program was developed under 
ONR sponsorship and is described in references 1 and 2. In reference 1 
supersonic planar or cruciform wing~body combinations with round bodies 
were treated, and fin loadings were determined using panel methods and 
‘linear theory. No vortices were included, and a tandem set of lifting 
surfaces was not covered. In reference 2 the full Bernoulli pressure 
equation was used in determining fin loadings. The paths of vortices 
behind cruciform fins were studied for a cylindrical afterbody using 
both slender-body theory and the full wave equation. It was decided that 
Slender-body results were sufficiently accurate. Provision to account 
for specified nose vortices on the fin loading was included. Preliminary 
leading- and side-edge suction calculations were implemented for the 
purpose of modeling separation vortices from the leading- and side-edges 
of the fins using the Polhamus vortex lift analogy described in reference 
3. Furthermore, the effects of body nose and canard vortices on the 
cruciform tail were determined. The applicable range of included angle 


of attack was increased to about 20°. 


The additional scope of the present report covers extensions to the 
computer program of reference 2 to two missile types, cruciform wing-body 
combinations with an axisymmetric body and a combination with elliptic 
body cross sections, monoplane: wing and cruciform interdigitated tails. 
With regard to the first configuration the following items have been 


added to the computer program: 


(1) Add option for determining body nose vortex characteristics 
explicitly. 

(2) Calculate body pressure coefficients for entire missile. 

(3) Explicitly determine the positions of all vortices at the 
canard trailing edge including nose vortices and vortices from canard 
fin leading edges, side edges, and trailing edges. 

(4) Add an option to calculate the trajectories of all vortices 
over the entire length of the missile. 

(5) Include effects of canard and tail fins deflection on vortex. 
paths and fin loadings. 

(6) Add option to include effects of canard fin thickness. 


With regard to the missile with a body of elliptical cross section, the 
following tasks are addressed herein: aaa 

(1) “rhe threé dimensional, supersonic, lifting-surface computer 
program is to be extended to monoplane wing - combinations for elliptical 
cross-section missile bodies with cylindrical and boat-tailed aft ends 
having various conventional wing planform shapes. Pressure distributions 
shall be calculated including thickness and vortex effects. The result- 
ing forces and moments. are. to be determined. 


(2) The program is to be extended to include provisions for 
handling a cruciform interdigitated tail that can be located at various 
cant angles to the body surface. The loads on the tail fins are to be 
calculated including tail fin-body interference effects together with 
wing vortex effects. No thickness need be included for the tail fins. 


The fin contributions to the overall forces and moments are to be 
determined. 


In this report the general approaches are described first for 
determining ‘the pressure distributions on the two configurational types 
under consideration. Then a more detailed description of the approach 
is given with the bulk of the analytical material given in a series of 

‘appendices. Next, detailed procedures are given for applying the com- ~ 
ponent computer programs to complete configurations, followed by two 
calculative examples. Some comparisons between predictions and experi- 
ment are then given. Complete descriptions of the component computer 


programs are given in appendices together with input and output format. 
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SYMBOLS EXCLUSIVE OF APPENDICES 


local body radius 
chord of a fin panel through its centroid 


chord of fin panels at fin side edge 


component moments per unit dynamic pressure along YBr 2pe 
and xp due to net effect of C summed over all 
body panels panels 


pitching moment, yawing moment, and rolling moment for 
unit dynamic pressure of single body's source panel in 


Xpr Ypr 2p coordinates 


component . moments for unit dynamic pressure along y, Zz 
axes due to net effect of C summed over all body 
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SYMBOLS EXCLUSIVE OF APPENDICES (Continued) 


components in x, y, z coordinates of Cy summed 


over all body panels 


panels 


fin normal-force coefficient due to leading-edge suction 


fin normal-force coefficient due to side-edge suction 


suction coefficient, suction force divided by qSp 


pressure coefficient, (p-p.)/q 


pressure coefficient for vacuum 


force in ~Xy direction acting on lifting vortex element 


of fin panel 


force in Yw direction 


fin panel 


force in Yw direction 
side edge of a panel 
Sive trailing vortex 


acting on lifting vortex element of 


acting on trailing vortices along 
for a distance "Co" between succes~ 


element intersections with the edge 


nondimensional body vortex strength, equation (7) 
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free-stream Mach number 


SYMBOLS EXCLUSIVE OF APPENDICES (Continued) 


n summation index for all constant u-velocity panels 

NCW aiieatee fin panels stone the chord 

NHP number of constant u-velocity panels on both horizontal 
fins 

NPANLS sum of panels on horizontal and vertical fins 

NRP | , number of panels on right horizontal fin 

NWBP total number of panels on cruciform fins and body .inter- 


ference shell 


N3P number of constant u-velocity panels-on upper vertical 


fin and horizontal fins 


Pp load static pressure 

Py free-stream static pressure 

qd, ,, free-stream anunie pressure 

a body radius at start of cylindrical section 
Sp missile reference area 

SUMFT2 . see quation (24) 

SUMFX sum of all forces acting upstream on vortex elements of 
fin in vortex lattice structure nondimensionalized by 
qSp 

SUMFY1 see equation (22) 

SUMFY2 see equation (23) 


SYMBOLS EXCLUSIVE OF APPENDICES (Continued) 


u, Vv, W components of the flow velocity along axes Xp Ypr and 
Zr respectively 
u* axial velocity on outward surface of constant u-velocity 
panel ; 
u, Vv, W components of velocity V, along wind axes corresponding 
to Xp, Ype and Zn for c= 0 and ¢ = 0 
Vx velocity normal to body interference panel due to 
constant u-velocity panels of fins and interference 
shell 
Vy velocity normal to body interference panel due to fin 
ee thickness source panels 
VR total resultant velocity at point on the body surface 
Vw velocity induced normal to vertical fin by all constant 
u-velocity panels of fins and interference shell 
Vw velocity induced normal to vertical fin by body axis 
= singularities and external vortices 
Vy free-stream velocity 
Wy velocity normal to body source panel with orientation 
angles 6 and 6 
Wy velocity induced normal to horizontal fin by all constant 
u-velocity panels of fins and interference shell 
Wa velocity induced normal to horizontal fin by body axis 
eg singularities and external vortices 


SYMBOLS EXCLUSIVE OF APPENDICES (Continued) 


angle of pitch, equation (12) 


included angle of attack, angle between free-stream 
velocity vector and body longitudinal axis 


angle of sideslip, equation (12) 


ratio of specific heats of air 


“strength of right body nose. vortex 


pitch of panel about y' axis positive in direction x'+z' 


deflection 
down 


t 


deflection 
edge down 


deflection 
right 


deflection 
right 


of left horizontal fin, positive trailing edge 
of right horizontal fin, positive trailing 
of lower vertical fin, positive trailing edge 


of upper vertical fin, positive trailing edge 


‘polar angle in Yn 23 plane 


streamwise 


angle between trailing edge of body panel and Yp OF Y,, 


axis 


slope of bevelled leading edge of fin 


’ 


index of ‘all control points on cruciform fin and body © 


interference shell 


roll angle 


of missile, positive for clockwise rotation 


looking toward the nose 
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SYMBOLS EXCLUSIVE OF APPENDICES (Continued) 


Cartesian coordinates fixed to missile with the origin at 


the body nose tip; Xp is positive rearward, Yp is positive 


to right looking forward, and Zp is positive upwaré 


wind axes corresponding to Xp Yar 2 when a, =u, o=0 


B 


set of axes obtained by first rotating YR and Zp about Xp 


by angle 6 in positive sense followed by rotating angle 6 


about new Yp (=y') axis 


coordinates of body vortex in Xnr Ypr z, coordinates 


axial distance behind body nose 
distance from body nose to body separation location 


value of Xp at leading edge of tail fin root chord 


value of X, at trailing edge of tail fin root chord 


value of Xp at leading edge of wing root chord 


value of Xp at trailing edge of wing root chord 


axial distance parameter, equation (6) 


z. coordinates; 


coordinates of moment center in Xp, Ypr 2p 


YM = 0 


coordinates of right body vortex with Yy Measured posi- 


‘tive to right of plane of ae and Zy measured in a plane 


normal to, flow direction 


2. GENERAL APPROACH 
2.1 Body of Revolution with Cruciform Fins 


The basic methods employed to represent an axisymmetric body with 
cruciform fins have been described in reference 1. The computer program: 
of that reference is based on the wave equation associated with super- 
sonic, linear flow theory. ‘The program models axisymmetric bodies and 
the fins accounting for mutual interference by the inclusion of an 
interference panel shell around the body where fins are attached. This 
program served as the starting point for the determination of the aero- 
dynamic characteristics at higher angles of attack by the inclusion of 
nonlinear features in the methods initially developed in reference 2. : 
They include the full Bernoulli relationship for the pressure coefficient 
and the capability to account for specified or hand calculated vorticity 
shed from the body nose and the fins. In the computer program of 
reference 2, the body nose vortex strengths and positions for the case 
at hand were extracted from the experimental data presented in reference 


4 and added to the program input. 


The present wing-body program, designated DEMON2, incorporates the 
data for body nose vorticity as a function of axial distance from the 
nose if the body is circular in cross section. These data, used if the 
included angle of attack exceeds 4°, are tabulated in this report. The = 
calculation of the vorticity shed from the edges of the fins is now 
performed by program DEMON2, as described in Appendices B and C. Results 
include the distribution of vorticity along the leading and side edges, 
which contribute to one or more concentrated vortices at the trailing 
edge on each side. A program designated VPATH2, based on slender-body 
theory, is used to track body nose vortices past the canard section, and > 
to track body nose vortices and canard vortices past the afterbody and 
tail section for the case involving an axisymmetric body. The fins can 
have arbitrary deflection. This program serves as a companion to program 
DEMON2. The crossflow plane solutions are given in Appendix I. For 
cases involving axisymmetric bodies, program DEMON2 then computes, in a 
series of steps, the pressures acting on the body surface, fins and the 
part of the body covered by the interference shell including the effects 
of body and fin vortices where applicable. A detailed description of the 


procedure is given subsequently in section 5.1. 


ll 


2.2 Elliptical Body with Monoplane Wing and Interdigitated Fins 


For the purpose of handling a body with elliptical cross section, a 
separate program designated WDYBDY has been developed. This program. 
serves as a companion to ‘program DEMON2 and performs the body-alone 
modeling when the cross section of the body is elliptical. The method | 
makes use Of supersonic body source panels distributed on the surface of , 
the body to account simultaneously for volume and angle of~attack effects. 
In’ addition, program DEMON2 has been. generalized.to treat an interference 
panel shell with elliptical cross section to which either a monoplane 
wing or interdigitated tail fins can be attached. The required geomet- 
rical transformations and extended flow tangency condition are described 
in’ Appendix E. For a body with elliptical cross section, the body nose 
vorticity. characteristics are read in to program WDYBDY, and are deter- 
mined. from a-separate method since no data base is.available as yet. A : 
combined theoretical-empirical computer program for this purpose was | 
developed for the spin-entry studies described in reference 5. This 
program was specialized to determine the strengths and positions of 
vortices shed’ from noses with elliptical cross section at supersonic 
conditions. For the sake of illustrating the use of the programs, an 
application of it is included in the second calculative example described 
later. The vortices are tracked by. program VPATHL, based on slender-body 
theory, past the monoplane wing section and along the body with ellip- 
tical. cross section up to the tail section if the length of the body is _ 


long enough. «' 


‘For configurations involving bodies with elliptical cross section, 
program WDYBDY computes the pressures on the body surface up to the 
forward lifting surfaces (monoplane wing) and between the forward 
surfaces and tail surfaces (interdigitated tails) including effects of. 
body and wing vortices where applicable. In the monoplane wing .and 
interdigitated tail regions, program DEMON2 determines the pressures on 
the lifting surfaces and the part of the body covered by the interference 


panel shell including the effects of vortices where applicable. 


By using the above mentioned programs in sequence it is possible to 
compute the pressure distributions and fin loadings acting on complete 
configurations by treating first the nose section, then the forward 
lifting surface. section, followed by the afterbody and the tail section. 


12 





3. DETAILED APPROACH FOR BODIES OF REVOLUTION WITH CRUCIFORM FINS 


In this section, the paneling method used to model lifting surfaces 
and the line singularity distributions used to model axisymmetric bodies 
will first be summarized. The method used to account for body-fin mutual 
interference is described. Features added to the boundary condition, to 
be shown below, include an account for fin thickness and arbitrary fin 
deflection. The separation vorticity data associated with axisymmetric 
body noses is tabulated and the pressure calculation method is described. 


3.1 Modeling of Fins by Constant u-velocity Panels. 


Each fin of a cruciform fin-axisymmetric body combination is divided 
into trapezoidal area panels. The geometrical layout is accomplished by 
subroutine LAYOUT of program DEMON2. These panels are called constant 
u-velocity panels for supersonic flow and are located in the chordal | 
planes of the lifting surfaces. When the full Bernoulli equation is 
used to calculate pressure, these panels are no longer constant pressure 
panels as referred to by Woodward et al. in reference 6. The solution 
for a given panel is generated by a superposition of the basic solutions 
for semi-infinite triangles with their apexes at the panel corners. The 
basic solution and superposition schemes, as implemented in subroutines 
VELO and VELNOR of program DEMON2, are described in great detail in 
sections 3.3.2 through 3.3.6 and Appendix II of reference 7. In addi- 
tion, the effects of fin thickness are accounted for by the use of 
constant strength source panels located in the chordal planes of the 
fins. Their solutions are also obtained by a superposition scheme of 
semi-infinite triangles as described in section 3.3.4 and Appendix II of 
reference 7. In program DEMON2, the basic solution and superposition 
schemes associated with the constant strength source panels for fin 
thickness are programmed in subroutines VELOTH and THKVEL, respectively. 


3.2 Modeling of Body of Revolution Alone 
The potential flow model used to represent an axisymmetric body in 
supersonic flow is described in detail in section 3.2 and Appendix I of 
reference 7. Such a body can be represented by a distribution of line 


sources/sinks and line doublets along the body centerline to account for 
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volume and angle of attack effects, respectively. The strengths of these 
singularities are determined from the flow tangency condition applied at 
points on the body surface. using a marching procedure from the nose tip 
to body base. Subroutine BDYGEN of program DEMON2 is concerned with the 
layout and strength determination of the line singularities. It is 
possible that a portion of the body nose contour lies outside ti.e Mach 
cone from its apex at.the nose tip. This can occur for high Mach 
nuuwoers. In this case, the present version of subroutine BDYGEN has been 
programmed to move the origins of the line singularities up towards the 
body nose. The result is to minimize the inherent error in the solution 
near the nose if the Mach cone from the nose tip intersects the body 
contour. «©The part of the nosSe contour outside the Mach cone is then 
replaced by a cone. This constitutes a limitation to the method. -An 
illustration of this scheme will be discussed later in connection with 
the pressure distribution on an ogive-cylinder using the Bernoulli 


pressure expression. 
3.3 Body Interference Shell for Fin-Body Interference 


An interference shell is positioned around the body over the length 
covered by the fins to account for fin-body interference. Constant. 
u-velocity panels are distributed on this. shell by subroutine LAYOUT in 
addition to those on the fins. The panels on the interference shell and 
‘fins contain one control point each, which is located at the 95.percent | 
chord containing the panel centroid. A typical distribution of constant 
u-velocity panels is shown in figure 1. The body and wing coordinate 
system, (Xp °YprZp) and (Xr YigeZyy) + respectively, are also shown. The. 
axial location on the centerline of the origin of the latter is at the 
axial location of the leading edge of the fin root chords. Both coordi- 
nate systems can be the reference coordinate system. Fins in the z= 0 
or Zp = 0 plane are called horizontal fins. Fins in the y, = 0 or Yue 0 
plane are called vertical fins. Angle of pitch, a, and sideslip, 8, are 
determined from the included angle of attack, Qo and roll angle $.* 


See equation (12) 
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3.4 Wing-Body Interference Solution 


For the cruciform fin-axisymmetric body combination shown in figure 
1, the strengths of the line singularities representing the body itself 
are solved for by subroutine BDYGEN in program DEMON2. Body on fin 
interference is accounted for as follows. The velocities normal to the 
fins at the control points induced by the body line singularities are 
computed by subroutine VELCAL in program DEMON2. On the horizontal fins 
these velocities are added to the free-stream component normal to the fin 
surface including the effect of fin deflection. On the vertical fins, 
the body induced normal velocity is added to the free-stream component 
normal to the vertical fin surface. These additions are performed in 
routine CRFWBD of program DEMON2. If external vortices are present, 
their effects are determined separately by program VPATH2 and added to 
the body induced velocities by an exchange of data sets between VPATH2 
and DEMON2. The flow tangency condition applied to the control points on 
the horizontal fins is built up in routine CRFWBD of program DEMON2 as 
follows. Let the number of panels laid out over the cruciform fins and 
interference shell be NWBP and let NRP be the number of panels on the 
right horizontal fin only. Then, with v as index for all the control 
points and n the summation index for all the constant u-velocity panels, 
the flow tangency condition for the right horizontal fin is given by 


a ts 

w = ~-sin(a + 6 )-w , Vv =1,2,...NRP (1) 
n=1 "yon HR Wir 
where a is the angle of pitch and 6 is the deflection of the right 


H,R 
horizontal fin. The term on the left-hand side represents the summed 


velocity component (for unit V,) normal to ‘the horizontal fin induced by 
all constant u-velocity panels on the fins and interference shell of the 
finned section under consideration. The method for calculating the terms 
on the left-hand side of equations (1) through (5) is given on page 6 of 
reference 1 or section 3.3.4 of reference 7. The first term on the 
right-hand side is due to the free-stream velocity, and the second term 
Wwe is induced by the body singularities and external vortices if 
present. Setting NHP equal to the number of constant u-velocity panels 
on both horizontal fins, the flow tangency on the left horizontal fin is 


expressed as 
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NWBP 


= -sj + - = 
Wy sin (a Suey) Wwe,v? v NRP+1,...NHP (2) 
n=] vn i 


where 6, ; is the deflection of the left horizontal: fin. Let N3P be 
equal to the number of constant u-velocity panels on the upper vertical 
fin plus the number on the horizontal fins. The flow tangency condition 
applied at the control points of the upper vertical fin is written as 


follows: 


NWBP 


Vv = sin(B + 8y v) - Vv v = NHP+1,...N3P (3) 
a, 


Ww w.,v ° 
n=1 v,n i’ 


Angle 8 is angle of sideslip and Syou is the deflection of the upper 
vertical fin. The term on the left-hand side represents the summed 
velocity normal to the upper vertical fin induced by all constant u- 
velocity panels on the fins and interference shell. The first term on 
the right-hand side is due to the free-stream velocity, and the second 
term Vw pv is induced by the body singularities and external vortices if . 
present. The flow tangency applied at the control points of the lower 


vertical fin is 


NWBP : 
Vv = sin(p + 6 )-v , Vv = N3P+1,...NPANLS (4) 
n=l] Woon Wee Wie’ 
Here éy p is the deflection of the lower vertical fin and NPANLS is the 
‘, 


sum of the panels on the horizontal and vertical fins. 


For’ cruciform fin-axisymmetric body combination the fins lie in 
mutually perpendicular planes of symmetry of the cylindrical body (at 
least for the fins at zero cant angle). Consequently, thickness effects 
of one fin. cannot influence the loading on other fins but they can affect 
the panels on the interference shell. Therefore, if fin thickness is to 
be accounted for, the flow tangency condition applied at a control point 
on the interference shell is now stated as follows: | 


NWBP 


v. = ov. , \V = NPANLS+1,...NWBP (5) 
n=1 Nyon Nerv 


In this instance, the term on the left-hand side is the summed velocity 
normal to the body interference panel with index v induced by the’ 
constant u-velocity panels on the fins and the shell itself. The term on 


th 


the right-hand side is the velocity normal to the v body interference 
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panel induced by all the source panels laid out over the fins to model 
thickness effects. In this way, fin on body interference is accounted 
for. Note that vortex induced velocity components are not included in 
the boundary condition associated with the interference shell, equation 
(5). The two-dimensional approach used to track vortices past bodies 
and body-fin combinations already insures that there is no flow through 
the body surface and fins due to the presence of external vortices. 4 
However, to satisfy the fin boundary condition in a three-dimensional 
sense, the loading on the fins due to the vortices is accounted for on 
the basis of tne panel method from the known vortex paths. Thus, the 
vortex paths from the leading edge of the cruciform canard on to the 
tail are first calculated by program VPATH2 on the basis of slender~body > 
theory accounting for the geometry of the configuration. Then, for the 
axial location of each control point on the fins, subroutine VVELS of 
program VPATH2 also calculates the velocities at the fin control points 
induced by the external vortices and their images for the body alone. - 
In this approach, the reaction of the fins to the effect of external’ 
velocities comes from two sources. First, the strengths of constant : 
u-velocity are affected by the vortex induced effects in the boundary 
condition. Second, the pressures calculated subsequently by subroutine 
SPECPR of program DEMON2 at points on the fins contain all induced 
velocity components from the external vortices. Further discussion of 
fin pressures can be found at the end of this description. Pressures 
as calculated by subroutine BDYPR at the control points of the constant 
u-velocity panels on the body interference shell also include contribu-~ 
tions from the external vortices and their images for the body alone as 


calculated by program VPATH2. 


Equations (1) through (5) form a set of simultaneous equations from 
which the unknown constant u-velocity panel strengths can be solved. 
The number of unknown in the set of simultaneous equations is given by 
NWBP. The matrix solution is performed by subroutines LINEQS and SOLVE 
in program DEMON2. Constant u~velocity panel strengths are expressed 
in terms of the axial perturbation velocity component 4 a It has a 
constant value for all points in the constant u-velocity panel. 
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3.5 Nose Vortex Characteristics 
For configurations involving body noses with circular cross section, 
program DEMON2 is now equipped to determine body nose vortex character- 
istics up to the cruciform canard section from a data base built into 
subroutine BDYVTX. The data base is extracted from the compiled experi- 
mental data displayed in figure 5 of reference 4, The shed vorticity is 
represented by two concentrated symmetrical vortices whose strengths and 
positions in the cross flow plane are given as a function of axial 
distance from the nose. The separation distance, XB s! measured from the 
nose is obtained from either equation (5), reference 4, for sharp noses 
or equation (6), reference 4, for noses with cone semi-apex angles in 


excess of 30°. 


The vorticity characteristics are to be determined at some axial 
distance from the nose, Xp: The axial location aft of the separation 
point is nondimensionalized by the body radius at the base of the nose 
designated RB in subroutine BDYPR. This subroutine calls ‘subroutine 
BDYVTX and computes the pressure distributions on the body nose (and the 
portion of the body between the canard and tail fin regions). In sub- 
routine BDYVTX, the nondimensionalizea axial distance is multiplied by 
sin One where Gi is the included angle of attack, and the result is 
named XPAR. This subroutine then proceeds to interpolate in a'table 
containing a finite set of values for the axial distance parameter called 


XST. 


XST = ————“ sin a. (6) 


Vortex strengths are designated GAMT and are nondimensionalized by the 
free-stream velocity Ve and the local body radius, a, which is a function 


of axial distance. As a function of the axial parameter XST, the table 
contains values for GAMT taken off the lower curve of figure 5(a) in 
reference 4. — 
rp 
27a Xp V,, San Oe te VS 


This curve contains data for both supersonic and subsonic speeds. The. 
coordinates in the cross flow plane are also divided by the local body 
radius with zy aligned with the component of the free stream in the 
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cross flow plane and yy normal to it, positive to the right. The tables 
in subroutine BDYVTX contain Yy coordinates’ for both subsonic and super- 
sonic flow conditions denoted YA1 and YA2, respectively. The latter is 
used here. Only one set is given for the 2, coordinate designated ZAl. 


° 


; Yy 
YA2 = Pera ; ) 
B’ | supersonic ' 
zy (8) 
ZAL = Pe ae 
B 


Thus, for a given axial distance from the nose, Xpe ahead of the forward 
lifting surface region, the vortex strengths and positions are determined 
by ‘interpolation from the table shown below. 


XST GAMT YA2 ZAL 
0 0.3 0x63 1.14 
1.0 0.32 0.64 1.26 
2.0 0.34 0.663 1.38 
3.0 0.40 0.665 1.5 
4.0 0.48 0.678 1.615 
5.0 0.62 0.69 1.73 
6.0 0.77 0.70 1.84 
‘7.0 0.90 0.715 1.95 
8.0 — 1.0 0.725 2.05 
9.0 1.08 0.735 2.14 


10.0 1.15 _ 0.74 2.20 


The coordinates Yy/a and Z/a obtained from the above table by interpola-~ 
tion for given xX, are transformed into the body fixed coordinate system 
by a rotation through angle of roll ¢. This process is performed in sub- 
routine BDYPR and it is followed by a call to subroutine VRTVEL to calcu- 
late all velocity components induced by the separation vortices at points 
on the axisymmetric body at axial location Xp: These velocity components 
are then combined with the velocity components induced by the line 
sources/sinks and line doublets of the body of revolution itself for the 
purpose of determining the pressure distribution, as described below. 
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3.6 Pressure Distribution Calculations 


The resultant velocity at a point on the body surface, including 


effects of free stream, is given by 


é Vv 2 


R 2u 2v _. : woos 
t s- =1l1+s—cos a. - = sina, sin ¢ + = sina, cos $ 
Ve Ve c Von c vO c 
2 2 2 . 
+b 
+ u YS +w . (9) 

Vv 
eo 


where flow angle On is the included angle of attack and ¢ is the angle of 
roll. This result is obtained by applying the pitch~-roll transformation. 
shown in table 1-2 of reference 8 to the velocity components (u,v,w) 
aligned with the body coordinate system (X,/YprZp)- The resultant 
velocity calculated in subroutine BDYPR using equation (9) is then sub- 
stituted into the Bernoulli pressure-velocity relationship repeated here 


for convenience, 


a 
2) |y-1 
P- Pp 3 = Vv ; . 
CS eo ee 1+ ty? {1 - 2 =a, | (10) 
P qo 2 2 ‘co 2 
ye, ve 


The pressure coefficient has the limiting value corresponding to vacuum 
pressure (p = 0) so that it is equal to 


Cc, oF ie (11) 
min oo 

The above pressure calculations at points on the surface of an axisymmet- 
ric body are performed by subroutine BDYPR of program DEMON2. For the 
parts of the body covered by the interference shell, the pressures are 
calculated by program BDYPR also in the same manner using ENTRY BDYAFT. 
The resultant velocity calculated by means of equation (9) then includes 
contributions from the constant u-velocity panels on the fins and inter- 
ference shell in addition to the contributions from the body line singu- 
larities and external vortices when applicable. Pressures on the fin are 
also computed with the Bernoulli pressure equation (10). The velocity 
component contains contributions from the constant u-velocity panels 
distributed over the fins and interference shell, contributions from the 


body singularities. and external vortices where applicable. Special care 
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must be taken in the calculation of the discontinuous velocity components 
immediately above and below the control points of the constant u-velocity 
panels on the fins. In subroutine SPECPR of program DEMON2, they are 
related directly to the strength of the panel under consideration. ; 


Some comparisons with measurements are given in the results compari- 
sons, section 7, for the case of an ogive cylindrical body without body 
nose vorticity. These comparisons serve to test the body modeling method 


and the pressure expression used. 


In determining the effect of the canard vortices on the pressure 
distribution, it is first necessary to establish the strength and posi- 
tion at the canard fin trailing edges. This is accomplished as described 
in Appendices Band C. The vortices are tracked back to the empennage 
using a vortex: tracking program based on slender-body theory. The veloc- 
ities included in this calculation are described in Appendix I. 


4. DETAILED APPROACH FOR ELLIPTICAL BODY WITH MONOPLANE 
: WING AND INTERDIGITATED CRUCIFORM TAIL’ 

This section of the report gives a short description of the method 
using body source panels to represent a body with elliptical cross 
sections at combined angle of pitch and sideslip. Extensions to the flow 
tangency conditions are pointed out. The method used to include effects 
of specified body nose vorticity is described. The flow angles and the 
velocity components used in the pressure expression are given. Figure 2 
shows a body source panel layout for a body with elliptical cross sections. 


4.1 Modeling of Monoplane Wing, Interdigitated Tails 
and Elliptical Body by Body Source Panels 

Basically, the layout of constant u-velocity panels on the monoplane 
wing or interdigitated tails is performed in the same way as for cruci- 
form fins by subroutine LAYOUT of program DEMON2. For interdigitated 
tails, additional geometric transformations are required to express panel 
corner coordinates and induced velocities in the reference coordinate 
system which can be either the body (X,°Yp7 2p) or wing (Xp Voge Zyy) coordi- 
nate system shown in figure 1. These transformations are discussed in 
Appendix D. At the present time thickness effects are included only for 
the monoplane wing using planar source panels mentioned earlier in 
connection with cruciform fins. Program DEMON2 has been extended to 


allow for an interference shell with elliptical cross section. The 


additional analysis required with regard to the load calculation is given 
in Appendix G concerned with body interference panels on a shell with 
elliptical cross section. As far as the attitude of a given body inter- 
ference panel is concerned, the angle between the panel trailing edge and 
the Yp OF Yw axis is now calculated in accordance with the expressions 
for 85 BIP shown in figure 3. This angle is used in the transformation 
from the body interference panel coordinate system to the wing or body 
reference coordinate system (and vice versa) as performed by subroutine 


TRBIPW of program DEMON2. 


The body itself with elliptical cross section is modeled by program 
WDYBDY using supersonic body source panels which can be inclined to the 
flow. A typical layout of body source panels on a body with elliptical 
cross section is shown in figure 2. The angle of inclination between a 
body source panel and the body centerline is limited to the semi-apex 
angle of the Mach cone associated with the free-stream Mach number. 

Thus, there is a limit to which body noses can be modeled by the body 
source panel method. The solution for such a panel is based on super- 
sonic, linear theory as described in reference 9. As is the case for 
constant u-velocity panels, the influence of one body source panel (not 
to be mistaken for the planar source panel used to model fin thickness) 
is also obtained by summing the influences of the four panel corners. 

The basic expressions for perturbation velocity components are given on 
page 35 of the cited reference. Program WDYBDY consists of body modeling 
subroutines extracted from the computer program described in reference 10 
and modified to account for combined angles of pitch and sideslip. The — 
subroutines affected by this modification are SOLVE, PRESS, and FORMOM in 
program WDYBDY. The specific modifications will now be described. 


Angle of pitch, a, and angle of sideslip, 8, are related to the 
included angle of attack, Oye and. angle of roll, 6 (positive right fin or 
wing down), in accordance with the pitch-roll sequence described in 
reference 8, Table 1-2. As a result, the pitch and sideslip angles are 


determined from the following expressions. 
sin a= sin a, cos $ 
(12) 


sin 8 = sin a, sin ¢ 
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The orientation angles, 6 and 8, associated with an inclined body source 
panel and the flow angles, a and 8, are shown in the sketch below. Also 
indicated are the local coordinate systems x', y', z' associated with the 
source panel and the reference coordin:«te system Xn YprZp- The orienta- 
tion angles 6 and 6 are shown in their positive sense if the panel corner 
numbering sequence is as indicated in the sketch. Axis x' is aligned 
with Xpe. 


z Body source 
panel 













Leading edge Side edge 


2 


Side edge 






*B 


In subroutine SOLVE of program WDYBDY, the contribution from the free 
stream to the flow tangency condition has been modified to include 
components due to pitch and sideslip. The component from .the free stream 
normal to the body source panel inclined at angle 6 to the x',y' plane and 
inclined to the Zp = 0 plane at angle 6 is expressed below. This 

quantity is designated Wa/Ven and is programmed as NB(I) in subroutine 


SOLVE. 


= sin a cos @ cos 6 + sin 8 sin 86 cos 6 - cos ae Sin 6 (13) 


S| = 
2 


foe] 


With the contribution from the free stream given by the above equation, 
the flow tangency condition is applied at the control points (centroids) 
of the body source panels.. The result is a set of simultaneous equations 
from which the panel strengths are obtained. The matrix solution is an 


iterative one if the number of source panels is in excess of 60. 
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4.2 Pressures, Forces, and Moments on Body 
with Elliptical Cross Section 


The pressure coefficient is computed at the body source panel con- 
trol points by subroutine PRESS in program WDYBDY using the Bernoulli 
pressure-velocity relationship, equation (10). In subroutine PRESS the 
resultant velocity Vp was originally determined from the velocity compo-— 
nents in the wind-axis system for the unrolled case. Using the transfor- 
mations indicated in Table 1-2 of reference 8 for the combined pitch and 
roll case, the components in the wind-axis system (u,v,w) are related to 
the components (u,v,w) aligned with the body axis system (Xp +YprZp) as 


follows. 


u u 3 Woe: 
4 = — cos a. - =~ Sin 6 + sin @ 

Vi. Me ec Vy Mes 

Vv Vv Woo: 

— = = cos ¢ + = Sin ¢ 

We We Vos i 

(14) 

Ww ui. ve : Ww 
—“ = - — sin a. - =~ cos a. sin >? + = cos a_ cos $ 
Ve Mes - Cc Vo c MZ c 

2 

- — \2 

YR _ 2)" ‘6 (z)’ A & 
v2 Vv. Ve Vio 

fee] 


The last quantity is denoted Q2 in subroutine PRESS of program WDYBDY. 
The angles associated with the trigonometric functions are described in 


connection with equation (12). 


In order to add the capability of including effects from specified 
body nose vorticity in the body pressure calculation, program WDYBDY is 
equipped with additional subroutines. Subroutine READVX reads in an 
array of axial locations measured from the body nose, ELBDVT reads arrays 
containing the lateral coordinates and strengths of the vortices. For 
the axial location of a given control point in a body source panel, these 
subroutines interpolate for the coordinates in the cross flow plane and 
strengths of the vortices. Subroutine VVELS then proceeds to compute the 
velocity components induced by the set of external vortices and their 
images inside of an elliptical cross section at the control point. This 


application of slender-body theory is a degenerate form of one of the 
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crossflow plane solutions described in Appendix I in connection with 
vortex path calculations. The flow tangency condition at the body sur- 
face is therefore satisfied and the body source panel strengths are not 
affected. The vortex induced velocities are calculated in the body ref- 
erence coordinate system and added to the v and w velocity components in 
equation (14). In connection with the application of slender-body theory 
to elliptical cross sections, a special procedure is followed to avoid 
numerical problems leading to unrealistic values for the velocity compo- 
nents at the body source panel control points. Essentially, the control 
points are moved just outside the actual body circumference as described 
in detail in Appendix H. 


Once the pressures on the body are known, subroutine FORMOM, as 
applied to the body modeling program WDYBDY, computes the overall forces 
and moments acting on a body with elliptical cross section. This sub- 
routine was extended to include calculating the side force and yawing 
Moment for the pitched and rolled case. First, a normal-force "coeffi- 
cient" is defined” for one body source panel as follows. 


Cc = Cp Area 


(15) 
N panel 


panel 
By first resolving through the panel inclination angle 6 and then through 
the azimuthal orientation angle @, the forces on the panel expressed in 
the body coordinate system (Xp +YprZ,) indicated in figures 1 and 2 are 








given by — 

Cc =~ C | sin 6 
x N 
B panel panel . 

cy =~ cy cos § sin 6 (16) 
B panel panel 

C2, = Sn | on cos 6 cos 6 

panel P 





Angles 6 and 6 are shown in the sketch discussed above. 


The contributions from one body source panel to the moments are 
determined as follows. The pitching and yawing moments are first calcu- 
lated in terms of the body coordinate system. In this way, the pitching- 
moment vector is normal to the Yz = 0 plane and the yaw:ing-moment vector 


* . 
Normal force per unit dynamic pressure. 
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‘is normal to the 25 = O plane. Rolling-moment vector lies along the Xp 
axis. For one body source panel, the contribution to the pitching-moment 


coefficient in the body coordinate system is stated below. 


Cc =-C (x 


™| panel 2 c,B ~ XM) + Cy (Zo 3 ~ 2M) (17a) 


e panel e panel 


nose up positive 


The contribution to yawing moment in the body coordinate system is given 


by 

Cc ae _ | 
| panel Ee eg Ss ox Yo,B! (L7b) 
panel. panel ; 


nose to right positive 


and the contribution to rolling moment in the body coordinate system is 


written as 


c =-C y.,+C (z. 3 ~ 2M) (17¢) 
L z c,B y c,B v 
panel . panel e panel 


right fin down positive 


In the above equations, (Xo Be Yo,B’ 20,3) are the coordinates of the 
centroid or control point of the body source panel. The moment center is 
given by (XM, 0, 2M) in the body coordinate system. In subroutine 
FORMOM, the quantities defined by equations (16) and (17) are designated 
DCXB, DCYB, DCZB and DCMB,.DCNYAW, DCLROL, respectively. The contribu- 
tions to the forces from all the panels are then added and divided by a 

. reference area designated REFA. The contributions to the moments are 
also added and divided by reference area REFA and reference length REFD. 


‘Por the pitched and rolled case, an additional transformation is 


performed in subroutine FORMOM to finally determine the forces and 


moments in the wind-axis system. Thus, let Co snd axis be in the plane 


formed by the body centerline and the free-stream velocity vector and lie 
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in-the direction normal to that vector. This quality is in fact the lift 
‘in coefficient form acting on the body and it is obtained by applying the 
body to wind axis transformation indicated on page 12 of reference 8. 


Cc. =Cc 


mate i - cos a i 
L z c,. sin a Cc sa, sin > 


wind axis B o B 





+ oe cos a, cos i) : (18a) 


Let Cy inde asics be the force normal to the plane formed by the body 


centerline and the free-stream vector, positive to the right. 


-C¢ 


=C i + C cos 
: sin 9 y ) (18b) 
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wind axis 


The axial force in the wind axis system, Cx lies along the 


oe wind axis’ 
free-stream vector. It equals the drag-force coefficient Cp: 


=C cos a -C sin a_ sin @¢ 
x]. : x 
wind axis B © B 





= Oe sin a, cos $ (18c) 


In the wind axis system, the pitching-moment vector is normal to the 
plane formed by the free-stream vector and the body centerline, positive 
nose up. The pitch-roll transformation is applied again to the moments 


in the body axis system. 


Cc 
m 


=C 


; : m : 
wind axis body axis 


cos $ - Ci sin ¢ (19a) 
body axis 





The yawing-moment vector in the wind axis system lies in the direction of 


the lift force, positive nose right. 


Cc 


=e ina +C cos a_ sin 
= Cpsin _ n| _ > 


body axis 





wind axis 


f 


+C cos a, cos > ; (19b) 
"body axis ; 
In equations (18) and (19), angles Or ¢, a and 8 are discussed above in 
connection with equation (12). They are designated ALPHAC, PHIR, ALPHA 
and BETA, respectively, .in subroutines FORMOM, SOLVE and PRESS of program 
WDYBDY. , 
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4.3  Wing-Body and Tail-Body Interference 


Once the body with elliptical cross section is modeled by program 
WDYBDY for given included angle of attack, Our angle of roll, 4, and 
Mach number, the velocity components induced by the body source panels 
with known strengths are computed at the control points on the monoplane 
wing or interdigitated tail fins by an added subroutine BDYVEL of program 
WDYBDY. In this way, body to wing or fin interference is accounted for. 
This is accomplished by interchanging data sets between programs WDYBDY 
and DEMON2. Note that'for axisymmetric bodies, program DEMON2 performs 
both the body modeling and fin modeling and no such data set exchange is 


required. 


For the monoplane wing attached to the interference shell, the flow ° 
tangency condition for the right wing is given by equation (1). If the 
configuration is rolled in addition to pitched, the flow tangency condi- 
tion must also be set up for the left wing, equation (2). The flow tan- 
gency condition applied at the control points of the constant u~-velocity 
panels in the interference shell with elliptical cross section is given 
by equation (5). This boundary condition accounts for wing or fin on ov 
body interference. ‘The strengths of the constant u-velocity panels dis- 
tributed over the monoplane wing and the interference shell with 
elliptical cross section are then solved from the set of simultaneous 
equations generated by the flow tangency condition. Effects of external 
vorticity can be included in the wing boundary condition by exchanging 

'data, sets between programs DEMON2 and VPATHL. The latter program deter- 
mines the paths of the body nose vortices as they pass through the mono- 
plane wing section up to the tail section. It also computes velocity 
components induced at the control points of the constant u-velocity 
panels on the monoplane wing by the external. (body nose) vortices in the 
presence of the body only. In this way the monoplane wing is influenced 
by the external vorticity in the boundary condition and in the calcula- 
tion, of pressures acting on the wing as performed by subroutine SPECPR 
in program DEMON2. The reason for this procedure is increased accuracy 
‘as mentioned in the previous section 3.4 concerned with cruciform fins on 


an axisymmetric body. 
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5. PROCEDURE FOR APPLICATION OF PROGRAMS TO COMPLETE CONFIGURATIONS 
5.1 Circular Body with Cruciform Canard and Tail Fins 


‘The following is a description of the step-wise use of programs 
DEMON2 and VPATH2 for handling a complete configuration with a body of 
circular cross section., The manner in which the programs are used 
sequentially and the exchange of data sets are indicated. The first 
three steps are concerned with the part of the configuration from the 
body nose to the trailing edge of the canard section. The remaining 
steps deal with the body aft of the canard and with the cruciform tail- 
fins. Finally, the procedure required to assemble pressure distributions 

acting> on the entire configuration is given. The steps at which fin 
forces and moments are calculated are also indicated. 


5.1.1 Sequential use of programs 


Step l(a). Run lifting-surface program DEMON2, with index NCPOUT set 
equal to 2 in namelist INPUT. This step generates the 
_coordinates of the control points associated with the 
constant u-velocity panels distributed on the fins of the 
_ eruciform-canard and the’ body-interference shell. The number 
of control points and the sets of coordinates are stored in a 
data set designated TAPE4 = CPTS1. There are NWBP sets of 
coordinates where NWBP is the number of control points on the 
canard fins and the interference shell. This shell has 
constant circular cross-sectional area and covers the body 
from the leading-edge to thé trailing-edge of the canard 

' section. This step can be combined with step 1(b) discussed: 
next by setting NCPOUT equal to 1 instead of 2. oe 


Step 1(b). Consider the canard fins mounted on the body. The body is. 
‘modeled from its nose to the trailing edge of the canard fin 
as a minimum. Run ‘lifting-surface program DEMON2 with index ' 
NCPOUT set equal to zero in namelist INPUT. This step can "be 
combined with step l(a) by setting NCPOUT = 1. If the latter 
value is used, the program not only generates the data set 
containing the control point characteristics, CPTS1, but will 


also proceed to compute the pressure distributions on the 
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Step 2. 
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body nose up to the canard section. If the included angle of 
attack is sufficiently high, the effects of body nose vorti- 
city will be accounted for in the body pressures. In addi- 
tion, the strengths of the constant u-velocity panels and 
subsequently the pressure distributions and loadings acting 
on the canard fins and interference shell are calculated 
without the effects of body nose vorticity. The output 
includes information concerning fin leading- and side-edge 


separation vorticity. 


Vortex path program VPATH2 is now employed to track the body 
nose vortices over the canard section. Input includes the 
data set designated CPTS1 containing the number and sets of 
coordinates of the control points on the cruciform canard 
fins and interference shell. This data set was generated in 
either step l(a) or l(b). In the input to program VPATH2, 
indices NCPIN and NVLOUT are set equal to 1 for this run. 

The former causes data set CPTS1 to be read in and the latter 
generates a data set designated VELOS1. The input to this 


. program also includes the strengths and coordinates in the 


crossflow plane of the body nose. vortices at the axial 
station corresponding to the start or leading edge of the 
canard section, These vortices are tracked back to the end 
or trailing edge of the canard section. Effects of fin edge 
vorticity (kept stationary) can be included in the determina- 
tion of the paths of the body nose vortices. Fin leading- 
and side-edge vortex strengths (if comparable in magnitude to 
the body nose vortices) and locations are read-in by the 
program separately from the input associated with the vorti- 


ces whose paths and effects are to be calculated. 


After the vortex paths have been calculated, program 
VPATH2 calculates the perturbation velocities induced by the 
body nose vortices at the control points of the canard fins 
and interference shell. The velocity components are stored 
in data set TAPE7 = VELOS1 mentioned earlier. In this 
velocity calculation, the effects of the vortices are calcu- 
lated in the presence of the body only, or in other words as 


if the canard fins are not present. 


Step 3. 


Step 4. 


Program DEMON2 is run again with NVLIN = 1 and NCPOUT = 0 in 
namelist INPUT. The value of the first index tells the pro- 
gram to read in velocity components induced by the body nose 
vortices at the control points on the canard fins and the 
interference shell as the vortices pass by the canard section. 
This information was generated in step 2 by program VPATH2 
and stored in data set TAPE7 = VELOS1. The strengths of the 
constant u-velocity panels are then recalculated including 
the effects of the external body nose vortices. As a result 
of this calculation, the pressure distributions, forces and 
moments on the canard fins: and pressures on the body aft of 
the leading edge of the canard root chord include effects 


induced by the body nose vortices. 


At this stage, the output also contains specifications 
for the concentrated vortices associated with the fin trail-~ 
ing edges. Specifications calculated on the basis of. 
Bernoulli-type loading pressures will be used in a later 
step. Furthermore, the distributions of fin leading- and 
side-edge vorticity calculated on the basis of linear (u/V,, 
type loading pressure) theory will be considered in the 
calculations that follow. , . 


Program DEMON2 is applied to treat the tail fin section 
mounted on the body. The body is modeled from the nose to 
its base. In this step, effects of external vortices are not 
accounted for. Index NCPOUT = 1, NVLIN = 0 and ITAIL = 1 in 
namelist INPUT for this run. In addition, quantity XSTART 
must be set equal to the axial location of the trailing edge 


of the canard section. 


The first index causes the program to generate a data 
set designated CPTS2 which contains the number and sets of 
coordinates associated with control points on the tail fins 
and interference shell. Additionally, this data set contains 
the sets of coordinates specifying points on the body surface 
between the canard and tail section at which pressures willbe 
calculated. At this stage, the calculated pressures on the 
body do not include effects of external vorticity. The tail 
fin loadings do not include effects of body nose and canard 
fin vorticity so far. 
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Step 5. 
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The vortex path program VPATH2 is now used to chase external ; 


vortices from the canard section, along the aft body, past 


the tail section, to the body base. Index NCPIN = 1 and 
.NVLOUT = 1 for this run. The value given to the first index 


causes the program to read in data set CPTS2 containing 
control and body pressure points. Velocity components 
induced by the external vortices are calculated at the points 
whose coordinates are in data set CPTS2. The value given to | 
the second index results in the generation of data set 

TAPE7 = VELOS2 which contains the induced velocity components. 
The strengths ana positions of the vortices at the trailing 
edge of the canard section as required by the input to pro- _ 


“gram VPATH2 for this run include the following: 


1. Body nose vortices whose characteristics are available 
at the trailing edge of the canard section as a result of 
step 2 calculated by program VPATH2. 


2. Concentrated. vortices emanating from the trailing edges 
of the canard fins. Strengths and locations of these 
vortices are available from the results (based on _ 
Bernoulli pressures) generated by program DEMON2 at the 
end of step 3. 


3, Fin leading- and side-edge separation vortices, if their 


strengths are comparable to the strengths of the vortices 
of 1 and 2. Their strengths and spanwise positions 

(based on linear pressures) at the fin trailing edge sg 
- also calculated by and appear in the output of program ; 
DEMON2. The user may input a distance off the fin plane 
equal to the product of the root chord and the tangent of 
half the angle of attack seen by the fin in question. 


After the paths of the above vortices are calculated, program | 
VPATH2 proceeds to compute their effects at points on the aft - 
body and on the tail section as mentioned above. in this 
process, the: velocity components induced by the external — 
vortices are calculated in the presence of the body only, or. 


in other words as if the tail fins are not present. 


Step 6. Finally, program DEMON2 is applied again to the tail fins on 
the body. Index NCPOUT = 0, NVLIN = 1 and ITAIL = 1.- The | 
program reads in data set TAPE7 = VELOS2 which contains 
vortex effects calculated in the previous step at points on 
_the aft body and the tail section including the fins. 


The strengths of the constant u-velocity panels are 
recalculated including the effects of body- and canard-fin 
vortices. As a result of this calculation, the pressure 
distributions, forces and moments acting on the tail fins and 
the pressure distributions on the body from the canard 
section to the body base are affected by the body and canard 


fin vortices. 
5.1.2 Assembly of pressure, force and moment data 


The results obtained in the stepwise manner described above allow 
for the determination of the pressure distributions on the body and 
forces and moments acting on the fins as follows. 


Nose section: 0 < x, < XB WLE 

At the end of step 1, the output of program DEMON2 includes circum- 
ferential pressure distributions at a finite number of axial stations 
from the nose tip to the leading edge of the canard section. From this 
information, meridional pressure distributions can also be obtained. 
Effects of body nose vorticity are accounted for in the velocity. compo- 


nents used to compute Bernoulli pressures. 


Canard section: XB WLE < Xp < Xp WIE 

Pressure distributions on the body aft of the leading edge of the 
fin root chords (up to the ‘trailing edge) and on the fins are calculated 
by program DEMON2 “in step 3. The results include effects of body nose 
vorticity. Normal forces and moments acting on the fins including the 
influence of body nose vorticity are also calculated and output by the 
program (refer to quantities under Bernoulli-type loading pressures). 
Any augmentation to the fin normal force due to fin leading- ‘and side- 
edge separation can be determined from the following hand calculation 


33 


using the quantities printed under the U/VINE (linear) type loading 
pressure. Consider the right horizontal fin (the other fins are treated 


‘the same way). : 
=Kc./° + Kc (Polhamus' Analogy) 


po hE 
Nie | se LES]. SES SE 
If Kr and Kor are not input, then the Feliowiag 7 
values are ised in. obtaining vortex. strengths: 
= ms (20) 
Kin = oes Kop 0.5 (default value) 
Cy] = U(sumpx)? + (sumryl + sumry2)?)4 
LE , ; : 
Co = SUMFT2 
SE ; 3 


. In the above SUMFX is the sum of all the forces acting upstream in 
the plane of the fin. For example, if NRP equals the number of constant 
u-velocity panels on the right horizontal fin nes: 


-NRP AF = ae 
ous Right hor. fin ~ y q. . 
n=l 


The axial in-plane force A4F, for one panel is shown in the second sketch 
of Appendix C. In-plane side force APY .is also indicated and 


1- 
a ee ee 
-SUMFY1 = = Yi,n 7 e¢ (22) 


n=] 


The in-plane side force AFy. acting at the outboard aft corner is also 
shown in the second sketch of Appendix C. For all the panels on the fin 
except those at the tip chord , 


NRP-NCW AF, 
SUMFY2 = ae 3 = | (23) 
nel : 


where NCW is: the number of panels iene the chord. Then by adding the 
contributions from the panels at the tip : 
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NRP AF... 
’ Y2 m 
SUMFT2 = x = ay 
n=NRP-NCW+1 “os “7: 


. ? Sans < < 
Section behind canard section: Xp WIE Xp *B , TTE 


Pressure distributions on the aft body from the canard section up to 
the tail section are. calculated in step 6 using program DEMON2. From the 
leading edge of the tail section to the trailing edge (assumed to be at 
the same axial location as the body base), the pressure distributions on 
the body appear under the heading AFT OF LEADING EDGE OF FIN ROOT 
CHORDS . Normal forces and moments acting on the tail fins including 
influence of body nose and canard vorticity are also calculated and 
printed by the program (refer to quantities under Bernoulli-type loading 
pressure). Any augmentation to the fin normal force due to fin leading- 
and side-edge separation can be determined from the hand calculation 
discussed earlier in connection with the canard fins, equations (20) 
through (24). ; 


5.2 Elliptic Cross Section Body-Monoplane 
Wing-Interdigitated Tail Fins. 


The following is a description of the stepwise use of programs 

' DEMON2, WDYBDY and VPATHL for handling a complete configuration with a 
body of elliptical cross section. The manner in which the programs are 
"used sequentially and the exchange of data sets are indicated. The first 
five steps are concerned with the part of the configuration from the body 
nose to the trailing edge of the monoplane wing. The remaining steps 
deal with the body aft of the monoplane wing. section and with the tail 
fins. -Finally, the procedure required to assemble pressure distributions 
and overall forces and moments acting on the entire configuration is 


indicated. 
5.2.1 Sequential use of program 
Step l. Run lifting-surface program DEMON2 with index NCPOUT = 2 in 
a5 my namelist INPUT. This run generates the coordinates of the 


control points associated with the constant u-velocity parels 
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Step 2. 


Step 3. 


distributed on the monoplane-wing and the body-interference 
shell. The number of control points and the sets of coordi- 
nates are stored in a data-set designated TAPE4 = WCPTS. 
There are NWBP coordinates where NWBP equals the number of 
control points on the monoplane wing and the interference 
shell. This shell has constant elliptical cross section and 
covers the body: from the leading edge to the trailing edge of 


the monoplane wing. 


Run body source panel program WDYBDY for the elliptical body 
alone with index NCWPT = NWBP in the input. This causes the 
data set containing control point coordinates designated 
TAPE4 = WCPTS to be read in. The body length should extend 
at least up to the trailing edge of the monoplane wing if the 
trailing edge is supersonic. If this edge is subsonic, the 
body length should extend past the monoplane wing section in 
order to account fully for body-wing interference. This... 
program can also read in forebody separation vorticity 
characteristics calculated by a separate program mentioned in 
section 2 entitled GENERAL APPROACH. Results of,this run 
include pressure distributions along body. meridians up to the 
wing section including effects of body nose vorticity if 
applicable. In addition, perturbation velocities induced by 
body source panels alone at the specified control points are 
calculated. These velocities are stored in another data set 
designated TAPE4 = WVELS and passed to program DEMON2. 


Program DEMON2 is run again for the monoplane wing/elliptical 


‘interference shell with NCPOUT = 0 and NVLIN = 0 in the name- 


list INPUT. The program proceeds to calctlate the constant 
u-velocity panei strengths including the effects induced by 
the body source panels. Output includes the strength and 


‘lateral positions of the leading- and side-edge vorticity 


associated with the monoplane wing as a function of axial 
location. So far, effects of body nose vortices have not 


been included. , - aes 


Run program VPATHL with indices NVLOUT = 1 and NCPIN = 1 in 
the input. It is applied to the monoplane wing/elliptical 
cross section body. The axial starting point is at the 
leading edge of the monoplane wing rootchord. Vortices to be 


tracked to the trailing edge are the body nose vortices whose 
strengths and positions are known at the leading edge of the 
monoplane wing root chord from results obtained with a sepa- 
rate program. The effects of wing leading- and side-edge 
vorticity (kept stationary) can be included in the calcula- 
tion of the paths of the body nose vortices. The values 
given to the indices NCP and:-NCPIN causes program VPATHL to 
read in data set TAPE4 = WCPTS containing coordinates of the 
control points distributed on the monoplane wing and inter-. 
ference shell. After. the body nose vortex paths have been 
calculated, perturbation velocities induced by the body nose 
vortices at the control points are computed and stored in 
data set TAPE? = VRTVEL. In this velocity calculation, the 
effects of the vortices are calculated in the presence of the 
elliptical body only. 


Step 5. Use program DEMON2 again with indices NVLIN=1 and NCPOUT =0 
. in the namelist INPUT. The value of the first index tells 
the program to read in velocities induced by the body nose 
vortices at the control points on the wing and interference 
shell as the vortices pass by the wing section. This infor- 
mation is stored in data set TAPE7 = VRTVEL. The strengths: 
‘of the constant u-velocity panels are then recalculated . 
including the effects of the external body nose vortices, and 
tthe body itself. The output includes pressure distributions on 
the monoplane wing and the length of body spanned by the wing 
_section accounting for all vortices. In addition, strengths 
and positions of the trailing-edge vorticity of the monoplane 
wing are calculated from the spanwise load distributions. At 
this stage, the configuration. has been treated from the body 
_ nose up to the trailing edge of the monoplane wing section. 
Strengths and locations of the body nose vortices, wing 
leading- and side-edge vortices and wing trailing-edge 
vortices are now known at the end of the wing section. 


Step 6. If the tail section is located aft of the wing. section by 
a some length of body, this and the following step must be 
taken in order to track body nose and monoplane wing vortic- 
ity along the body up to the tail fin section. Program 
WDYBDY is run for the elliptic: body only to generate 


oF 


Step 7. 


Step 8. 


Step 9, 
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coordinates of control points associated with the source 
panels laid out from the wing section to the tail section. 
These coordinates are stored in another data set designated 
TAPE4 = BCPTS, which is passed to program VPATHL. 


Program VPATHL is applied again to the elliptical body alone 
from the wing section to the tail section: If there is no 
body length between the wing rootchord trailing-edge and the 
tail fin rootchord leading-edge, this step is omitted. 
Vortices to be tracked over this length along the body 
include the body vortices, wing leading- and side-edge 
vortices and the wing trailing-edge vortices. Strengths and 
positions of these vortices are known at the monoplane wing 
trailing-edge location (see steps 4 and 5). Once the vortex 
paths have been determined, program VPATHL calculates the 
velocities induced by the vortices at the control points on 
the body passed through by means of data set TAPE4 = BCPTS 
generated by step 6. These velocities are to be passed back 
to program WDYBDY using data set designated TAPE7 = VRIVEB 
(step 9). 


Program DEMON2 is applied to the interdigitated tails to 
generate the coordinates of the NWBP control points distrib- 
uted on the fins and the interference shell. Index NCPOUT is 
set equal to 2 in namelist INPUT and the coordinates are 
stored in a data set designated TAPE4 = TCPTS.. This step is 
essentially a repeat of step 1 applied to the tail fin in 


this instance. 


The body program WDYBDY is applied to the entire body length 
of the configuration. Index NCWPT is set equal to NWBP, the 
number of control points on the tail fin and interference 
shell. As in step 2, a data set designated TAPE4 = TCPTS 
containing control points is read in. Velocities induced by 


‘the body source panels at the control points are calculated 


by program WDYBDY. They are stored in a data set designated 
TAPE4 = TVELS to be passed back to program DEMON2. In addi- 
tion, by setting index NVLIN = 1 in the input to program 
WDYBDY, data set TAPE4 = VRTVEB generated in step 7 is read 
in. It contains velocities induced by external body and wing 


vortices. Their effects are included in the calculation of 
pressure distributions on the body from the wing section 
trailing edge to the leading edge of the tail fins. ‘If there 
is no body ‘length between these two stations, no such pres- 


sure distributions are calculated. 


Step 10. In this final step, program DEMON2 is applied to the inter- 
digitated tail fins with NCPOUT set equal to zero. This 
index signals-the program to read in the body source panel 
induced velocities stored on data set TAPE4 = TVELS. For any 
case involving interdigitated fins, set NDRAG equal to zero. 
Strengths and positions of forebody vorticity, wing leading-, 
side- and trailing-edge vorticity are known at the leading 
‘edge of the tail section as a result of step 7, or 5 if there 
is no body length separating the wing and tail sections. 
Their influences are calculated at the tail fin control 
points assuming that the vortex paths are not disturbed by 
the presence of the fin surfaces. Pressure distributions are 
calculated on the fins and the part of the body spanned by 
the tailfin section. In addition, forces and moments acting 


on the fins are computed. 
5.2.2 Assembly of pressure, force and moment data 


The results obtained:-in the stepwise manner described above allow 
for the determination of the pressure distributions and overall forces 
and moments acting on the entire configuration by adding those calculated 


for the separate sections as follows. 


Nose section: 0 < Xx, < XB WLE 
Pressure distributions along body meridians, normal- and side- 
force, pitching- and yawing-moment contributions are calculated by 
program WDYBDY up to the leading-edge of the monoplane wing root chord. 
This is accomplished by step 2. Forces and moments are referred to the 
body~-axis system with Xp directed back along the centerline, Y, to the 
right along the horizontal semi-axis viewing forward and z,: upwards 
along the vertical semi-axis for an elliptical body. In this way, the 
normal force C, points along the positive Zn direction and side force ty 
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in the positive y, direction. Pitching moment is measured in the Yp = 9 
plane. If the pitching moment acts to bring the nose up in this plane, 
the sense of this moment is positive. Yawing moment is measured in the. 


z, = 0 plane. If this moment acts to move the nose into the positive y, 


B 
direction, the sense of this moment is positive. 


Canard. section: Xp /WLE < Xp, < Xp WTE 

‘Pressure distributions along body meridians are calculated by pro- 
“gram DEMON2 over this body section in step 5. Normal - and pide  fOrers 
pitching- and yawing-moment contributions from this body section™ and > ‘the 
monoplane wing are also computed as a result of step 5. 


Section behind canard section up to tail fins (if applicable): 


< 
*p,wre ~ *p < *B,TLE 


Over this length of body, the pressure distributions along body 
meridians are calculated by program WDYBDY as part of step 9. Normal- — 
and side-force, pitching- and yawing-moment contributions are also com- 
puted. If there is no body length, Xp WIE ee B, TLE < 0, this pert of the 
procedure is not applicable. 5 


fat, section: Xp, TLE < Xp < xB TTE 


‘over nie last body section, pressure distributions along body 
meridians are calculated by program DEMON2 in step 10. In addition, 
contributions to the normal- and side-force, pitching- and yawing-moment 
from this body .section* and the tail fins are also calculated as part of 
step 10. 

In’ general it is advantageous to let the number of source panels on 
the body circumference read into program WDYBDY match the number of cir-- 
cumferential constant u-velocity specified in namelist SINPUT of program 
DEMON1. In. this way, the meridians on which pressures are computed are 
essentially the same. Reference areas and lengths must be the same in 
the inputs to programs WDYBDY and DEMON2. Force and moment coefficients 
calculated for the individual sections of the entire conriguratton: can 
then be added to obtain overall forces and moments . . 


“Note that force and moment coefficients associated with the inter- 
ference shell as calculated by program DEMON2 are only representative of 
lift carryover from the lifting surfaces to the body; refer to Appendix J. 


40.. 


6. CALCULATIVE EXAMPLES 


In this section, two sample cases will be described. The first con- 
cerns a configuration designated B,W,T, associated with UPWT Project 1126, 
for which unpublished data was made available by NASA/Langley. This 
model consists of a cruciform canard and a cruciform tail attached to a 
body with circular cross section. The second case involves a wind tunnel 
model consisting of a monoplane wing and interdigitated tail section 
mounted on a body with elliptical cross section described in reference ll. 
These models are used in the sample cases to illustrate the use of the 


“computer program described in this report. 


For both cases, first the procedures used to determine the effects 
of body nose vorticity on the forebody pressures are indicated. Second, 
canard or monoplane loadings are determined including effects of the body 

“nose vorticity. Third, the calculated canard edge vortices and the body 
nose vortices are tracked back through the tail section. for the first 
sample case. Finally, the tail fin loadings are calculated including 
effects of all vortices. Special care must be taken in the positioning. - 
of the interference shell around a body with elliptical cross section as. 


will be discussed below. 


References will be made to the steps listed earlier in section 5. 
The method used to hand calculate the augmentation to normal force due 


to wing-edge vorticity is indicated in section 6.2.3. 


6s Sample Case 1: Axisymmetric Body-Cruciform 
Canard-Cruciform Tail Fins 

The configuration of a model including a body with circular.cross 
section and an ogive nose is shown in figure 4. The cruciform canard and 
tail fins are identical and details of the bevelled sections are indi- 
cated. Programs DEMON2 and VPATH2 are used to treat this configuration . 
rolled 45° and at included angle of attack of 14.216°. . Under these 
conditions the angle of. pitch and sideslip are both equal to 10°. The _.. 
Mach number. is 1.70. Note that there will be no symmetry with respect, to 
the wing-axis system we Ywr Zw in terms of aerodynamic loading. Thus, 
all fins: must be modeled. However, there will be symmetry in loading 
with respect to the direction of the free-stream component in the cross— 


flow plane. In other words, the configuration is in the X-position — 
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relative to that direction. This condition serves as a check on the 
programs. For example, the loads on the upper’ vertical and left hori- 
zontal fins, indicated in figure 4, must be equal. Likewise, the vortex 
paths must be symmetrically positioned relative to the free-stream 


velocity component in the crossflow plane. 
6.1.1 Geometry and singularity layout 


The following geometrical specifications and singularity distribu- 
tions will be used for the axisymmetric body and fins. The specified 
numbers of singularities along the body centerline and on the fins may . 
not be sufficient for precise calculated results. but serve to generate 


this sample case. Refer to figure 4 for geometrical details. 


Namelist SBODY in subroutine BDYGEN of program DEMON 2 ‘includes 
specifications for the body: ; 


number of line sources/sinks and line doublets, NXBODY = 39 
nose length, LNOSE = 7.8 
body length, LBODY = 39.0 


The body radius for the cylindrical section, RB, is specified in the. 
following. 


Namelist SINPUT in main routine CRFWBD of program DEMON2 includes 
specifications for either the canard or the tail fins and the correspond- 


ing body interference shell. 


_xootchord, CRP = CRPV = 3.6 

exposed semi-span, B2 = B2V = 2.34 . 

leading-edge sweep, SWLEP = SWLEV = 30.0° 

trailing-edge sweep, SWTEP = SWIEV = 0.0° 

number of constant u-velocity panels along a chord, NCW = 3 


number of planar source panels along a chord, NCWT = 8 


number of constant u-velocity panels along the span, MSWR = 5 
‘~ "(right horizontal fin) 


- . / MSWL = 5 
(left horizontal fin) 


' MSWU = 5 
(upper vertical fin) 


, : MSWD = 5 
; (lower vertical fin) 
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numbér of planar source’ panels along the span is épecifiea in 
subroutine THKIN of program DEMON2, MSWT = 5 for all fins 

length of body interference shell, BIL = 3.6 : 

.' vadius of body interference shell, RB = 1.3 

number of body iriterference panels on the circumference 
(ring), NBDCR = 16 a, 

number of body interference panel rings, NCWB = 3 

distance from body nose to leading edge of lifting surface 
section, XWLE = 19.8 for canard, XWLE = 35.4 for tail 


The thickness slopes are read in by subroutine THETIN of program DEMON2 
and are determined as follows. The layout specified above for the planar 
source ‘panels is shown by the thin lines superimposed on the fin planform’™ 
in figure 4. At the centroid of each panel, the streamwise slope is to 
be specified. If the centroid lies on a bevelled portion of the fin, the: 
streamwise slope equals the slope of the fin surface measured parallel to 
the fin rootchord. For centroids on the bevelled portion near the . 
leading edge, the streamwise slope is given by 


ts - — 0.075 _ 
THET. = tan O = e145 = 0.122 . (25) 


On the unbevelled portion, the slope equals zero. Near the trailing 
edge, the streamwise Slope equals 


THET = tan 6, = - 0.075 = -09.242 (26). 


Near. the side edge, the streamwise slopes are chosen on the basis of the 
location of the source panel centroid on the fin. The above input 
parameters will be used in all runs with program DEMON2 described in the 
procedure for an axisymmetric body configuration, section 5.1. . 


6.1.2 Body nose vorticés, pressure distributions on forebody 


“In accordance with. step ib described in section 5.1.1, program 
DEMON2 is run using the input data shown in figure 5. These data include 
the geometrical specifications and numbers of singularities laid out to 
represent the body-canard section of the complete configuration. The 
input data required by program DEMON2 is described in detail in Appendix 
J. Note that control index NCPOUT must be set equal to 1. The output of 
this run is shown in figure 6. It includes a printout of the data set, 
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designated CPTS1, containing the 108 sets of coordinates of the control 
points distributed over the canard fins and the interference shell. This 
data set will be used later. The output also includes pressure coeffi- 
cients as a function of polar angle for 10 axial ‘locations from the body 
nose. The polar angle is named THETA and is measured positive counter- 
clockwise from the positive Yp OY Yw axis. The number of axial stations 
on the forebody at which the pressures are calculated is equal to one | 
half of the body line singularities up to the canard section. Subroutine 
BDYVTX of .program DEMON2 calculates the separation point to be at Xp = 
17. > inches or at about the fifth axial station. From that location on 
to the canard section, the shed vorticity is represented by two concen- 
trated vortices growing in strength and moving in the crossflow plane in 


accordance with the data base built into subroutine BDYVTX. 


“The pressures acting on the forebody are calculated in subrouesne 
BDYPR using the Bernoulli pressure expression, equation (10) in coeffi- 
cient form. In terms of p/p,, where p, is the free-stream static pres- . 
sure, the pressures are plotted in figures 7(a) and 7(b) as a function of 
axial distance x, from the body nose for several polar angles. The solid 
line represents pressures including body vortex effects. Pressures 

computed without effects of body vorticity are indicated by the crosses.. 
From the onset of the body vortex shedding modeled by two discrete 
vortices, the Bernoulli pressures include effects induced by the external 
vortices and their images inside the body. Along the symmetrically 
located meridians, at @ = 45° and 225° on figure 7(a), the effect of the 
body vortices is to increase the pressures slightly. Note that the 
pressure distributions along these meridians are identical due to flow 
symmetry. However, the meridians at 6 = 135° and 315°, figure 7(b) showno 
effect from the body vortices. On account of flow symmetry, the vortices 
and their images inside the body induce zero lateral velocity components 
along these meridians. Thus, the pressures are not affected by the body 


nose vortices along these meridians. 

At the leading edge of the canard section, the body nose vortices 
are fully developed. -The paths of the vortices as they pass through the 
canard section will now be determined and the canard fin loadings calcu- 


lated.. 
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6.1.3 Pressures and loads acting on the cruciform 
canard-body section 


The pressures, forces and moments acting on the fins and body " 
covered by the interference shell excluding body nose vortex effects are 
available in the output of the run performed with program DEMON2 just 
described. To account for the body vortices requires knowledge of their 
lateral coordinates as a function of axial distance through the canard 
region. In accordance with step 2 of the procedure, section 5.1.1, 
vortex tracking program VPATH2 is now employed to accomplish that task. 


In order to improve accuracy, the strengths and positions of the 
body nose vorticity at the leading edge of the canard section are 
obtained from figure 5, reference 4, instead of the body pressure output 
mentioned above. For the last axial station, Xp = 18.98, at which body 
pressures are calculated as a result of the previous step, the body 
vortex strength, T/V,, equals 0.71. The canard leading edge is at x, = 
19.8 and the value for the body vortex strength equals 0.8024 in accord-— 
ance with the cited figure. © The lateral positions of the vortices are 
also determined at the canard leading-edge location. Body nose vortex 
strengths and lateral coordinates, in the body reference coordinate 
system, to be read in to program VPATH2 are given in the following table. 





r/V. | Yeon = Spey CF | pays 
0.8024 © 0.64337 = =—-1.8382 19.8 


‘-0.8024 -1.8382 0.64337 19.8 


‘For this run with program VPATH2, indices NCPIN and NVLOUT are set equal- 
to l. After the vortex paths are calculated, the vortex induced veloci- 
ties are determined at the control points on the canard fins and the 
interference shell. In this process, the vortices are in the presence of 
the body only. The purpose for this approach is described in section 3.4. 


The input for. program VPATH2 for this run is shown ‘in figure 8. The 
output is shown in figure 9. It includes the lateral positions, in the | 
body reference coordinate system, of the body nose vortices at the 
trailing edge of the canard section. They are given in the following 
table. 
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r/v. Yaov 2B ,V *B,V 


a 





0.8024 : -0.68451 1.9192 23.4 
-0.8024 -1.9192 0.68451 23.4. 


Comparison with the previous table indicates a small amount of lateral 
movement of the body vortices as they travel through the canard section. 
The vortices are located symmetrically with respect to the free-stream 
component in the crossflow plane. The output also shows the vortex 
induced velocities at the 108 control points associated with the canard 
fins and interference shell. Control point coordinates and vortex 


induced velocities are stored in a data set designated VELOS1. 


In order to determine the effects of the body nose vortices on the 
canard section, program DEMON2 is run again in accordance with step 3 of 
section 5.1.1. The input for this run is the same as shown in figure 5 
except for index NVLIN now set equal to 1 and index NCPOUT set equal to 
its default value 0. The forebody pressures appear unchanged in the 
output shown in figure 10. Vortex induced velocity components designated 
VVEL and WVEL are printed out under the heading POINT COORDINATES AND 
PERTURBATION VELOCITIES CALCULATED BY PROGRAM VPATH2 or VPATHL. These 
velocity components are included in the boundary conditions, equations 
(1) through (4), and the strengths of the constant u-velocity panels are 
recalculated. The pressures calculated at the control points on the fins 
and interference shell are changed because of the recalculated panel 
strengths and the inclusion of vortex induced velocities in the Bernoulli 


vy 


pressure determination. 


Figures ll(a) and 11(b) show the pressure distributions on the fore- 
‘body and over the length of the canard section. The latter are taken 
from program DEMON2 output under the heading AFT OF LEADING EDGE OF FIN 
ROOTCHORDS. As before, the solid line represents pressures calculated 
including the body nose vorticity; the crosses are pressures without body 
vorticity. For the symmetrically located meridians at 6 = 56.25° and 6 = 
213.75°, the effects of body nose vorticity are negligible over the 
canard section. Along the symmetrically located meridians at @ = 101.25° 
and 6 = 168.75°, the effects of the body vorticity are to increase the 
pressures. The output shown in figure 10 includes loadings for all fins 
based on linear pressure and Bernoulli pressure. In both cases, due to 
flow symmetry the loadings on the right horizontal and lower vertical 
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fins are identical as are the loadings on the upper vertical and left 
horizontal fins. On the right horizontal fins, figure 12 shows slight 
effect of the body nose vorticity on the span loading. .Due to the closer 
proximity of the upper vertical fin to the vorticity, the span loading is 
reduced significantly in the inboard region. In figure 13 the dashed 
curve (with vortices) exhibits a maximum and drops off in magnitude 
towards the fin root. In accordance with the analysis in Appendix B, 
this type of span load distribution gives rise to an inboard and outboard 
concentrated vortex at the trailing edge of this canard fin. The right 
horizontal fin does not show any extrema off the root and only one 
concentrated vortex results at the trailing edge. The leading edges of 
the fins are supersonic for the Mach number at hand so there is no 
leading-edge separation vortex in accordance with the analysis in 
Appendix C. The side edges of the fins give rise to a separation vortex 
with negligible strength as shown below. Thus, at the trailing edge of 
the canard section, the strengths and locations of body and canard 
vortices are assembled for the purpose of determining their paths to the 
base of the body. Their characteristics are taken from the output of 
program DEMON2 as a result of step 3, section 5.1.1. The body nose 


vortex specifications are taken from the output of program VPATH2 as a 


C 


result of step 2. 





a Yp,v 2B AV By 

0.8024 -0,.68451 1.9192 23.4 

-0.8024 -1,9192 0.68451 | body nose vortices 

0.94911 3.15424 0.0 | 23.4 right hor. fin T.E. vortex 
0.05844 © -2.09688— 0.0 inboard 16£e HSSe fin 
-0.59187 -3.46609 0.0 outboard | T-E- vortices 
-0.05844 0.0 | 2.09688 . inboara | upper vert. fin 
0.59187 — 0.0 3.46609 . outboara | T-E- vortices 
-0.94911 0.0 -3.15424 lower vert. fin T.E. vortex 

0.01491 3.64 10.0 23.4 right hor. fin S.E. vortex 
-0.01797 =3.64... v0.0 | left hor. fin S.E. vortex 

0.01797 0.0 3.64 “upper vert. fin S.E. vortex 
-0.01491 ~0.0 '-3.64 ' lower vert. fin S.E. vortex 





In this table, the trailing-edge vortex characteristics, GAMMA/VINF and 
Y¥.C.G. or Z.C.G., are obtained from the loading output under the heading 
BERNOULLI TYPE LOADING PRESSURE. | The side-edge vortex characteristics, 
GAMMA,SE/VINF and YBAR or ZBAR, are obtained from the loading output! 
under the heading U/VINF LOADING PRESSURE. The strengths of the side_ 
edge vortices are negligible compared to the strengths of the body nose_ 
and trailing edge vortices and will not be included in further analysis. 


- At the top of figure 14, all the vortices excepting the side-edge 
vortices listed in the above table are shown in position at the canard 
trailing edge, Xp = 23.4. They will eventually be tracked down the body 
through the tail section. However, before determining the vortex paths- 
over the aft body, the body tail section must be dealt with in accordance 
with step 4 of section 5.1.1. Program DEMON2 is used again to model the 
body and the cruciform tail fins without: accounting for the presence of 
body nose and canard fin vortices. The input for this run is the same as 
shown in. figure 5 except that the distance from the nose to the tail sec- 
tion, XWLE, is now set equal to 35.4. Also, indices NCPOUT =1, NVLIN = 0 
and ITAIL = 1 in Nnamelist SINPUT. Quantity XSTART is set equal to the 
trailing-edge location of the canard section, XSTART = at 4. With these 
specifications, the program generates a data set, designated CPTS2, 
containing 268 sets of coordinates. Of this set, the first 108 sets 
pertain to the control points on the tail fins and interference shell.. 
The remaining 160 are associated with points on the body aft of the 
canard section up to the tail section at which. pressures will be calcu- 
lated. The output for this run is not shown. The calculated pressures 
on the body. meridians and the tail fin loadings do not include effects of 


body nose and canard vortices so far. 


6.1.4 Vortex positions at body base, pressure distributions 
on aft body, tail fin Honden gs 


Using program VPATH2, the vortices shown in the upper part of 
figure 14 are chased from the trailing edge of the canard section, past 
the aft body, through the tail section to the body base. In accordance 
with step 5 in section 5.1.1, the input to program VPATH2 for this run 
includes index NCPIN = 1 and index NVLOUT = 1. The input for this run 
is shown in figure 15. Under the influence of the free stream, the 
mutual interaction between the vortices and the effects of the presence 
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of the: body and tail section, the vortices move as a function of axial 


distance. 


After the vortex paths have been determined, the vortex induced 
velocity components will be calculated at the 268 sets of coordinates 
associated with points on the aft body, tail fins and interference shell. 
Again, in this process the vortices are in the presence of the body only. 
The output of program VPATH2 is shown in figure 16. The bottom half of 
figure 14 shows the vortices at the base of the body as taken from the 
output at the Xx, = 39.0 station (x~station no. 26). ° Comparison with the 
upper half shows that the body nose vortices did not move nearly as much 
“as the vortices associated with the fins. The output also includes the 
velocity components induced by the vortices at the set of 268 points 
read in to the program. The control point coordinates and the induced 


velocity components are stored in a data set called VELOS2. er 


As described in the last step 6 of section 5.1.1, program DEMON2 ‘is 
‘applied one more time to the tail fins and body. However, in this 
instance the input to program DEMON2 includes index NVLIN = 1 and 
ITAIL = 1. The input is shown in figure 17. Vortex induced velocity 
components are now included in the flow tangency condition applied at ‘the 
control points distributed over the fins, equations (1) through (14). °*| 
They are also included in the Bernoulli pressures calculated by sub- 
routine BDYPR over the aft body and the part of the body covered by the 
interference shell associated with the tail fins. The output of this run 
is shown in figure 18. The pressure distributions and forces and moments 


acting on the tail fins now include effects ‘induced by the body and 


canard fin vortices. 


The pressures calculated along meridians at 6 = 11.25°, 56.25° and 
101.25° are shown in figure 19. The solid lines are the pressure distri- 
butions calculated including vortex effects and the crosses are calcu- 
lated with vortices absent. The 11.25° and 101.25° meridians are on the 
suction sides of the right horizontal and upper vertical fins, respec- 
tively. Therefore, through the tail section, the pressures on these 
meridians are lower than the pressures on the 56.25° meridian. In 
genéral, over the aft body and through the tail section, the calculated 
effect of the body nose and canard vortices is to increase the pressures 


along the meridians shown. 


49 


The effect of the presence of vortices on the span loadings acting 
on the right horizontal and upper vertical fins are shown in figures 20 
and 21. The tail fins are identical in geometry to the canard fins. | 
Without vortices, the solid lines indicate that the span loading on the 
right horizontal and upper vertical fins are practically identical to 
those on the corresponding canard fins; see figures 12 and 13. However, 
an the tail region the body nose and canard vortices have larger influ- 
ence in reducing the loadings on the two fins as shown in the figures by 
the dashed lines. On account of symmetry about the component of free 
stream in the crossflow plane, the loadings on the left horizontal fin 
are reduced to the same extent shown for the upper vertical fin in 
figure 21. Likewise, the loading on the lower vertical fin is reduced to 


the same extent indicated in figure 20. 


6.2 Sample Case'2: Elliptic Cross Section Body- 
Monoplane Wing-Interdigitated Tails 


The configuration of a model including a body with elliptical cross 
section is shown in figure 22. The body has an ellipticity ratio of 3. 
A monoplane wing and interdigitated tail fins with bevelled streamwise 
sections are attached to the body. Programs WDYBDY, DEMON2 and VPATHL 
are used to analyze this configuration at angle of attack of 10° and zero 
roll angle. The Mach number is 1.70. Under these conditions, there will 
be a symmetry plane at Va > 0 in terms of the aerodynamic loading. Thus, 
only the right monoplane wing and the right upper and right lower inter- | 
digitated tail fins need to be modeled by program DEMON2. ~ For the same 
reason, only the right half of the body needs to be modeled by source 
panels by means of program WDYBDY. . Any vortices analyzed by program 


VPATHL will also be symmetrically positioned with respect to the be 0 


plane. 
6.2.1 Geometry and singularity layout 


The following geometrical specifications and singularity distribu- 
tions will be used for the elliptical cross section body with ‘monoplane 
wing and interdigitated tail fins. The specified numbers of body source 
panels to model the body and the numbers of chordwise and spanwise 
constant u-velocity panels to model the wing and tail fins give rise to 
a sparse layout. As such they may not be sufficient for precise : 
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calculated results but serve to generate this sample case. Refer to 
figures 22 in connection with input to program WDYBDY and figure 23 in 
connection with input to program DEMON2 for geometrical details. 


The input to program WDYBDY includes the following specifications 
for the body with elliptic cross section. There will be two sets, depend- 
ing.on which lifting-surface section the effects of the body are to be 


f 
determined. 


Set #1.- Monoplane Wing Section 


Body length to be modeled = 25.6 (covers the monoplane wing 
section) 

Number of body source panels on the half circumference or half 
ring + 1 = KRAD, KRAD = 9 (8 panels/half ring) 

Number of body source panels in the axial direction or number 
of rings + 1 = KFORX, KFORX = ll (10 panels axially) ° 

Body length over which pressures and loads are to be computed 
by program WDYBDY, XWLE = 18 (Program DEMON2 covers the winged 


section). 


Set #2 - Interdigitated Tail Section 


Body length to be modeled = 28.0 (covers the interdigitated tail 
section) , 
Number of body source janis on 4h half circumference or “half 
ring + 1 = KRAD, KRAD = 9 (8 panels/half ring) 
Number of body . source panels in the axial direction or number 
of rings + 1 = KFORX, KFORX =-12 «11 panels axially) 
The step for which this data is the partial input, no pressures 


and loads are computed 


The first set will be used for the run with program WDYBDY in accordance 
with step 2, section 5.2.1, and the second set will be used for the run 

in accordance with step 9, section 5.2.1. The body source paneling lay- 
out associated with both sets is shown in figures 24{a), 24(b) and 24(c) 
in planview, sideview and cross section, respectively. Note that only, the. 
right half of the body will be modeled. 


Namelist SINPUT in main routine CRFWBD of program DEMON2 includes 
specifications for the lifting surfaces and their associated interference 
shells. If the’ body is modeled by means of body source panels, as is the 


case here, it is important that the entire interference shell be exterior 
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to the body source panels. If the shell were made to lie partially on 
the inside of the body outline, some of the control points distributed 

on the interference shell may lie on the interior side of one or-more 
body source panels. In this case, the velocity components induced by the 
source panels at those points would be invalid.* As a consequence, the 
interference shells are laid out and the monoplane wing is idealized as 
shown in figure 23. For the monoplane wing attached to its interference 
shell with elliptic cross section, the input includes the following. 


(refer to figure 23): 


rootchord, CRP = 7.55 

exposed semispan, B2 = 1.0935 

leading edge sweep, SWLEP = 75.0° 

trailing edge sweep, SWTEP = 30.016° 

number of constant u-velocity panels along a chord,.NCW = 2 

number of planar source panels along a chord, NCWT = 4 

number of constant u-velocity panels along the span, MSWR = 3" 

number of planar source panels along the span is specified in 
subroutine THKIN- of program DEMON2, MSWT = 3 

length of body interference shell, BIL = 7.55 

horizontal semi-axis of elliptical interference shell, RB = 
3.4641 

vertical semi-axis of elliptical interference shell, RA = 
1.155 ; 

Note: the ellipticity ratio, RB/RA = 3.0 

number of body interference panels on the circumference (ring), 
NBDCR = 16 , 

number of body interference rings, NCWB = 2 


distance from body nose to monoplane wing section, XWLE = 18.0 


The thickness slopes are read in by subroutine THETIN of program DEMON2. 
They are determined in the manner described for the first sample case, 
section 6.1.1. Using the detailed streamwise sections available from 
reference 11, the following streamwise slopes are used. For.centroids of 
planar source panels near the leading edge, the streamwise slope is given 


by 





x 
The solution associated.with body source panels, reference 9, is 
valid only in the plane of the panel and along the outward normal. 
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THET = tan 6. = = 0.049692 (27) 


On the unbevelled portion, the slope equals zero. -Near the trailing 


edge, the-streamwise slope equals 


= 0.125 _ 
THET = tan Oo. = a epae = -0.07889 (28) 
@ Vv 
For the upper right and lower right interdigitated tail fins attached: to 
its interference shell, the input includes the following (refer to 


figure 23). Thickness is not accounted for. 


rootchord, CRP = CRPV = 3.6 
exposed semispan, B2 = B2V = 3.6 


leading-edge sweep (varies with distance.along the span), 


VSWLER = 45.0° up to YRT = 2.0 
BPPES VSWLER = 14.04° up to YRT = 3.6 


right 
fin | Note: since leading-edge sweep varies, the trailing edge must 


also be specified as if it varies with distance along the span 
trailing-edge sweep, VSWTER = 0.0 for all YRT 


leading-edge sweep (varies with distance along the span), 
iswer VSWLEU = 45.0° up to ZUT = 2.0 
right VSWLEU = 14.04° up to ZUT = 3.6 
fin ; 
a see note above 
.trailing-edge sweep, VSWTEU = 0.0 for all ZUT 


number of constant u-velocity panels along a chord, NCW = 2 


. number of constant u-velocity pater along the span, MSWR = 4 
(upper right fin) 


MSWU = 4 
(lower right fin) 


length of body interference shell, BIL =.3.6 
‘horizontal semi-axis of elliptical interference shell, 


RB = 3,129 
vertical semi-axis of elliptical interference shell, 
RA = 1.043 ‘ 


Note: the ellipticity ratio, RB/RA = 3.0 

number of body interference panels on the cixcumference (ring), 
NBDCR = 16 

number of body interference panel rings, NCWB = 2 
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distance from body nose to tail section, XWLE = 24.4 

angle of the location of the fins on the interference shell 
measured from positive Y,7axis, THETIT = 22.545° 

dihedral angle of the fins, PHIDIH = 30° 


Angles THETIT and PHIDIH are also indicated in figure 3. The above sets 
of input parameters will be used in the runs with programs WDYBDY and 
DEMON2 described in the procedure for a body with elliptical cross sec- 


tion, section 5.2. 
6.2.2 Body nose vorticity, pressure distributions on forebody 


After running program DEMON2 in accordance with step 1, section 
5.2.1, to generate data set WCPTS, program WDYBDY is then run to model 
the body with elliptical cross section. The input to program WDYBDY 
includes the parameters in the first set described above and index NCWPT 
which must be set equal to the sum of all constant u-velocity panels on 
the monoplane wing and the interference shell. The length of body, to be 
modeled for this run, is taken to the trailing edge of the interference 
shell: associated with the monoplane wing. The input for this run is 
shown in figure 25. For this case, the geometry of the body with ellip- 
tical cross section is given in terms of the horizontal semi-axis, FUSBY, 
and the vertical semi-axis, FUSAZ, as a function of axial location XFUS. 
Also included are the body nose vorticity characteristics, if indices 
NVTX and NXVTX are nonzero, provided by a separate program; see section 
2.2. The axial stations at which this data is to be specified are read 
in from subroutine READVX and the lateral locations and strengths of the 
vortices are read in by subroutine ELBDVT. The output of this run is 
given in figure 26. Included in the output are the pressure coefficients 
designated CP and printed on the page identified with **FORMOM**. They 
are plotted in figures 27(a) and 27(b) from the body nose up to the 


leading edge of the monoplane wing section. 


Figure 27(a) shows pressure distributions on the upper half of the 
body. The open symbols include effects of body nose vorticity. Pressure 
distributions without vortex effects are also shown by the solid symbols. 
In the legend, the first column of symbols are for meridians on which 
pressures are calculated over the forebody, the second column are for 
the monoplane wing section and the third for the tail section. For the 


moment, the forebody .only is considered. The pressures shown in 
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figure 27(a) are below free~stream static pressure. The effects of the 
specified body nose vortices are to increase the pressures along the 9 = 
9.07° meridian and to decrease the pressures along the ® = 31.41° merid- 
ian. On the lower half of the body, figure 27(b) shows that the effects 
of the body vortices are much less. Only one result is shown without 
vortex effects and there is little difference between the dark and light 
triangles. The output also includes the contributions from the forebody 
to the overall forces and moments under the heading TOTAL COEFFICIENTS ON 
THE BODY FROM XSTART = 0.0 to XWLE = 18.0. In order to improve the accu- 
racy of these contributions, especially with vortex effects, the number 


of source panels should be larger than used here in this sample case. 


Program WDYBDY also computes: velocity components, induced by the 
body source panels only, at the control points distributed over the mono- 
plane wing and interference shell read in by means of data set WCPTS. 
These velocity components are stored in a data set designated WVELS for 


later use by program DEMON2. 


6.2.3 Pressures and loads acting on the monoplane 
wing-body section 

After completing the calculations of pressures and loads acting on 
the forebody, program DEMON2 is applied to the monoplane wing-body section 
in accordance with step 3 of section 5.2.1. As a result of this run, the 
loadings acting on the monoplane wing section are calculated excluding 
effects of body nose vorticity. The output also includes the strength, 
I/Veol cage’ and lateral position, Yyye of the leading- and side-edge vor- 
ticity as a function of axial coordinate x,- Values for these character- 
istics are taken from the loading output under the heading U/VINF TYPE 
LOADING PRESSURE. Leading-edge vorticity is designated GAMMA,LE/VINF, 
side-edge vorticity is GAMMA,SE/VINF, and the lateral location appears as 
YBAR. Along the leading-edge, the axial coordinate is XLE, along the 
side-edge it is XSE, both are in the wing coordinate system. The values 
shown in the following table are taken from the output of program DEMON2 
for the right monoplane wing half. They are calculated with KY LE = 
K = 0.5 (refer to Appendix C, equation Cll, etc.). Note that x, is 


v,SE 
the axial coordinate in the wing coordinate system. 
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z_| 


xy Yw Ves edge 
0.66148 3.64135 0.27984 
2.01812 3.82511 0.27786 } pe ae 
3.37295 4.03457 0.28634 J sege 
4.081 4.34073 0.44937 along 
6.13099 4.40075 0.58150 side edge 


Following step. 4 of section 5.2.1, the’ vortex’ chasing program VPATHL 
is then employed to determine the paths of the two body nose vortices 
from the leading edge to the trailing edge of the monoplane wing section. 
The input for this run is shown in figure 28. Characteristics of the two 
symmetric body nose vortices at the start of the wing section are speci- 
fied on the 9th line. Note that these two sets of characteristics are 
also shown in the input to program WDYBDY indicated in figure 25 at the 
last axial station associated with the forebody,: XV = 18.0, on the cards 
marked YVRTX1, ZVRTX1, GAM1, and YVRTX2, ZVRTX2, GAM2, respectively. 
Also, the characteristics of the symmetric vortices on the opposite side 
of the plane of symmetry, Yn = 0 plane, must also be input to VPATHL. 

The starting values of the symmetric body nose vortex strengths and 
lateral positions are given in the following table with Xpr Yp and Zp in 


the body coordinate system. 


Tr 
xB YR 23 ve Bod nose 
18 2.35 1.673 1.52 


18 -2.35 1.673 -1.52 


The body nose vortex characteristics as a function of distance from the 
nose were determined by an adapted version of the program associated with 
reference 5 as mentioned earlier in section 2.2. Although the magnitude 
of the body nose vortex strength is at least 2.5 times the magnitude of 
the edge vorticity strength, for illustrative purposes the edge vorticity 
will be included in the determination of the body nose vortex paths. 
Thus, the input to program VPATHL shown in figure 28 also includes the 
edge’ vorticity specifications listed in the first table above. At this 
stage, the edge vorticity characteristics are only approximate in that 
the body nose vortex effects have not been included in the wing loading 


nor the edge vorticity distribution as calculated in step 3. 
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After the body nose vortex paths are known and the wing loading 
recalculated in step 5, described later, the updated edge vorticity dis- 
tribution should be compared with the one given in the first table. If 
differences are sufficiently large, the calculations performed by steps 
4 and 5 should be repeated until the edge vorticity distribution is con- 


verged. 


Figure 29 shows the output of program VPATHL. The geometry of the 
monoplane plane.wing in-planform appears under the heading FIN GEOMETRY. 
The specified strengths and lateral coordinates of the leading- and side- 
edge vorticity as a function. of axial: distance measured from the body nose 
also appears on the first page of the output. The horizontal and vertical 
semi-axes of the. body are held constant over the monoplane wing section. 
In fact, the.body. nose vortices pass over the idealized monoplane wing 
attached to the interference shell as indicated in figure 23. At the 
location. corresponding to the trailing edge of the monoplane wing section, 


X, = 25.5,,the coordinates in the crossflow plane of the body nose vor- 


B 
tices are given. below. 


r 

2: - YB 23 Vo | Bod nose 
; 25.5, 2.4609 1.8792 1.52 
25.5 -2.4609 1.8792 © -1.52 


Comparison with the preceeding table shows that the body nose vortices 
move upward and outboard by a small amount. If the monoplane edge vor- 
ticity is neglected in the calculation of the body nose vortex paths, the 
results shown in the table below would be generated by program VPATHL. 

It is seen that for this illustrative example, the body nose vortices 


move higher’ but do. not move as much outboard when the effects of edge 





25.5 2.4276 1.9509 1.52 
695 54%. 222540976 1.9509 23552 


vorticity are not included. In an actual calculation, the characteristics 
of the leading-. and side-edge vorticity must be determined with a larger 
number ,of panels than is used in step 3. The last part of the output 
generated by program VPATHL contains the velocity components induced by 
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the body nose vortices at the control points of the monoplane wing. These 


data are stored in data set VRTVEL. 


In accordance with step 5 of section 5.2.1, program DEMON2 is run 
again to obtain the pressures acting on the monoplane wing-body section 
including effects of body nose vortices. In this run index NVLIN is set 
equal to 1 thereby causing data set VRTIVEL to be read in. The input of 
program DEMON2 is shown in figure 30 for this run. Output generated by — 
program DEMON2 is shown in figure 31. The last patt’ Contains the pres- 
sures acting along meridians on the interference shell under the heading 
AFT OF LEADING EDGE OF FIN ROOTCHORDS. Figures 27(a) and 27(b) include 
calculated pressures along 4 meridians on the interference shell. They 
are indicated by the second column of symbols and correspond to axial 


locations x, = 21.58 and xX, = 25.36. These meridians are essentially the 


same™ ae the meridians for which pressures are plotted on the forebody.- 
Over the upper half of the body; figure 27(a), the pressures through the 
monoplane wing section continue below free stream. Open symbols include 
effects of body nose vortex effects and the solid symbols are calculated 
excluding the body nose vortex effects. Along the 85 = 11.25° meridian 
the effects of the vorticity is to increase the pressure appreciably and 
along the 9 = 33.75° meridian the pressure is decreased. On the lower 
half of the body, the results shown on figure 27(b) show little effects 
fromt the body nose vorticity including the axial locations at xX, = 21.58 


and: 25.36. 


The span-load distribution associated with the monoplane wing is 
shown in figure 32. The calculated results include body nose vortex 
effects. The solid line represents the potential span-load distribution 
which does not exhibit a maximum off the wing rootchord in contradistinc- 
tion with the results computed for the cruciform canard of Sample Case 1 
shown in figure 13 and discussed in section 6.1. For the indicated Mach 
number, the leading edge of the monoplane wing lies aft of the Mach cone 
with its vertex at the leading edge of the rootchord. -Therefore, the 
leading edge is subsonic and the program calculates the suction distribu- 
tiom along that edge. Using the Polhamus vortex~lift analogy with the 


proportion of the leading edge suction converted to normal force equal 


"Slight differences in polar angle are due to differences between 
geometry of body source panel layout and body interference panel layouts. 
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‘to 0.5 (refer to Appendix C), the dashed line represents the augmented 
span loading up to the side edge. The increments added to the potential 
span loading are obtained from the spanwise distribution CS*C/(2*B) for 
the right wing. They are calculated on the basis of linear pressure 
loading under the heading U/VINF TYPE LOADING PRESSURE, and must be 
multiplied by 0.5. . The side edge also contributes to the calculated 
additional normal-force distribution which would be concentrated near 


the tip but is not shown in figure 32. 


The augmentation to the normal-force coefficient for one wing half | 
can be determined by multiplying the ‘suction coefficient Cy LE for the 


leading edge by the appropriate factor K -and adding it to the suction 


v,LE 


coefficient for the side edge Cy multiplied by the appropriate factor 


Ky SE’ The suction fe the leading edge is proportional to 
the accumulated quantity CSINT(I) with index I equal to the number of 
panels in the spanwise direction. This number is equal to the quantity 
MSWR, specified in the input for program DEMON2, for the right wing half. 
In: other words, the last value under the heading CSINT is taken from the 
spanwise distributions calculated on the basis of linear pressure loading 
of the lifting surface under consideration. This value must be multiplied 
by 2b where b is twice the exposed semispan, b/2, specified in the input 
of program DEMON2:and divided by the reference area SREF’* The suction for 
the side edge can be obtained from a numerical integration of the quantity 
SUCTION FORCE PER UNIT LENGTH/(Q*TIPCHORD) which appears under the heading 
SIDE EDGE DISTRIBUTION in the loading output calculated with linear pres- 
sure loading. Setting this quantity equal to Cs ggg’ the suction coeffi- 
cient associated with the side edge is given by 


2 : 
es 5 EE ON . CrIp ,JSE tay 
S|side edge SREF JsE=1 .9/ISE Crip 


In the above expression, Corp is the chord of the side edge or wing tip, 
S REF is the reference area and NCW is the number of constant u-velocity 
panels in the chordwise direction. Thus for one wing half, the augmenta- 


tion to the normal-force coefficient due to leading- and side-edge vor- 
ticity can be computed as follows. . a? 


a oreo + (28) 


c v,LEcs|te + ¥v,se°s|se 


N| LE+SE 
vorticity 


‘ 


The vortex lift factors Ky LE and Ky SE are discussed in Appendix C. 
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The above process for the calculation of the augmentation to normal 
force due to leading- and side-edge vorticity must be repeated for each 
wing half. Since the flow conditions (including the presence of body nose 
vorticity) and configuration geometry are symmetric with respect to the 
Yp = 0 plane, the resulting loading on the body and lifting surfaces are 
also symmetric. Thus, the augmentation given by equation (28) must be 
doubled. 


Finally, the updated characteristics of the monoplane wing leading- 
and side-edge vorticity also appear in the loading output under the head- 
ing U/VINF TYPE LOADING PRESSURE. They are listed below and at this 
Stage (step 5) include effects of body nose vorticity. Comparison with 
the results excluding body nose vorticity shown in the first table of 
this section indicates an appreciable drop in strength and a slight out- 
board movement. On the basis of the difference in vorticity strength, an 


r 
xy Yw Veo edge 
0.66148 3.64135 0.19406 
2.01812 3.83365 0.19763 ) es Pame . 
3.37295 4.05562. . 0.21123 aSEnS: Sg 
4.081 4.36126 0.35606 along 
6.13099 4.41828 0.47179 side edge ; 


iteration would be recommended for an actual calculation. Note that a 
drop in edge vorticity strength would result in less influence in the 
body nose vortex path calculation. This should speed up the convergence’ 


mentioned earlier in this section. 


6.2.4 Pressures and loads acting on the 
interdigitated tail-body section 


: According to figure 23, the monoplane wing-body section actually 
overlaps the interdigitated tail-body section. Thus, there is no after- 
body separating the former from the latter. Consequently, steps 6 and 7 


described in section 5.2.1 are omitted. 


In dealing with the overlap situation, the following approximate 
procedure is adopted. The strengths and positions of the body nose vor- 
tices and the monoplane wing vortices are calculated by the preceding 
steps 4 and 5. The axial locations at which these characteristics are 


now known vary a little. The body nose vortices are known at x, = 25.5. 
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The monoplane wing vortices are calculated somewhat aft of this location 
on or slightly above the trailing edge at different spanwise locations. 

For the purpose of determining the effects on the interdigitated tails, 

the vortices are assumed to pass through the tail section in a direction 
parallel to the body centerline. Their lateral positions are taken from 
the results obtained earlier. The following table contains the coordinates 
in the crossflow plane and the strengths of the external vortices influ- 
encing the pressures and, loads .acting on the interdigitated tails and 

body section. They will be part of the input to program DEMON 2 applied 


; uate J. 
: Yz 23 . Vie 
2.4609 1.8792 1.52 °° oe 
-2.4609 - 1.8792 -1.52 } body nose vortices 
4.41828 0.661. 0.47179 combined LE and SE vorticity 
-4.41828 0.661 -0.47179 at TE of monoplane wing 
4.38465 0.0 0.59704 TE vortices on TE of mono- 
-4.38465 0.0. -0.59704 plane wing 


to the tail section. Note that the strengths and positions of the 
symmetry vortices must also be specified. The body nose vortex charac- 
teristics appear in the output of program VPATHL for the last axial | 
station at XB = 25.5 as a result of step 4. The combined leading- and 
side~edge vorticity characteristics at the wing trailing edge are obtained 
from.the output of program DEMON2 as a result of step 5. They» are taken 
from the distribution of vorticity along the side edge under the heading 
U/VINF TYPE LOADING PRESSURE. The accumulated value of the side- -edge 
vorticity added to the leading-edge vorticity is taken at the wing trail- 
ing edge. In other words, the last values in the columns headed YBAR and 
GAMMA,SE/VINF are listed above. The vertical displacement is determined 
on the basis of the leading- and side-edge vorticity leaving the monoplane 
wing surface at an angle equal to half the angle of attack seen by the 
wing. With a rootchord equal to 7.55, refer to figure 23, the vertical 


displacement at the trailing edge is given by 


Zz = (7.55)-tan 5° = 0.661 | y - (29) 


The trailing-edge vortex characteristics are taken from the loading 


information output generated by program DEMON2 as a consequence of step 5 
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fact 


described in section 5.2.1. Trailing-edge vortex strength(s) and 
position(s) are taken from the results calculated on the basis of 
Bernoulli type loading pressures. They appear under the heading T. E. 
FIN VORTEX INFO. 


Before the loads on the interdigitated tail section can be determined, 
program DEMON2 must first be run in accordance with step 8 of section 
5.2.1 for the purpose of generating the data set TCPTS containing the 
coordinates of the control points distributed over the tail fins and the 
interference shell. Index NCPOUT must be set equal to 2 for this fin. 

The input is otherwise the same as the input to be discussed in connection 
with step 10. Once data set TCPTS has been generated, step 9 involves 

the application of program WDYBDY to the entire body length (i.e. up to 
the base of the tail section). The primary function of this run is to 
calculate the store in data set TVELS the velocity components induced by 
the body source panels at the control points on the tail fins and body 
interference shell. This last data set will be passed back to program 
DEMON2 in accordance with step 10. 


The loads acting on the interdigitated tail-body section are calcu- 
lated by program DEMON2 as per step 10 of section 5.2.1. Effects of the 
body nose and monoplane wing vortices will be included. The strengths 
and positions in the crossflow plane of these external vortices are listed 
in the discussion above. The input is shown in figure 33 and includes 
the break in sweep of the tail fins as described in section 6.2.1. For 
this run involving interdigitated tails, control index NDRAG must equal 
its default value 0. With this control, the program will not compute in 
plane forces used in the determination of edge suction. Note that with 
the Mach number at hand (1.7), the leading edge of the tail fin is super- 
sonic for both sweep angles. Thus, the leading edge would have zero 
suction in this case. At the present time, program DEMON2 cannot compute 
in plane forces nor span loadings if the lifting surfaces under considera- 


tion ‘involve interdigitated fins. 


The input in figure 33 also includes the 6 external vortices listed 
in the table above. Index NVRTX=6 in namelist $INPUT causes the program 
to read in the strengths and lateral coordinates of the 6 body nose and 
monoplane wing vortices. In figure 33, the vortex specifications start 
on the 9th line from the end of the input. The listed Zp {or 2) coor- 
dinates of the two body nose vortices are slightly in error. The number 
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1.8809 should have been 1.8792. The output generated by program DEMON2 
using the latter value appears in figure 34. As mentioned earlier, the 
influences of the external vortices are accounted for in the loading cal- 
culations on the basis' of their paths being aligned with the body center- 


line. 


Pressure distributions along the meridians of the interference shell 
indicated in figure 23 appear under the heading AFT OF LEADING EDGE OF 
FIN ROOTCHORDS. The outline of the interference shell is the idealization 
of the actual body contour. Figure 27(a) contains calculated pressure 
coefficients for two meridians, at os = 5.64° and 85 = 16.91°, respectively, 
on the upper half of the body. Both correspond to locations on the body 
contour below the right upper tail fin; in fact they lie on the impact 
side of that fin at axial stations Xp = 26.11 and 27.91. ‘The pressures in 
this region rise rapidly from the leading edge of the tail section to the 
trailing edge. On the lower half of the body, figure 27(b), pressure 
coefficients are shown for the 8» = 298.09° and 8» = 354.36° meridians 
through the tail section. These two meridians lie on opposite sides of 
the right lower fin. Consequently, the pressure on the body below the 
fin (@ = 298.09°) is higher than the pressure above the fin 


6 = 354.36°). 
( p ) 


The pressure loading distributions for the upper and lower right fins 
appear under the heading PRESSURE LOADING AT CONTROL POINTS. Results are 
available on the basis of linear pressures under the heading DELTP,LIN., 
and on the basis of Bernoulli pressures under the heading DELTP,BERN. 
Forces acting on the fins in coefficient form are shown in the loading 
information output also for both types of loading pressures. If the 
effects of the body nose vortices are omitted, the loadings on the upper 


fins of the interdigitated tail section would be increased. 
7. COMPARISON WITH EXPERIMENTAL DATA 


During the development of the axisymmetric body modeling and pressure 
calculation methods described in section 3, some comparisons were made 
with experimental data. The ogive cylinder model shown at the top of 
figures 35, 36 and 37 is in fact the pressure distribution model used in 
connection with the store separation work associated with references 12, 
13, and 14. This model is equipped with 19 pressure taps and the dimen- 
sions in inches are shown below. At the angle of attack under consideration 
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(5°), very little if any body vorticity will be generated. Thus, calcu- . 


lations were performed using program DEMON2. 


The ogive cylindrical body is modeled with 30 line sources/sinks to. : 


account for volume effects and 30 line doublets to account for angle of 
attack. The calculated results are computed by subroutine BDYPR in con-~ 


junction with subroutine BDYGEN of program DEMON2. They are represented — 


by a solid line in figure 35 for M, = 1.5, in figure 36 for M, = 2.0 and 
in figure 37 for M, = 2.5. Program DEMON2 is not capable of modeling a 
body alone in its present state. Thus, near the body base a set of fins 
are attached as far as that program is concerned. The solid line is 


terminated at the leading edge of this imaginary fin section. 


- 3.810 4 


8.098R 
~14.391, 17 spaces @ 0.846 


All dimensions in cm. 





In general, the calculated results match the data well for all three 
‘Mach numbers. Near the body nose, some differences are evident for the 
two lower Mach numbers, figures 35 and 36. It-is interesting to note '.- 
that if the linear pressure relationship is used instead of the Bernoulli 


1.905D —~ 1.016 D 


expression, the results near the nose tip are improved. However, at other 


locations, the agreement is then diminished. At the highest Mach number, 
M. = 2.5, the Mach cone at the nose tip intersects the body. The part 


eo 
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of the body nose outside of the Mach cone is then idealized by a conical 
surface, in fact by the Mach cone itself. In addition, as described in 
section 3, subroutine BDYGEN moves the line singularities up towards the 
nose.in an effort to minimize the errors attendant to this approximation 
and the method of body modeling employed. Even so, if the pressure were. 
calculated on the body between the nose tip and the location where . the 
Mach cone emerges, the body singularities would have no effects. Thus, 
this constitutes a limit to the applicability of the body modeling echoed .- 
Note that in figure 37 the most forward static pressure tap. lies behind .. 
the intersection of the Mach cone and the body.so that this location is 


affected by the forward line singularities. 


8. CONCLUDING REMARKS 


Existing cruciform wing-body computer programs have been extended 
and additional programs developed to compute, in a stepwise manner, pres- 
sure distributions acting on complete missile configurations. The appli- 
cable flow ‘regime is supersonic and the configuration can be at combined 
angle of pitch and sideslip. The body can be circular or elliptic in 
cross section. The lifting surfaces can be a cruciform canard and/or 
curciform tail or a monoplane wing and interdigitated tail fins. Effects 
of body nose- and canard- or monoplane wing-vortices, tracked along the 
configuration, can be accounted for in the body pressures and tail fin 
loadings. For cases involving axisymmetric bodies, the body nose shed 
vortex characteristics are built into the program. Two calculative 
examples are given: the first concerns a cruciform canard-axisymmetric 
body~cruciform tail configuration and the second involves a monoplane 
wing~elliptic cross section body~interdigitated tail configuration, 
Limited comparisons between calculated and measured pressures are shown 
for an ogive cylinder at 5° angle of attack. Fin loads comparisons are 
described in earlier work. Fin edge vorticity characteristics are calcu- 
lated by the program from the suction distributions using Polhamus' vortex 
lift ‘analogy. ‘Some comparisons with other theories are shown for leading- 


and side-edge suction forces in an appendix. 


Some of the limitations of the program in their range of applica- 
bility are pointed out in this report. The limitations discussed herein ™ 
are consequences of the basic linear methods used to model the components 


eae 


or to account for effects of vortices on the. components. The limitation 
in applicability with regard to flow conditions is estimated to be about 
20° in included angle of attack and supersonic velocities up to Mach- 

number 3. A better estimate of the limitations of the program must await 


detailed pressure distribution data not now available. 


The: precision of the calculative method is associated with the num- 
ber of body source panels used to model bodies: with elliptical cross 
section, the number of discrete vortices used to represent body nose vor- 
tex shedding, and the number of constant u-velocity panels. used to model 


the lifting surfaces. 


The behavior of a vortex in the close proximity of a lifting surface 
can be a limiting factor in accuracy of prediction. It is possible to. 
include a core in the model for the purpose of. reducing the effect of the 
Singularity in tangential velocity associated with the potential vortex. 
model. To the best of our knowledge, there are no data available as yet 
for the vortex-shedding characteristics associated with bodies. with 
elliptical cross section. A predictive program.is available, as. discussed 
herein, but must be thoroughly tested against experimental data not yet 
available. . | . 


At the present time, the programs are used in a sequential manner 
without the benefit of an executive program. Running time is a function 
of the number of panels used. Some Peer ease in running time is possible 


by further refining the program. 
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SUPERPOSITION OF CORNER SOLUTIONS FOR A CONSTANT u-VELOCITY PANEL 
AT ARBITRARY DIHEDRAL ANGLE 


In representing fin configurations by a distribution of cénstant © 
u-velocity panels, questions arise concerning the coordinate system used 
in the panel corner superposition scheme. The superposition scheme is 
described in references 1 and 7. Furthermore, if the configuration 
geometry and flow conditions dictate symmetry in the flow field around. 
the configuration, the aerodynamic influence coefficient matrix must 
-reflect that condition. This appendix addresses these two topics in 
relation.to the wing-body program DEMON2 only. 


’ For simplicity consider only the corners on the leading edge of a. 
constant u-velocity panel. - Corners on the trailing ‘edge are treated in. 
the same manner. The following sketch shows the plan view dnd end view 
of the leading- and side-edges. Also indicated are the local panel 
‘coordinate systems with origins at panel -corners 1 and 2. Axes Xp or Yr. 
and axes tes OK, Iie in the plane of the panel oF = QO, 2p = 0). 









2 Plan view 


Leading 
edge 
Side edge 
Semi infinite 


triangle with 
apex at 


Semi infinite 
triangle with 
apex at 


End view 
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The end view shows the local lateral coordinates (Yy 12 ) and (Yw 12 Ve 
with origins at corners 1 and 2, respectively. They Noe! ssesiaies to the 
reference wing coordinate system (x,y, yw,Zw), and we will need velocity~ 
Ypy! 12a and 

(XW, -Yw, + 2w,) are different by a rotation about the XFy ae: XW) axis 


components in this system. Coordinate systems (xp) 


through fin dihedral angle o, The same is true for the two systems at 
corner 2. The leading edge seen above has positive sweep. The super- 
position principle states that the solution for this infinitely long 
panel is given by the solution associated with the semi-infinite triangle 
with its apex at corner 1 minus the solution associated with the semi- 
infinite triangle with its apex at corner 2. Thus, in terms of flow 
velocity components, the superposition scheme specifies the velocity 


components in the x directions as follows for the semi-infinite 


F/Yp’7p 
panel. 


F,TOT Fy 2 | 
=v. -v —— : ea) 
F,TOT Fi Fo 
Ww = W. - W. 
F,TOT Fi Fo 


The corresponding velocities in the wing coordinate system are obtained 
from those given by equation (Al) by means of a rotational coordinate 
transformation. 

cos a +w Sin 


Yw,tot  Yr,ror F,TOT 


(A2) 


=w cos ¢ - v sin ¢ 


Ww ,TOT F,TOT F,TOT 


In equation (Al), the superposition principle is applied to the veloci- 
ties expressed in the panel coordinate system (Xp/YprZp ). These 
velocities are then transformed to the wing coordinate system a a ) 


as indicated in equation (A2). 


Alternately, velocities VP) 'F)! and VFo “FS can first be trans- 
formed into the wing coordinate system and the superposition applied to 
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the result. The lateral velocity components in the wing coordinate: ~ 
system are obtained from the ones in the panel coordinate system as 


follows. 


“Wy = YF, cos o + "P, sin 6 

Wa, = YP, cos $- - ME sin $ _ 
(3) 

“Ws = ve, 628 o up cet o 

“W, fs Ps ¢ - ‘p, Sin o 


‘Applying the superposition scheme to the velocities in the wing system 
and substituting from equations (A3) has the result , 


coe =v, -v. = (v, - v,) cos > + (w, - w.) sin o 
. W,TOT Wy Wo : Fi Fo Fi Fo 
w (= w. -w,, = (w - Ww ) cos d- (v - v, ) sin 6 
W,TOT Wy Wo Fo Fo Py Fo : 


Or rewriting in terms of the quantities shown in equation (Al) then 


gives 
Yw,tor = Yp,ror COS ¢ + Mp por Sin ¢ 
| ae (A4) 
“w,tor ~ “r,ror COS % ~ Yp ror Sin 6 
This result is the same as the expressions shown in equation (A2). The 


conclusion is that the superposition scheme and the coordinate rotation 
can be interchanged. However, in program DEMON2, the actual procedure 
employed is as follows: In subroutine VELNOR, the coordinates of a given 
field point are first calculated relative to corner 1 inthe ‘wing 


reference coordinate system (x 124) These relative coordinates are 


w?w | 
then transformed to the. local panel coordinate system (x,,Y,,2,) and the 
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influence of the semi-infinite triangle with apex at corner 1 is calcu- 
lated at the field point by a call to subroutine VELO. The induced 
velocities are returned in the local coordinate system and transformed 
back to the wing reference system. Before proceeding to corner 2, 
however, subroutine VELNOR checks on the possibility of symmetry, that 
is, for the case of zero sideslip or symmetry in the external vortices 

if present. If affirmative, the effect of the image corner on the 
opposite side of the body must be taken into account. To accomplish 
this, the field point instead is moved to its image point on the other 
side of the fuselage. The effect of the actual corner 1 is computed 
there in the wing coordinate system. The velocity components calculated 
in this way are then transferred to the actual field point with a change 
in sign on the side wash, v, aligned with the Yyaxis, if corner 1 
belongs to a panel on the right horizontal fin. Thus, the procedure used 
to account for flow symmetry depends. on expressing the velocity compon- 
ents in the wing reference coordinate system. The same procedure applies 
to all corners of panels at any dihedral angle. Thus, these panels 
include the constant u-velocity panels on cruciform fins, interdigitated. 
fins, monoplane wings and the interference shell. 
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DETERMINATION OF STRENGTHS AND POSITIONS OF CONCENTRATED 
VORTICES AT THE FIN TRAILING EDGE 


Consider a fin or a wing attached to a body as shown in the follow- 
ing sketch. An.external vortex passes over the fin. The’ resulting span 
load distribution is indicated. The distribution at the trailing edge of 
the trailing-edge vorticity is also shown. It is desired’to determine 
the strength(s) and location(s) of the concentrated vortex (vortices) 


representing the wake. 


Case associated with 
an external vortex 






External 

vortex 

Body 
radius 


cc 


me ; n 
With.extremum -——— 
2b 





Bern. 





Vorticity at 
trailing edge 
; AT 
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In order to represent the distributed trailing-edge vorticity by 
concentrated vortices, the spanwise load distribution based on the 
Bernoulli pressure expressions must be calculated first. For the case 
when this distribution exhibits extrema in between the end points, the 
number of concentrated vortices is given by the number of extrema plus l. 
The trailing-edge vortex strength and position for the inboard portion of 


the normal-force distribution are then given by 


Y. Y 





r , max ; max 
TE,1 __1l1 -~ + a 
Ve | Fy (ec, dy = | (cc, ) (Bl) 
r xr 
Ymax 
-i <_ 
2 Y By (C%y,) dy 
r 
Sy, ow! B 
a Ymax 
1 3 
a5 By (Con) a . ee) 
ry : 


The basic relationship between the trailing-edge vorticity and the span- 
loading used here is described in detail in. section 9.1 of reference 15, 
Fundamentally, it is shown that the rate of change.in trailing-edge 
vorticity with spanwise distance equals the negative of the rate of 
change of the difference in potential between the upper and lower 
surfaces of the wing or fin. This is obtained by performing a contour 
integration parallel to the fin plane just behind the trailing edge. 
With simplifying assumptions, the potential difference (jump) at the 
trailing edge can be related to the span load distribution. The combi- 
nation of these results leads to equation (Bl). Integrating equation 
(Bl) yields 


TE,1_ _l e ; 
= a 5 jee, cc, 2 (B3) 
Ymax B 
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and integration of equation (B2) by parts results in 


Ymax Ymax 
a 6 1 in toe 
~Zfytee | si SER MAY ‘ 
. 2s: | : 
y = 
1 Ymax 
1 
2s d(cc,) 
™B 
Ymax 
Ya “en 2% as (ec) dy 
=! Ymax B Pe 
Yy e ce - cc (B4) 
n Al, 


After splitting up the terms, the spanwise location of the inboard vortex 


is 


{Ymax. 
' (ce. )dy 
a ee “ (BS) 
cc ~ ce . 
n n 
Ymax TB 





The strength ‘and position of the outboard vortex is obtained in the same 


fashion ‘by changing the limits of integration. 


r., rn + B 
TE,2. 1 (7B 2 alec} 
Ve ly 
max 
eer (B6) 
1 Sf 
= -5 | cc - cc 
that zZ 'Ymax 
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Since the spanwise loading is zero at the side edge, equation (B6) sim- 


plifies to 


=i 
== 5 Ge . (B7) 
Ymax = 


The spanwise location at the trailing edge is given by equation (B2) with 
the proper limits of integration 





l *B 3 2 a; ; ; 
> |, y By (Con? OY | 
Y, = mae (B8) 
b er: = z 
od hee 
“> | atces) 
Ymax Ss 


After integration by parts, the result is 


° 








b. oe Sik G 26 
(ruts) ec - y cc . rats 
B ce max al, B 2 (cc )dy: : 
ae B 2 max max n 
Y2 = i ; eee Sie RTs 
2 cc Oe “n| . “ee °o - “<a 
ioe Ymax , ratz Ymax 
| rato 
2 ae er, ly (ce, Jay 
a Ymax max 
-cc -cc 
n}- n 
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and finally 


b 
ie 
(cc_) dy 
Sn oes Ymax - (59) 


Yo = Ynax cc 
. n| 
Y max 


If the span-load distribution exhibits additional extrema, equations (B3) 
and (B5) must be applied again with the appropriate limits of integration 


Ymax,1 to Ymax, 2° For the outboard vortex, equations (B7) and (B9) hold. 


For the sake of completeness, expressions for the strength and span- 
wise location of the trailing-edge vorticity will be given for the case 
of spanwise load distributions such.as the one shown below. Only one 
concentrated vortex is associated with this type of distribution. 


cc 
_n 


—— 


2b 


Bern. 


Case without external - 
vortex, no extrema 





4 
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Equations (Bl) and (B2) are applied again with the upper limit of inte-_ 


. gration changed to r, + 2. The results are 


B 
b 
ryt 
r B2 
TE _ 1 oO B10 
5 | ay (CSp) dy (B10) 
c-) r 
B 
b 
a: a 
ad [ y gy(ec, Jay 
- B 
y= : (B11) 
rats 
1 B 2 
= iE Fy (cc, ay 
B 
Integrating equation (Bl0) gives 
T é 
Go Feb Kn 





(B12) 





After integration by parts, equation (Bll) becomes 


b 
il ints i: ey ee 
“x | y(ec,) | - (cc) dy.. 
; 3 Ts 


b 
-} (cc, ) ee 


TB 
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Making use again of the fact that the wing load is zero’on the side edge 


simplifies the above equation to 


b 
ratz 
"Enea! Stee i (cc) dy 
= T3 B 
y = 
-cc | 
n 
ee 
or 
rat 
| Br 2 (ge jay (B13) 
a Ts, n 
y= ry, + 
es, 
a=) 


Subroutine SPNLD in program DEMON2 generates discrete values for the 
spanwise loading c,c/2b at specific y locations. The extrema are 
searched for.. The integrals appearing in equations (B5) and (B9) can 
then be represented by finite summations. For example, if for a fin the 


number of y stations up to eee is MSW a and the total number of y. sta-~ 


a x 
tions. is MSWR then the integrals are rewritten as follows. 








y MSW 
max max 
ar A 14 
(ce, ) dy = 2b ae ap}. Os. (B14) 
r i=l i 
B as 
and — 
b . 
rt. MSWR me 
(cc_)dy = 2 2} | Ay. (B15) 
7 i=Msw 2b{,; i 
Ymax : max 


Subroutine SPNLD then proceeds to compute Pip Veo designated as GAMMA and 
y as YCG in accordance with equations (B5) and (B9). Note again that in 
all of the above the span loading is based on the Bernoulli pressure 


calculation. © 
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CALCULATION OF LEADING- AND SIDE-EDGE VORTICITY DISTRIBUTIONS 


This appendix contains a description of the improved method used to 
calculate leading- and side-edge vorticity characteristics associated 
with cruciform fins on bodies in supersonic flow. First the distribu- 
tions of suction force acting on these edges must be determined. Then 
Polhamus' leading-edge suction analogy, reference 3, is used and applied 
also to the side edges. As a consequence of this analogy, the normal 
force acting on a lifting surface in supersonic flow is augmented by an 
amount proportional to the suction force acting on the leading- and side- 
edges for sharp edges. Consider the following sketch. It shows a 
general planform of a fin attached to a body. A schematic distribution 
of the suction force along the leading- and side-edge is also indicated. 
The objective is to determine the position and strength of the shed 
vortex from knowledge of the suction distribution. Note that if the 
leading edge is supersonic (this occurs when the Mach cone lies between 
the leading edge and the fin root chord), the suction force acting on 
that edge equals zero. 


Body 


2 


Mach cone 





Fin root 
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The method used to calculate the suction forces is described below 
\ in some detail. The subroutines in program DEMON2 concerned with the 
\ suction calculations are identified. The new procedure used for the 
‘ side-edge suction calculation is pointed out. Calculated leading-edge 
‘thrust and suction-force distributions are compared with conical theory 
\for the case of a slender delta wing. The predicted variation of side 
force along the side edge of a cropped delta wing is compared with two 
other theories. The side~edge suction factor, obtained using results 
computed by program DEMON2, is compared with conical theory for a case 


involving a rectangular wing. 


After the suction distribution along the leading- and side-edges is 
described, the method used to convert the suction to edge vorticity is 


indicated. - 


Calculation of Suction Distribution 


The present method used to calculate forces acting in the plane of a 
fin or wing in supersonic flow was first described in reference 1. For 
the sake of completeness, the important features and improvements to the 
method will be described here in the application to the determination of 
the suction forces acting on the leading edge and side edge of a fin. 


First, the constant u-velocity panel strengths are recast in vor- 
ticity strengths. In fact, an equivalent vortex lattice is constructed 
using the same geometric paneling layout. The bound portion of each 
horseshoe vortex passes through the centroid of each constant u-velocity 
panel while the trailing legs extend in the streamwise direction as shown 


in the following sketch for a horizontal fin attached to a body. 
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A vertical fin attached to a body is treated in a similar manner. The — 
above sketch also shows the in-plane force AF, (acting in the negative 
m, direction) and side forces AFy, and AFy,: The quanei ey, AFy is the 
side force acting on the side edge for a distance co/2 forward of point 2 
and a distance Co/2 downstream of the point. It should be noted that the 
resultant in-plane forces must appear at the edges of the fin. The 
trailing edge has no such forces by virtue of the Kutta condition if 
subsonic, and in no event if supersonic. Thus, the elemental forces 

AFL, AFy,> and BF ys summed over all the panels and vectorially added on 
a given fin appear either as leading- or side-edge suction forces. 


The strength: of the constant u-velocity panel is taken as the u- 
velocity in and immediately above its. plane and is denoted u’. The 
perturbation velocity immediately below, u , equals -u*’, The equivalent 
circulation can then be determined from the closed path (clockwise) inte- 
gral of the product of the total velocity tangential to the path and the 
path length shown in the following sketch. Neglecting terms of higher 
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In subroutine LOADS of program DEMON2, the linear aneiae pressure acting 
on a panel is used instead of the panel strength u? in the determination 
of the equivalent. circulation strengths. The linear loading pressure is 
related to the constant u-velocity panel strength as follows. 


+ 


4p (C2) 


u 
rs 
<|6 


linear cd 


The circulation strengths are calculated using equations (Cl) and (C2). 
The velocity normal to the panels induced by the constant u-velocity 
panels distributed on all fins and the body interference shell are then 
calculated and added to the contribution to the velocity. normal to the 
fin induced by the singularities modeling the body. The in-plane forces 
can be calculated using the Kutta-Joukowski law for lift acting on a 
vortex filament. The forces acting on the bound: vortex with sweep angle 
A and the side force’acting on the outboard trailing leg of one panel are 
given: by the following expressions. Angle a is the sum of the angle of 
pitch added ‘to the fin deflection angle.if applicable. 
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(C3) 
grt gt tan . (C4) 


w 
af [sin a +3] (C5) 


In equation (C5) AT is the sum of all the trailing vorticity along the 


panel side edge for all panels in the chordwise row ahead of the outboard . 


aft corner. For the last panel co is replaced by Co/2. The above panel. 
forces apply to panels on a horizontal fin. For panels on the vertical 
fin, Yy and y» are replaced by zy and 25, Wy) and Wo are replaced by vi 
and Vor sin a is replaced by sin 6 and the sign inside the brackets is 
changed to negative. Perturbation upwash velocity w, ‘is computed at the . 
centroid of the panel and Wo is computed at the aft outboard corner. The 
forces at the centroid, Ey and Fys divided by the dynamic pressure are 
computed in subroutine LOADS. The side force on the outboard leg is cal- 


culated in subroutine SPNLD of program DEMON2. 


The forces calculated for every panel in accordance with equations 
(C3) through (C5) can be summed to obtain the net in-plane forces acting 
on a column (strip in chordwise direction) of panels and-on the entire 
fin. If the number of panels in a given column is large, the vector sum 
of forces AF, and (AFy, + AFy,) equals the suction force for that column 
acting in the direction normal to the leading edge. In order to obtain 
good results for the leading edge without having to resort ‘to a large 
number of panels it was found advantageous to calculate the suction force 
from the sum of the ES forces and the leading-edge sweep of the fin 
under consideration. The section coefficient for suction, cy is the 
suction force per unit span divided by qc, where c is the local chord. 
This section coefficient is calculated in nondimensional form in 
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accordance with 


NCW AF 
y oFx |. 
Ce = i=l i 
2b gs (2b) cos: LE (C6) 


by subroutine SPNLD of program DEMON2. The index NCW is the number of 
panels in the chordwise direction. Panel width s is constant for a 
column of panels but can vary from one column to the next. By adding 

the contributions from all constant u-velocity panels distributed on a 
fin, excluding the outboard leg side forces of the panels at the tipchord, 
the summed in-plane forces Fy Ey, ane Fy for the leading edge are 
computed in subroutine SPNLD. When divided by q,, they are designated 
‘SUMPX, SUMFY1 and SUMFY2, respectively, for horizontal fins (a horizontal 
fin lies in the Z,_ = 0 plane; see figure 1). Total forces F.. 7 Fo and 

Fz are designated SUMFX, SUMFZ1 and SUMF22, respectively, be the 
vertical fins (a vertical fin lies in. the Yn 0 plane). The forces 
acting on the outboard legs of panels at the fin tipchords are added 
separately ‘and designated SUMFT2 in subroutine SPNLD. The sum represents 
the ‘suction force on the side edge of the fin. Velocity components 
W2/Vo (for horizontal fins) and ‘V2/Vq (for vertical fins) calculated | 

at points on the side edge of fins with subsonic leading edges are 
calculated in accordance with the special procedure described next. 


Consider a basic semi-infinite triangle with its apex at one of the 
corners of a constant u-velocity panel. The sketch below shows one semi-~ 
infinite triangle -with two Mach lines corresponding to two free-stream 
Mach numbers, When the leading edge of the triangle lies inside the Mach 
cone, it is a subsonic leading edge. If it lies outside the Mach cone, 
the edge is supersonic, The outboard aft corner points of panels at the 
side edge, marked 2 on the second sketch of this appendix, lie on the 
extended leading and extended trailing edges of many panels inboard of 
the side edge panels. In particular, the point lies on the trailing 
edge of the panel shown in the sketch, If the edges are subsonic, the 
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contributions to the upwash from the semi-infinite triangles on whose 
leading edge the point lies are in fact singular as shown in figure 
II-l(a) in reference 7- To avoid numerical difficulties, subroutine VELO 
in program DEMON2 sets the downwash equal to zero. As a consequence, the 
points on the side edge of a fin with subsonic leading and trailing edges 
only receive upwash contributions from those basic semi-infinite triangles 
whose leading edges do not pass through the points. It was found that the 
Side force calculated on the side edge of'a cropped delta wing using the 
upwash, Wor calculated this way was underestimated. By moving the points 
on the side edge off the fin a distance equal to:'the width of the nearest 
panel width, the values of the upwash are increased and more reasonable 
values for the side edge forces are obtained. For a cropped delta wing 
with supersonic leading and trailing edges the above problem does not. 
exist. The upwash at the leading edge is discontinuous in this case; 


refer to figure II-l(c) in reference 7. The mean value is used. 


A few examples will now be discussed. Consider figure C-l first. 
It shows the distribution of thrust and suction along the leading edge of 
a delta wing with aspect ratio equal to 1. The Mach number is /2. - The 
conical theory results for the linear thrust distribution shown by the 
lower dashed line, is based on the thrust coefficient calculated from the 
lift and drag coefficient for small angle of attack as follows. ea: 
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Cc 
D; T 
Ch = ac, = a Cy — q co. (b/2) (C7) 
L 


For a delta wing, page 292 in reference 8 contairis expressions for lift 
and drag. The slope of the spanwise thrust distribution cc,/2b for the 
half wing is then related to the thrust coefficient by 


Q 


T 
ees 





x . (c8) 


where Co is the rootchord. The suction coefficient of one wing half is 
related to the thrust through the leading edge sweep A of the leading 





edge. 
Cip , 
2 Ss 
c oe aera Lo Ss as (C9) 
S| half wing - °°8 a meee a 


“Therefore, ‘the linear slope of the spanwise suction distribution, is given 
by 
Ce k 


a Ser 2 | | 
Ke ~ 2b cos A : ved0) 





The results calculated by subroutine SPNLD in program DEMON2 with a lay~ 
out of five chordwise and 20 spanwise panels agree well with the. linear 
thrust distribution from conical theory. The suction coefficient is - 
actually calculated on the basis of vectorially adding the forward and | 
side forces acting on all the constant u-velocity panels. The results 
calculated from the program are higher than the conical result from the 
70 percent spanwise station on although the curve tends to return to the 
_conical value near the tip. Nevertheless, the resultant suction force 
calculated this way was almost exactly normal to the leading edge. If 
the values of (c ¢o)/2b are simply divided by cos A, the resulting 

(c 4°) /2b values, as indicated by the crosses, are very close to the 
Banieat results. However, the suction as calculated in the program is 
away: from the normal to the leading edge by a few degrees. , 
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The distribution of the suction force along the side edge of a 
cropped delta wing is shown in figure C-2. Results calculated by sub- 
routine SPNLD of program DEMON2 are indicated by the solid circles. The 
solid line is a distribution calculated on the basis of conical theory 
and given by an adapted version of equation 10 on page 8 of reference 16. 
Certain restrictions are imposed on the application of the expression 
shown in figure C-2. For example, the Mach lines from the leading edges 
of the tip chords must not intersect the opposite wing tip. The dashed 
line represents an exact linear theory result obtained by J. N. Nielsen 
using some of the results derived in reference 17 and the lift-cancella- 
tion method. Other than close to the leading and trailing edges of the 
tip chord, the program results match the exact theory well. Overall 
suction force along the side edge calculated by the program is slightly 
below that calculated by the linear theory. For this case, the leading 
edges and trailing edges of the panels along the side edge are subsonic 
near the.leading edge of. the side edge and supersonic near the trailing 
edge. This is a mixed case and the offset scheme described above may not 
apply to all of the points on the side edge. 


The last example of suction force calculation is shown in figure C-3 
for the case of a rectangular wing. The result shown by the dashed line 
is based on conical theory and can be obtained by the methods employed by 
Lamar in reference 18 for rectangular wings. The solid line is the 
result calculated by the program using the following definition of Ky SE’ 


the side-edge suction coefficient. 


eer) 
WS po fin a 


Quantity Fy,/4 (SUES 2 an subroutine SPNLD) is the sum of the in-plane 
forces, divided by the dynamic pressure, in the Y, direction acting at 
the outboard aft corner of all the panels except those next to the side 
edge. Quantity Fp /q (SUMFT2 in subroutine SPNLD) is the sum of the 
forces, divided by the dynamic pressure, in the Y, direction acting on 
the outboard aft corners of the panels at the side edge. Results were 


calculated for five panels in the chordwise direction as a function of 
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the number of panels in the spanwise direction. The solid line 
approaches the conical theory result as the number of spanwise panels is 
increased. Increasing the number of chordwise panels also improves the 
agreement. With 10 along the chord and 15 along the span, the point 
marked by the cross corresponds to Ky SE = 1.099. 


Conversion of Suction to Edge Vorticity 


With the distribution of suction along the leading and side edges 
of a given lifting surface calculated by the methods described above, 
the Polhamus analogy is used to convert the suction to additional normal 
force and accompanying edge vorticity. The analogy is described in 
reference 3 and states that at high angles of attack the normal force 
acting on a delta type wing is augmented by an amount proportional to 
the suction force acting ,on the leading edge. The additional lift is 
associated with flow separation along swept leading edges. This analogy 
is extended to the side edges of a wing or fin of general planform. 


Section 6.2.3 contains a description of the procedure used to com- 
pute the increment in normal force due to edge vorticity from the suction 
force coefficients calculatable from quantities in the output of program 
DEMON2. In the following, the method for relating the distribution 
along the leading and side edges of suction force to the distribution of 
augmented normal force is indicated. Then, a discussion follows con- 
cerning the analysis required to relate the distribution of edge vor- 
ticity to the distribution of augmented normal force. 


For the leading edge, the spanwise distribution of suction is given 
by equation (C6). Define Ky LE! assumed constant, as the proportion of 
, 


the suction converted to normal force 


cic 
n - 
2b (C12) 





2b- 


This factor is called the vortex lift vector for the leading edge. It 
is a function of leading edge sweep, Mach number and leading-edge geome- 
try. For sharp edges, figure 9(a) in reference 4 contains graphs from 


which estimates can be obtained for K, LE values as a function of aspect 
La 
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ratio and Mach number. In accordance with equation (30), the vortex lift 
factor K, ip is also applicable to the suction coefficient associated with 

’ : ; zs 
the entire leading edge to give the increment in normal force due to lead- 


ing-edge vorticity (for one wing half) 


Cc 


| 2p at 
Ky = = N Lek: vorticity : ;- - (C13) 
4 S'L.E. in tee 


Refer now to the sketch below. Schematic distributions of suction 


ee 





are shown for the leading and side edge of the wing or fin attached to 

a body. Up to given spanwise position Yw,t subroutine SPNLD of program 
DEMON2 integrates the spanwise suction distribution. The integrated quan- 
tity is named CSINT, It is equal to the suction force divided by. 2b 

(b/2 is the exposed semispan of the fin) accumulated up to spanwise 


location Yt" ie 


- “s” 101 
CSINT = 25 O¥w, i (C14) 


i 


mae 


1 
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The moment of the suction force divided by factor 2b is formed as follows. 


; I. c.¢ 
CSMOM = 2 Yw,i 2, AYw 3 (C15) 


. The spanwise location of thet-"center of gravity" of the suction distribu-~ 

tion along the leading edge up to Yw,t is given by the ratio of the moment 
over the force. | 
a 5 _ CSMOM 


WwW  cCSINT 
(C16) 


Yexp ~ Yw™ Tb 


A horseshoe vortex is laid-out on the wing or fin attached to the 
body. The outboard trailing filament is at spanwise position Ywe The 
lift acting on the bound or spanwise leg is made equal to the increment in 
normal force due to leading-edge vorticity. Up to spanwise location Yw, I’ 
the increment in normal force in coefficient form is given by equation 
(C13) in conjunction with equation (C14). 


= K (CSINT) 2b (C17) 


Cc 
L.E. vorticity Vinee 


s| 
Taking the component in the direction of the lift force results in 


v,LE 


Ce oe = K (CSINT)2b cos a (C18) 
. L.E. vorticity ~ 


where a is the angle of attack seen by the lifting surface in question. — 
Then, with the. Kutta-Joukowski law for lift on a vortex filament, the 
vortex strength ThE associated with the added lift can be obtained from 


the following approximate relation. 


r K (CSINT) 2b cos a 


LE _ *v,LE faa) 
\% 2Ypxp 


This relation'is correct for a wing alone (x), = 0) for which the span of 
the horseshoe ‘vortex: would be equal to 2 Vy or 2 Yexp* However, for a 


wing or fin attached to a body as shown-in the sketch above, the span or 
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width of the horseshoe vortex is the difference between Yw and the distance 
from the body centerline to the image (shown dashed) of the outboard . 
trailing filament, r2/¥y- At the present time, equation (C19) is pro- 
grammed in subroutine SPNLD of program DEMON2. In any event, equation 
(C19) provides the spanwise distribution of Tle and its location ce is 


given by equation (C16). ; 


A similar procedure is followed for determining the strength and. 
spanwise location of vorticity along the side edge. The summing process. 
indicated in equation (C14) to calculate quantity CSINT is continued along 
the side edge using the side force designated FT, (Jnrp) and computed in. . 
accordance with equation (C5). The vorticity associated with the added 
normal force is also determined by expressions (C18) and (C19) replacing 
Ky LE with Ky SE’ The same remarks made above in connection with the a 
spanwise width apply. In addition, it is recommended to set Ky SE = Ky LE 
for use in the program as written at the present time. Note that these 
vortex lift factors have the default value 0.5. in main routine CRFWBD of 


program DEMON2. 
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Figure C-1.- Spanload distribution of suction and 
thrust for'a delta wing with aspect ratio 1. 
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Figure C-2,- Distribution of suction force along side 559° of a cropped delta wing; 
b = 20, Cp 7 13.08, A = 63° 
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‘Figure c-3, - Side-edge. suction factor K, gp for a 
rectangular wing. a 
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TRANSFORMATION FROM FIN COORDINATES TO WING OR BODY 
REFERENCE COORDINATE SYSTEM AND VICE VERSA 


In the calculation of the influence of one constant u-velocity panel 
at the control point of another or at. a given field point, the following 
procedure is used. The coordinates of the four corners of all the . 
constant u-velocity panels are calculated by subroutine LAYOUT. in program 
DEMON2 in the wing coordinate system (x), Ywe Zi) - The coordinates of 
the control points (or field points) are also determined by subroutine 
LAYOUT (or specified) in the wing coordinate system. The first step is 
to calculate the coordinates of the point relative to the corners of the 
influencing panel under consideration. Then these local coordinates 


(we Yw,e’ 2w,2 
transformed to a panel coordinate system with the Yp and x 


), which are parallel to the wing coordinate system, are 
p 2xes in the 
plane of the fin. In this process the origin at one corner of the 
constant u-velocity panel remains fixed. Thus, the transformation is a 
simple rotation through the applicable fin dihedral angle. Only one . 


local coordinate system is shown on each fin in the sketch below. 
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For the right upper and left lower fins, fin 1 or fin R and fin 2 or 
fin L, the local wing to local fin coordinate transformation is stated 


as follows. 


Yp,1 or 2 7 %w,2 °° $2 or 2 * wie 97? 91 or 2 
| (D1) 
2p,i or 2 ~ 2w,2 SS 91 or 2 7 Yw,e 52" 91 or 2 


Fin dihedral angles 4 and $5, are taken equal to the specified fin 
dihedral angle, ton, also shown in figure 3. The coordinate system 
rotation for the left upper and right lower fins, fin 4 or fin D and 


fin 3 or fin U is given by 


Zz 


Yr,3 or 4 ~ Yw,2 SS %3 or 4 ~ 7w,2 S17 %3 or 4 


(D2) 
p,3 or 4. ~ 2w,2 CS %3 or 4 * Yw,2 52" %3 or 4 
Fin dihedral angles $3 and oy are taken equal to negative specified fin 
dihedral angle, “op. Thus,- the transformation given by equations (D1) 
and (D2) are in fact the same provided the negative dihedral angle, “dns 
associated with fins 3 and 4 is substituted in equation (Dl). The local 
fin to local wing coordinate transformation is given by the following 
expression. For the right upper and left lower fins, fin 1 or fin R and 


fin 2 or fin L, the transformation is 


Yw,2 Ps Yp,1 or 2 6S 1 or 2 ss or. 2" $y or 2 
(D3) 


W,2 ~ *F,1 or 2 8 $1 ox 2 * Yr,1 or 2 5*" $1 or 2 


Fin dihedral angles oy and 5 are equal to positive fin dihedral angle, 
+on- The local fin to local wing coordinate transformation for the left 
upper and right lower fins, fin 4 or fin D and fin 3 or U can be 


expressed as 
YW. ~ YP ,3 or 4 SOS 3 or 47 “F,3 or ae %3 or 4 nr 


7Ww,2” *P,3 or 4 595 93 or 4 ~ YRo3 or 4 S48 $3 or 4 
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Fin dihedral angles $, and 4 are equal to negative specified fin dihedral 
angle, “op Again, equation (D4) can be obtained from equation (D3) by 
accounting for the negative dihedral angle, “ops associated with fins 3 
and 4. ; 


The transformations indicated by equations (D1) and (D3) are pro- 
grammed in subroutine ROTATE of program DEMON2. The former. is accom- 
plished through entry point ROTWF and the latter areas entry point 
ROTFW in subroutine ROTATE. 


The transformation given by equation (Dl) also applies to the flow 
velocity components in the wing coordinate system Vw! 
Yw and Zy axes. After calculating the components Vig and Way! the velocity 


components Vp and Wp in the local panel or fin coordinate system can be 


determined. Conversely, equation (D3) is used to transform velocities in 


Wy aligned with the 


the local panel or fin coordinate system to the local wing coordinate 
system which is aligned with the reference wing coordinate system (x, 

Ywr 2 w° The following appendix concerned with the flow boundary ae 
‘tion mbes use of the above equations. 
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The flow tangency condition states that the net flow velocity normal 
to the fin must equal zero. Besides the free-stream component, there are 
external contributions from the body source panels calculated by program 
WDYBDY and effects induced by vortices associated with the body nose and 
the monoplane wing calculated by subroutine VVELS in program .DEMON2. 

For all of these external contributions, the coordinate system in which 
they are expressed is the body or wing reference coordinate system... Body 
and wing coordinate systems are parallel to one another; see figure l. 
The former has its origin at the body nose while the latter has its 
.origin on the body centerline at the axial location of the wing or fin 
rootchord leading edge. Thus, in order to determine the external. 
contribution to the flow velocity normal to the fin, the components must 
.be resolved and added as follows. 


Referring to figure l, the sidewash, Vy OF Vp: 


or 2, direction. . The 


is aligned with the. - 
Yw Or Yp axis. Upwash Wy OF Wp, is in the Za: 
component of the. flow normal to the fin surface at the j'th control 


point (x .) can be determined from the transformations 


cet,j’ Yepr,3’ *cpt,j 
discussed in Appendix D. For example, the normal velocity components on 


the right upper fin, fin 1 or fin R are obtained from 


Yn, 4 = Ww, 3 cos oy - Vw sin oy : (El) 
In this instance the fin dihedral angle oy equals the specified fin 
dihedral angle op listed as PHIDIH in namelist $INPUT of routine CRFWBD 
in program DEMON2. Angle op is also indicated in figure 3. The velocity 
normal to the left lower fin, fin 2 or fin L is also given by equation 
(El) with fin dihedral angle 5 taken equal to dihedral angle dp: For the 
right lower fin, fin 3 or fin U, the velocity normal to the fin surface 
at the j'th control point is obtained from the velocity components 


expressed in the wing coordinate system as follows. 


“Vv. . =w.. cos + vi. sin E2 
N,j 7 “w,3 °3 7 Ww, 3 %3 ee 
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In this equation, angle $5 is taken equal to. negative specified fin 
dihedral angle, ~$5- The velocity normal to the left upper fin is also 
given by equation (E2) substituting angle a for angle $3: Angle , 
equals negative fin dihedral angle, “ope : 

Expressions (El) and (E2) cause the normal velocity component to be 
aligned with the direction of the normal load Cy shown in figure 3. for 
each fin. The contribution from the free stream can be expressed in ' 


components directed along the wing or body coordinate system. 


: sin a ; 
ae : ' (E3) 
~V,, sin a 


It 


Ww 


Vw 


where a is angle of pitch and 8 is angle of sideslip. These angles. are 
calculated from the combined angle of attack, aor and the angle of roll, 
¢, in accordance with the pitch-roll sequence described in the section 
entitled GENERAL APPROACH, equation (12). 


All external contributions to the normal velocity component are | 
added and substituted directly into equations (El) and (E2). The sum of 
all the external contributions to the normal velocity at a control point 
on a fin must be offset by the sum of the normal velocity components -,. 
-induced by all constant u-velocity panels on the fins and the body 
interference shell. In computer program DEMON2, the contributions from 
the constant u-velocity panels on the fins or interference shell are. . 
determined in a coordinate system associated with the plane of the panel 
in question and then transformed to the wing or body coordinate system. 
Equations (El) and (E2) together with the transformations discussed in 
Appendix D are subsequently employed to determine the normal component 
induced by one panel at the control point of another. The result is a 
set of simultaneous equations from which the unknown panel strengths can 
be calculated. Thickness effects from the interdigitated tail fin are 
not accounted for. For the case of cruciform fins, thickness effects 
can be accounted for and detailed expressions for the boundary condition 
are given in section 2 entitled GENERAL APPROACH. 
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INTERDIGITATED FINS, FORCE AND MOMENT CALCULATIONS 


The following force-.and moment-coefficient calculations are pro-. 
grammed in subroutine LOADS of program DEMON2. Each fin of an inter- 
digitated fin configuration is dealt with separately. 


Right upper fin: 

Let Cy . be equal to the normal-force coefficient for one constant . 
dsstiscrey: panel with control point coordinates Xopr, 5’ Yopr,j and Zopr, 5 
Specified in the wing coordinate system (Xr Ywe Zi) - The positive sense 
of the normal force is shown in figure 3. Then the components in the 
and Yp directions are given by 


positive z,. and Yy Or 2 


Ww B 


Cc, . =C. . cos 


= -C 


: . sin 
C05 NG %p 


in accordance with the rotational coordinate transformation discussed in 
Appendix D. The pitching moment in the body coordinate system about a 

“ specified moment center (XM, 0, ZM) is defined as a moment with its axis 
normal to the Yp = 0 or Yw = 0 plane.- Clockwise rotation about the Yp or 
Yw axis when viewing along its positive direction corresponds to positive 
pitching moment (positive pitching moment causes nose up). For 'one 
panel, the contribution to the pitching-moment coefficient is given by 


(x, . - XM) 
Cc EE ee! Os ES (F2) 


det. 


The yawing moment in the body coordinate system about a specified moment 
center (XM, 0, ZM) is defined as a moment with its axis normal to the 

2, = 0 or z= 0 plane. Clockwise rotation about the Zp OY Z, axis when 
viewing along its negative direction corresponds to positive yawing 
moment (nose to right is positive yawing). The contribution from one 


panel equals 
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x es 
C, 4 =-C, , —ete ___ (F3) 


Rolling moment measured about the body centerline is positive if the 
right fin(s) move in the clockwise direction viewing upstream. Both 
components C, . and cy, j contribute to the rolling-moment coefficient. 


Thus, the Bone eiiuien from one panel is 


: _ =O : Yopr, j +C  . Zopr, 5 (PA) 


he J ; hier’ 


By adding all contributions from the constant u-velocity panels on the 
right upper fin, the total force and moment coefficients acting on that 
fin can be determined. Thus for the upper right fin designated Fin 1 or 
Fin R, the forces acting on it in the ZW and Yw directions, respectively, 


are given in coefficient form as 


Cc. or CLR = 2 ON 5 COS $p 
i _(F5) 
eS). Ge a Ss 
Cy,1 OF Cy R 2 x, 4 Sin op 


Here NRP is the number of constant u-velocity panels on the right upper 
fin. The pitching-, yawing- and rolling-moment coefficients are 


obtained from the following expressions, respectively. 


NRP “(x -XM) 
C. 1% Sn Rp ® ~] C,. . cos ¢, aie a 
My aad j=1 Nyj iret 
be - NRP (x .-XM) 
a ; CPT (F6) 
Cc or Cc = . Sin ae eS eee 
n,l n,R ) Cy, 5 op L of 
he 6 = = . - ZM)) 
NRP (Cy 5 COS *pYcpr,3 ~ Cn, 551" °e cpr, 5 | 
“Cy 1 or Cy R =- 
, ’ j-1 ref 
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The reference length 2 ef as well as the reference area Sef are speci- 
fied in namelist INPUT of routine CRFWBD in program DEMON2 as REFL and 
SREF, respectively. Fin dihedral angle, $, or dpe is defined as shown in 
figure 3 and equals positive angle bp Angles dp and 6 are specified in 
namelist SINPUT in the main program CRFWBD of program DEMON2 as PHIDIH 
and THETIT, respectively. 


Left lower fin: 


All expressions shown and discussed above for the right upper fin 
apply except for equation (E5) which gives the forces acting on the left 
lower fin. They are changed to 


ee : a 
c or C =. Cc, . Gos > 
2,2 ) z,L. 4j=NRP+1 N,j F 
(F7) 
NHP 
Cy 2 or C = -) C, . Sin op 


Yr j=nrp+1 N03 


; where NHP is the number of constant u-velocity panels on the right upper 
fin plus the number of panels on the lower left fin. Likewise, the 
expressions (F6) for moments become 


-XM) 


NHP (x, . 
CPT 
c or Cc = = Con 68d HL. 
m,2 m,L jSNRP+1 N,) F dof 
NHP (x . -XM) 
C,59 orc. ,™ 5 Cy, , sin op St (F8) 
igs oe j=nrPt1i ° J . ref | 
| _ .si .~ZM 
NHP (Cy 4005p Yoprp Cy sind, (Zapp )) 
Te CEES ee 
Re EE | ABMRBEL ©". ref 


Note that in accordance with the convention indicated in figure 3, the 
dihedral angle, $5 or oye associated with this fin equals positive angle 


dpe ‘Fin location angle, 


8. ee is defined as shown and equals positive 


angle 6. 
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Right lower fin: 


Referring again to figure 3, the dihedral angle of this fin, $3 or 
iy" equals the negative angle, “ope The positive sense of Cy is also 
indicated. For this fin, the fin location angle, 85 or Bye equals the 
negative angle, -8. All expressions shown and discussed above for the 
right upper fin apply except equations (F5) and (F6) for which the index 
of the summations is changed and also accounting for the change in sign 


on terms involving dihedral angle op: 


N3P 
Cc or C = y . cos > 
Z,3 2,0” swiped on, 5 F = 


nae 
or C = C.. . sin 
¥,3 YU jenkp+a Ned . 


Cc 
where N3P equals the number of constant u-velocity panels on the right 
upper fin added to the number on the left lower fin added to the number 
on the lower right fin. The pitching-, yawing- and rolling-moment coef- 
ficients are , 


N3P (xX. = -XM) 
E CPT 
Cc or C = -} Cc. . cos ¢, — etl 
m,3 m,U 4=NHP+1 N,j F Leaf 
N3P (x . -XM) 
7 : CPT F10 
Cc, 30rC, y= ~) Cy; Sin op tt (F10) 
i j=NHP+1 1“! ref 
<i (Cy ,COS$, Yopr Cy sing, (Zapp .-ZM) ) 
Cc or C = = Nj CPT) ON) 
ine &,U  j=NHP+1 det 
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Left upper fin: 


The dihedral angle for this fin, , or Pps and its location angle, 


84 or 6 have the same sense as those for the right lower fin. Thus, 4 


Dd’ 
equals negative angle, “On and 4 equals negative angle, -@. The 
expressions for the forces and moments acting on this fin are the same as 
equations (E5) and (E6) except for a change in the index and accounting 


for the change in sign for terms involving dp: 


NPANLS . 
Cy gO8 Sy gy > ee Cy, 4 COS 
co, (F1l) 
NPANLS 
Cy 4 or Cy pb = jeu ies1 Cy, sin op 


Here, NPANLS equals the sum of the number of constant u-velocity panels 
on all four fins. The pitching~, yawing- and rolling-moment coefficients 


are given by 


NPAN : _-XM 
C or C 7 =, 7 : Cay OF ree 
m,4 m,D =NHP+1 “J . ref 
NPANLS (x .- XM) 
‘ : CPT : 
ue - C., . sin opt (F12) 
Cn ee CneD j=NHP+1 NyJ Xref 
_ NPANLS (Cy ,COS$,, Yopr Cy Sind, (Zope .~ZM) ) 
Ci Ale PET ace ee ae se rae naceats 
: : j=NHP+1 : ref 


If the aerodynamic loading is symmetric about the vertical or Yp = 0 
plane as is the case for an unrolled configuration with symmetric body 
nose vorticity, only the right upper and lower fins: are considered and 
the overall sideforce, Cyr and yawing moment, Cyr are zero. 
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BODY INTERFERENCE PANELS IN SHELL OF ELLIPTICAL CROSS SECTION, 
FORCE AND MOMENT CALCULATIONS . 


The following force and moment coefficients are computed in sub- 
routine LOADS of program DEMON2. Let Cy, k be equal to the normal-force 
coefficient for one body interference panel (a constant u-velocity panel) 
with control point coordinates Xoprk! Yopt,k’ 2 cpT,k specified in the 
wing coordinate system (xX, Ywr 24) - The positive sense of the normal 
force corresponds to a force pointing outward from the body as shown in 
figure 3. The components in the zy and Yw OF 2, and Yp direction are 
given by 

CL ok = CN k cos 2, 
an (Gl) 

7 ee aed 
when 8, is the angle between the’ panel trailing edge and the Yw axis. It 


is calculated in accordance with 


Zz ~Z 
Li Oe eds ee 


; 1 
* Il | a 
z -z +ly. -y 
| Mt Maina? UM a Me a-2 


Y BD 
Wye . OW 


sin 65 


.(G2) 





cos 84 = - i 
s | (« -Z J+ (v0 “Yw j?|? 
Lone a ae | ki Kk a-i 


Subscript i and i-1l refer to the two parallel panel side edges as shown 
in figure 3. Note that panel location angle orp positions the side edge 
designated i on the body circumference (BIP stands for body interference 


‘“panel). 
For the k'th body interference panel, the contribution to the 
pitching-moment coefficient is taken about moment center (XM, 0, ZM) and 


is given by 
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x —-XM 
Cc =-c . —CPE,k (G3) 


m,k z,K L of 


where as discussed earlier in connection with the right upper fin, posi- 
tive pitching corresponds to nose-up motion. The contribution to the © 
yawing-moment’ coefficient from the k'th body interference panel equals | 


HGS x -XM ; 
CPT ,k 
Cc Be te et ah 2 «e489 


where positive yawing corresponds to nose to right motion. As is the 
case for the interdigitated fins, both components of the normal-force 
coefficient contribute to the rolling-moment coefficient. 


ee _ “CL k Yopt ,k i Cy Zep 72M) ogy Ao HEB) 
2,k g 
u ref 


By adding all contributions from all the constant u-velocity panels laid 
out on the interference shell, the total force and moment coefficients 

acting on the part of the body covered by the interference shell can be 
calculated. Thus, the contributions to the overall forces acting in the 


z,, and Yw directions are given in coefficient form as 


Ww 
" .NBIP 
C,, BIP = oes Cy, COS oe. 
. | (G6) 
NBIP : 
Cy BIP ob. Cy ok sin 0, 


Here, the number of constant u-velocity panels in the interference shell 
if given by NBIP. The contributions to the overall pitching-, yawing~ 
and rolling~moment coefficients are specified'as follows,. respectively. 
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NBIP 
gate x -XM © 
Cu,BIP = t Cy ~ COs oo cPT,k 
ref 
NBIP x -XM 
. CPT,k 
c = -) ¢c sin 6, —— (G7) 
n,BIP k=1 N,k 2. et 
NBIP ON;koo** 2¢%CRr,k Nk oO 25 Pept 
Cc = - 
&,BIP yo . . ef 


As mentioned earlier, the reference length dof and the reference 
area S..- are specified in namelist SINPUT of routine CRFWBD in program — 


DEMON2 as REFL and SREF, respectively. 


‘ 
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EFFECTS OF EXTERNAL VORTICITY ON BODY 
WITH ELLIPTICAL CROSS SECTION 


The sketch below shows the circumference of an elliptical body. 

Also indicated are eight panels in end view as an example of a sparse 
body paneling layout. The panels can be source panels as employed in 
program WDYBDY to account for body volume, angle of pitch and angle of 
sideslip. However, in program DEMON2, these panels are constant u-veloc- 
ity panels to account for wing-body or tail fin-body interference. In 
either case, the panel control points designated CP in the sketch lie 
inside the actual body circumferencé.. In the calculation of pressure 
distribution on the body, it is desired to account for external vortices 
at the control points. Let Pr, and rh be body nose vorticity idealized to 


two potential flow vortices. 


(Ome ae 





Actual body 
circumference 


Body source panel 
to model body 


The solution for the: flow field around a body with elliptical cross 
section in the presence of specified external vortices is given in 
Appendix I. This solution is programmed in subroutine VVELS in both 
programs WDYBDY and DEMON2 and provides valid flow field velocities at 
points on and outside the body circumference. However, the control 
points, CP, are inside the body by virtue of the method resulting in a 
layout of inscribed panels. For the purpose of accounting for the 
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presence of the vortices, their induced velocities are calculated at 
points CP' instead. They lie on the intersection of the body radius 
which contains control point CP and the body circumference. In actuality, 
points CP' are displaced further out a distance equal to one percent of 
“the body radius Tr, in the programs using subroutine VVELS. This is done 
to prevent numerical problems encountered when computing velocities on 
the body surface if the coordinates of the body points are calculated and 
specified to subroutine VVELS. To accomplish this, the polar angle 8» 
designated THETP in the computer program is calculated first as follows. 


Zz 
a= tan7? -CPT. (H1) 
Yopr 
The coordinates of a given control point CP are Xopr, Yopr and Zopp in 


either the body or wing reference coordinate system. Then to determine 


the body radius r, at angle Ope the equation for the ellipse is’ used. 








B 
yo ; 1 : (H2) 
cos’ 6, A sin OD 
AB? BB? 


Here AB is the horizontal semi-axis and BB is the vertical semi-axis of 
the elliptical cross section for given axial body station. The coordi- 
nates of the corresponding body surface point CP' displaced one percent 
of the radius rp outside the actual body circumference are 


Yopp = 1.01r, cos oD 


(H3) 


Zz 


CPB 1.0ir, sin 8p 

Thus, subroutine VVELS computes the vortex induced velocities at points 
CP', These velocities are added to all other velocity component contri- 
butions calculated at the panel control points, CP. The pressure is then 
calculated at points CP in accordance with the Bernoulli relation, equa- 


tion (10). 
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VELOCITY COMPONENTS IN CROSSFLOW PLANE REQUIRED TO 
CALCULATE VORTEX TRAJECTORIES 


In order to calculate vortex trajectories using slender-body methods, 
it is necessary to know the two velocity components in the crossflow plane 
at the vortices. The lateral movement between two axial stations a distance 
Ax apart can be calculated from these quantities. Since a number of dif- 
ferent cross sectional shapes in the crossflow planes are of interest in the 
present ‘computer program, a number of different solutions are needed. 
‘Specifically the following eight velocity fields are used. | 


1. Velocity fieid induced in crossflow plane by a set of vortices 
in the presence of a cruciform wing-body combination on one 


member of the set. 


2. Velocity components in crossflow plane due to pitch and bank of 
a cruciform wing-body combination. including volume effects. 


3.° Flow field in crossflow plane due to symmetrical deflection of 


two panels of a planar wing-body combination. 


4. Flow field in crossflow plane due to deflection of a single 
‘panel on a cruciform wing-body combination. 


5. Velocities on a vortex due to other vortices in the crossflow 
plane in the presence of a monoplane midwing mounted on a body 
of elliptical cross-section. 

6. Velocity components in crossflow plane due to pitch and bank of 


a monoplane midwing mounted on a body of elliptical cross-~- 


section. 


7. Velocities on a vortex due to other vortices in the presence of 
a monoplane midwing mounted on a body of elliptical cross- 
section including effects of angles of pitch and sideslip. 


ABS Velocity components in the crossflow plane due. to expansion of 
a body with elliptical cross sections. 


The expressions for all these velocity fields are given in this 
Appendix. Although some of the expressions have been published elsewhere, 
they are ali being presented here for completeness and to collect the 


results in one place. 
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1.- Velocity Field Induced in Crossflow Plane by a Set of 
Vortices in the Presence of a Cruciform Wing-Body 
Combination on One Member of the Set 


This solution is required to determine the trajectory of a vortex in 
the presence of a cruciform wing-body combination. The solution for v 
and w will be determined using slender-body theory. The following trans- 
formation of a cruciform wing-body into a circle of radius R is used. 


ee OG 
b ae & 


“e) 


r 


arY¥yo2y 





4 4 ae a ee 
= gt + R. 2R° = 8° + = (11) 


iS) 
las 


tT + 


a 52 i 
4,2 4 
= af fs + 2 ~ 2R7 +7 [:? + z1 + a (12) 
T T 


o= 
/ 4,2 / 4 | 
t= zp (0? + 5 - 2a2 + [0? + 5] + a (13) 
6 


The potential for one vortex in the presence of the circle in the 


o plane is 


“iT, ivy R 
W, (0) = a ro Ln (o-0,) + aT fn jo - = (14) 
oO 


/1210 


APPENDIX I 


We omit center vortices to keep the solution regular for large o. The 


4 


complex potential for the set of vortices is. 


“il, if R) 


sO _ bis O! ~ & 
W, (9) = ae dn (a 94) + Ln jig = 
: (I5) 
i ; aes 
- = rT, £n |——-———_— 
2m .& i 2 
i=1 [> - £] 
oa 


The complex potential in the tT plane is given by equation (15) with the 
substitution o = o(T). . 
Consider now the complex potential for the motion of vortex - in 


the +t plane. 
-if ; : 
ee = Wi lo(t)) + Ts fn(t > 4%.) (16) 


The velocity components of Ms in the t plane are 


























rR age 
; Vs iw, ae Wr (t) er (I7) 
ane) ToT 
-if ‘(0-0 if 2 
a + ° fo} d re) R 
ar “rt ae la an [= } Par .\see one Se 
ro) ° Co 
(18) 
; o- oO 
i @ 1 
~arar 2 ty & = 
Bes 
o. 
1 
It is shown (ref. 4) that ; 
a TT, 1 1 do 
s- £n = lim = = =— 
dt OO 8) | ane me ; TS (o as e 
° fo) 
2 
do 2 ej 
O-o_ = (T-T ) [ge] + > (t-1_)* =s 
° ro) 
d d ao 
oo ce [32] HP AtaT So) (19) 
dt (ett. at’ |t 
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Bn A Ses ae 
T=-T (o-0_) dt. o-o TT dt 
fe) Oo 
= i [a2] + L (t-T ) do 
O-0, at T, 2 ° at? 
re) 
2 
do ao 
hones — prt =. (t-T ) = eee 
at Ts fe) ar? ae | 
° 
Sars le (==<2] d2o 
2 o-0, at fe 
° 








Equations (I1), (I2) and (I3) yield the following relationships. 


OE eee 


at ~ 73,54 — Ry 


Bi las : 
d?o _ ot (t4 + gat) ort? - at)“ (o4 + 3p) 
ae de . 
dt? (o* - R*) 14 ite SR) 
dt d20 _ 1t2(04 - r4)? (74+ 304) - 02 (14 - a)? (0% + 3R*) 
do 4.2 MER Sy Fe GR 
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(114) 
(I15) 
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With these results, we find the desired velocity 





vi - iw. = 
° 
+ 
Ee (I17) 
where 
Ms = strength of vortex, the velocity components of which 
are being calculated 
VorWy = velocity component of vortex a 
Tr, = strength of any vortex except Toi i=1,2,...N 
te = position of Ps in Tt plane 
5, - = position of I in o plane 
oO, = position of T; in o plane 


4 


2.- Velocity Components in Crossflow Plane Due to Pitch and Bank of 
a Cruciform Wing-Body Combination Including Volume Effects 


For a pitched and banked cruciform missile the induced flow field can 
be obtained by superimposing two planar missile flow fields at right angles 
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The flow field about a planar wing-body with horizontal wings is described 
by complex potential Wo corresponding to V,cos $¢ sin a6 along the positive 
axis of z. The complex potential We is associated with velocity 

-V,sin $ sin a, along the negative axis of y. The total potential is then 


W(t) 
-V 


oo 


(t) : (118) 





= b, (x) + a ($3) Ln t + W(t) ies 


dx B 


If » = 0, the perturbation complex potential is given in equation 
5.3 of reference 8. Using the small angle approximation: 





W(t) _ b_(x) + a (2) fn t - ia [« + a)" - [s + a : - T (119) 
Ve ° ax | T marie eect 
The velocity v-iw for ¢ = 0 is then 
veiw. 2 = (8) be 0 : 
- ia (t4-atys 


7 ¢=0 fi ee (120) 


ay {x? 2) (126? a‘] 
T t - Ss TS wr a 


v-iw > 0 as TH oO 


and 


The perturbation velocity v, - iw, associated with the velocity component 


Viais 
foo} 
ae : 4 4 
Vo iw. 7 - ia (t-a")s Gee Bee 4 ae 
Veo 2 2 2) (25? 3] . 
T T - S TS - a 


From this expression we can determine the perturbation velocity vee iw, 
associated with the velocity V8 along the negative axis of y. 


Consider a set of coordinates y' and z' as shown with velocity com- 


ponents v' and w' with t' = -it. 
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The perturbation velocity v'-iw' is given analogous to equation (121) as 


vi-iw' _ - if (x4 - a \s ; 
a ie at 
qt? 1°? - s* a's -a 
; : 4 a 
= ————_i8 (1 =a js + iB . (122) 
12 17 + B* 152 + a 
4 4 
= PB AT Feo 8 + 8 (123) 


“ -i(v'-iw') = Vg - iwg = 

5 ao of 1? V [? + 5?| {225? + a‘) 
It is possible to add vg - iw, to the results of equation (120) for 
¢ = .0 to obtain the total complex potential for the cruciform wing-body 
combination since the sum satisfies the boundary condition. Accordingly 


we have the final result 


ia ix! - a)s 


2 2 2_2 4 
tT - Ss TS -a 


Ga) ol. 2.3 | 
v-iw = a($3] (+ ia+g- 


(124) 
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3.- Flow Field in Crossflow Plane Due to Symmetrical . 
Deflection of Two Panels of a Planar © 
Wing-Body Combination 


3.1 . Introduction 


In determining. the perturbation velocity components in the flow 
field of a cruciform wing-body combination, we must have flow field 
solutions (1) for no fin deflection at a # 0, (2) for symmetrical fin 
deflection of opposing panels at a = 0, and (3) for the deflection of a 
Single fin,of a cruciform configuration at ao = 0.- The first two flow 
fields for a cruciform wing-body can be formed by superimposing solutions 
for a planar wing-body combination at right angles to each other. The 
first: solution is given in the preceding sections; the second solution is 
the subject of this section, and the third solution is the subject of the 


next section. 


3.2 Boundary Value Problem 


Consider a planar wing-body combination with a carentar body of 


radius a and a fin of total semispan s. 





=y+ iz 


The left and right fins are deflected trailing edge down by an angular 
deflection 6 such that the normal velocity on the fins due to the free 
stream is V6. The complex velocity in the crossflow plane is v + iw. 
We have to find perturbation velocity components u,v,w at a point x,y,z 
in the crossflow plane. The complex variable in the crossflow plane is. 


T=ytiz. 
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3.3. Method of Solution 


Let W(t) be-the complex potential for crossflow about the wing-body 
combination in the crossflow plane at x = constant. Let the missile cross 
section in the t plane be transformed to a circle of radius R, in the a 
plane. We will find a complex potential W(o) which when transformed back 


to the t plane satisfies the boundary condition in this plane. If 


= =V- iW 

(125) 
agWw_ os 2.3 do 
= = v-iw = (V iw ($2 


The transformation taking the missile cross section into the circle 


of radius R, is 


eee : 
with a2 
aR, =s + at * (127) 


where a is the body radius and s the fin semispan. In this transformation 
the field far from the cross section is undistorted. The reciprocal 
relationships between corresponding points in the o and t planes are 
obtained from the equations for the upper half plane . 


oat |e 4 ae ti + a” : ~ 4p? (128) 
2 T ‘2 T fo) 
2 
t= 1 o + RS + i ot RS = ha | (129) 
2 oO 2 fo} 


On ‘the circle o = Roe , we have 


; 
| 
1S) Me) 


t= R.cos 6 + R cos’ 6 - (130) 
° ° R 
° 
If 6 = 9° 
If cos 6 = a/R: then 
T=a (132) 
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These points are shown in the following sketch 





t™ Plane Oo Plane 


3.4 Complex Potential 


To obtain the complex potential, we follow a variation of the method 
of Adams and Dugan (ref. 21). Consider points on the upper and lower 
surfaces of the right wing at the same y location between y = a and y = s. 





~-i0 
Let the corresponding points in the o plane be Re . and Roe 7 
16, 
Let a sink of strength dm exist at the point Re 
-i 
opposite strength exist at Re ©. The complex potential due to the 


sum of these two singularities is 


\ 


and a source of 


i8, 
o- Re 
= _. dm EMER: Eros 
dW, = - 5, én 18, 7 (133) 
o- Re 
[o} 


The circle Rev? is a streamline of the flow except at the singular 
points. In the t plane an amount of fluid dm/2 enters the fin from above 
and an amount of fluid dm/2 goes out beneath the fin. Since the. upwash 
through the fin 6V_ must be countered by the source-sink combination, we 


have 
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dm = 26V_dy (134) 


Accordingly the complex potential due to the right fin is 
i6 
s oO -e 2 
év f R, 
Wo=- | kn |} —————| dy (135) 


For the left fin, we have by analogy 


aid, oO; = Roe 
ye ae | OL 


dm 
27 


dy (136) 





: - 2iR osin 8 
5 or ay (137) 


2 aia Z 
o Ro . 2iR,osin 8, 


Ss 
6V | Oo" - 

a 

‘To solve equation (137) for W(o), we first assume that o is real, 
and integrate equation (137) on this basis. We then invoke the principle 
of analytic continuation, and assume the result is valid for o complex. 


The complex velocity in the t plane is determined by 
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aw do : : (138) 


and it can be examined to make sure it satisfies the boundary conditions. | 


Setting 2 2 
a” = RO . 
5 a (139) 
bv. A - i sin 0.) 
we 2 ft ae] ay i) 
a Os 


Fs y d(sin 6_) ° 

+i pee GS OC 
A - i sin 86 A + i sin 6 

a a | 


y d(sin 8) 
(141) 


Let 


S$ y d(sin 84) 
es | X- i sin 65 
Sy d(sin a) 
T, - | A + i sin 86 
a 


With the help of subsequent results in section 3.6 for I, + I5e we 


obtain 
az 
; A -i l1-+ 
‘ 6V., Ro 
W(o,a,R_) = ~- —(-a én 
° T Wig ® 
. a 
A +iVl+-—> 
R2 
° 


(equation continued on next page) © 
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: : a 
: ; 1- 1 
2 -1 Ro 
x dieters ahs £6, oe DIR A” + 1 tan 
' PAGOS Sg Py Gets O ; a 
R 
.o) 
iR 22 a 4 ohm aces 1S aoe 
- iR,t X + l- ae 5 5 co R, 
a) 


3.5 Crossflow Velocity Components 


Having the complex potential, we may. now obtain the velocity com- 
ponents in the o plane and the Tt plane. 


. _ aw (ad - 
V- iW= an (4) (143) 
We will carry out the differentiation 
2 2 
A~ i V1 - & Vi - 3 
R R 
fn ———_———?}| = -2i tan} ——_ (144) 
AtaVi - 3S) 
R? 
(e) 
a’ / ac 
A- iVl “2 + 2i 1 = a 
I as |e eee eg | Pee ee (145) 
ar 2 2 
A#iVi-3) 07 41-45 
R R\ 
° °°. 
o* + R? go? = Re 
a =o 4 os 2 (146) 
o 
2R,9 2R,9 


Thus 
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2 2 
ene a eo 4iR [o? ‘ RS 1- 2 
2 ° fo) 2 
R Ri. 
2 gn |——__—2] =  — 5 a7) 
: a@ o@ + R?] - dato" 
a + iVi - 32| ° 
R 
Le) 


2 Sap 2 
1- SS . 2 (07 + R*)a ess 
R ° 
Ry ; 


a: 
Go 
> 
NO 
om 
= 
ct 
Fe) 
5 
' 
| ome 
~» 
iS) 
+ 
= 
1 
on 


2 


— 2 2 2.2 
Ry (o” + Ro) - 4a o 
2 
Vi eae 
t- a2) | forse? Re 
+ ———;2 tan ed (148) 
2 2 2 2 a : 
Roo oC ~ = R- 
re) 
4 4- 
2 ac o -R 


» 
+ 
= 
I 
i 
Nye 


da 
do 2 2. 
Ro 2Ro9 V (0? +R ie - 4a7o* 


The expression in complex form for V - iW is 


[ 2 / 2 
; 2 2 a : 2) cs 122 a 
4iaR (o + R,) l---= 4iaR, (0 + R,) 1 Re 


° 


2 
, $V, R ) 
MSW Se ea ——_—_—_,—_——_— - ——_—_—__,—_—_—* 
(07 + R?) - 4a*o* (02 + R?) - 4a*o* 
° oO” 
4 a2) 
5 
i(o” - R_) = a? 4 R* R? 
- tan = 2 
2 2 2 a 
oO oO - R- 
bed ° 


(equation continued on next page) 
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are, ee | a ne 
in (o" ~ R,) " i{o” + Ro) la -lf{a 
OS Se Se ee (Cos > 
2... 2 2 R 
CO fg gee are 0 ° 
(o” + R) = 4a™o ; (149) 
We now determine v - iw in the tT plane 
v - iw = (v - iw) $2: (150) 
‘From the transformation we find the following relationships 
. ms we = i} ee ay 2 
: ean RC 
aT (0% - R?) ae 
o? +R? - . az 
= =.T + a (151) 
0? - R2 a2 2 2 
= [: + 2] ~ 4R 


The following results are needed to accomplish the transformation of the 


results to the t plane.- 








2 a + Re 
o +R (22) rm é (= S 2") 
25 atin e 2 Ai 2 
(o* + R*) - hare? o2 + R? | 2 (o Ro) ‘ 
° * OY) cs. hG 
oO 
a6 
_ tT + ae 1 (= Ss 2") 
~ ee 2 2 
2): 2,2 T 
; a’. 2 a 2 
[: + : ] s.- 4a [« + 2] 4R 
es 2 
iy ab (1? + a*) (152) 
(1? = a?) Wir? + a%)% ~ aR? 2? | 
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Since 
2 2 
Go - R, do _ (= = a) es 
3 at r 
we find 
2 
1-% 
2 2 2 2 
do i Ry FS -1 es R, Ry ue 1? a? -l 
at 2 an 2 2 7 = 5 | tan 
ie} of _ Ro R- T 
° 
2 
(2 + a2) V1 - a. 
R 
$ 2 (154) 
(2) (12 + a*) - 4R?12 
‘° 
° 
4 4 
wie SO ee fda) 2 a) 
: dt} °~2 (155) 
| T 
of (07 + R?) - 4azo* 
2 2 
as eo dos ; 4 - at 
2 at. ; (I56) 
oO < 
1 (12 + a’) - arer? 


These results yield the complex velocity in the Tt plane. 


(1? + a*) Vi - a 


) 6V 2 2 R 
; s -_ -— 
(v - iw) = = 1 see OE a ae = es =O 


(equation continued on next page) 
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. Tt +2 es i {x4 - at 
+ i(>) a, ee re 


E + eaer et (a) (157) 


The expression can be pubhen down into real and, imaginary parts to 


obtain v and w, but.is probably more convenient to obtain v --iw on the 


computer using complex calculations. 


3.6 Evaluation of Certain Definite Integrals 


The following integrals are to be evaluated 


where . 


We want 


ee eae 
Pe / y a(sin 8) - , (158) 


Ll “Xi~ isin @é 


} 7 


' oO : 
— iL y a(sin 6) . 
ws Peatyee hPa sing” (159) 


~a°/R 
° 


: 2 e 
y= Ro cos 6 + \f/2 = a - sin20° (160) 
OR | : 


fe) 


the sum I, + I, in particular — 


ae 
= 2rR ee cos 0+ Ve -sin?@ |d(sin 6) (161) 
r? Fs einte 


V1 ~a"/Re 


0 ~ oO - 
= 2R, | (1+?) ——t = ae 
cos ta/R, (a epee @) cos “a/R. 
(equation continued on next page) 
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P ( a 1) af asin) 
2 2] 
Ro Mi-a? /r2 (A? + sin?@)\/1 - 2- - sin?e 


R 
° 


__d(sin 6) (162) 


fae 27R2 \/1 - - @ 
~aP/ sin® (Concluded) 


We now integrate each of the four separate integrals. From pg. 323 


in reference 19. 








o : 2 
f ao oe Va? (02 +1) tan 6 
Z Vie 2 a 
Los 3 (a/R, 0? + sin? G2 einee). M2 (12 +1 . a ee 
oO 
He 
-1| Wr2 Re 
aoe 1 ane Att =o (I63) 
AV AZ +1 Gs 
: fe) 
° 
, ~ a 
dé = - cos } (2) ‘ (164) 


cos? (a/R) 


The third integral can be evaluated with the help of the following 
result from page 55 in reference 20. 


ax = 1 -1 xVA2+ v2 
SS Sd -Ban se oe OF (165) 
(A? +x?) \/ v2 - x? AV AZ + vv? AV v* - x? 
oO 
d(sin @ = 1 
2 
V1 - a® /RE (A2 + sin? 6) 1-25 - sin*6 n\ pr? +1 -45 
RS Ro 


126 





APPENDIX I 


/ 2 
7 +1- sin @ ‘ 
Re 





a : 1 
tan SS --(3) (166) 
2 
r)\/1 ~S— - sin?e |}\/1-a?/R2 x) [2 $i See 
R2 ° R2 
° ; fe) 
The fourth integral is 
° re) 
| d(sin 6) oe sige sin 6 


/ 2 2 
~/ 2742 2 a 
l-a°/R 1- - sin’ é 1 - 
ro) 2 
. & V 1-a7/R? 


cis 


fe) ° 
2323 SIE, D3 
Finally we have 
‘ / 2 
a 
Do oe 
7 Ve eT oat 1 We Ro 
I, + I, = 2\R - ————_ ta | 
1 2 ° A A 
a 
R 
fe) 
= 2 
ta +1- 5 
-1 a T eS T 
+ cos =| “3 ea + 2 ; (168) 


4.- Flow Field in Crossflow Plane Due to Deflection of a 
Single Panel on a Cruciform Wing-Body Combination 


4.1 ‘Introduction 


For a cruciform wing-body with no panel deflection, the flow field 
based on slender-body theory is given in section 2. However, the general 
flow field due to panel deflection is not known. From the results for 
Single panel deflection, the effect of arbitrary deflections of all four 
panels can be obtained by superposition. This result will now be derived. 


4.2 Boundary Value Problem 


Consider the ‘cross section of a cruciform wing-body combination at 
zero roll angle and zero angle of attack but with the right fin deflected 


127 


APPENDIX I 


by angle, 6, positive trailing edge down. The crossflow plane is desig- 


nated by the complex variable 





The body radius is "a" and the fin semispan is "s". The vector velocity 
in the crossflow plane is v + iw, and the axial component of velocity is 
"u". Let the right panel be deflected by the angle 6 so that free-stream 
“velocity V,, causes an uniform upwash V,sin 6 through the fin. We must 
find a potential ¢ which produces equal and opposite downwash on the right 
fin and at the same time causes no flow normal to the other fins or the 
body. We then are to find the flow velocity components u and w at points 
x,y,z in the field due to this potential. The quantities a and s can be 


functions of x. 


4.3 Method of Solution 


The method of solution is to find the complex potential W which 
Produces unit velocity at a given point on the deflected wing in the 
Yange a < y < Ss and zero at all other points. Then .the effect of all 
such fundamental solutions over the range is summed by integration. The 
fundamental solution is that given by Adams and Dugan in reference 21. 
The velocity components are found by differentiation of W. 


In obtaining the solution, recourse will be had to the theory of 
conformal transformation. In this connection let the cross-section of 
the cruciform wing-body combination in the t plane be transformed into a 


circle of radius R in the o plane with 


o = & + in (169) 
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Such a transformation is given as 


4 4 
+3 s rae a (170) 
2 2 
/u 9 
with . 4 
ar? = s* + 35 s.r (171) 


The reciprocal relationships between points in the 1 and o planes are 


4 4 
o = $ V [<? + 2 = op? V (2? + ] + 2R? 
“ : (172) 
4 4 
T= 1 o? rp - 2a" + a? + Re + 2a? 
2 62 o@ 


In these relationships we confine our attention to the upper half plane. 
In equation (170) we have put the fields at © into the identity relation- 


‘ship 
o+t aS T+ (173) 
18, ié at Uae 
A point Re on the circle Re. corresponds to Yo in the physical 
plane. From equation (170) 
2i6 ~2i0 
fo) co) 4 
2R? 52] = y. + at (174) 
. Yo 
so that -_ & 
y? 2 2° ae 
= = cos 260 + [cos 26. - 25] (cos 260, + 2] : . (175) 
R 2 Oo  R R 
and ; : : ‘ 
3 . 
y 2 
=2 = 4) \Vicos 20, - = + Vcos 20, + & . (176) 
Ro WF ° R ° R . 


If Yo = 5 then from equation (174) and (171) 


2R? cos 20, = 2R7 
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or . 
6 = 0; y=s (I77) 


Let the point Re?’ correspond in the o plane to y = a in the Tt plane. 
Then from equation (174) 


2 
cos 2Y = 25 (178) 
R 


4.4 Complex Potential 


To obtain the complex potential for the fundamental solution, we fol- 
low the method of Adams and Dugan. Consider points on the upper and lower 
Bur Races of the wing at y = Yo and consider a sink of strength dm at 

fo) “io 
Re 


and a source at point Re in the o plane, corresponding to the 


two points at YY; in-the t plane. 





The complex potential for the sink is (assuming dm is positive) 
i6 


= _ am sd ° 
aw, = on te Re ) 
and for the pair, we have 
ie) 
aw = 22M p, |Z = Re - (179) 


It can be shown that the circle 
o = re? ® 


is a streamline of the copie potential given by equation (179) although 
-1 


° are singular points since many streamline 


the points Re and Re 
converge at these points, with a net mass flow through the circle at 
these points. Since ¢ and p are equal at corresponding points in the T 
and o planes in the conformal transformation of the flow, we can evaluate 


y on the wing panel in the Tt plane. Let the velocity components in the 
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=— = -w= + 6V_; a<y_<s (180) 


= bv ay. (181) 
and we have 
am = 2h, = 26V dy, . (182) 


‘Now summing all sources and sinks along both sides of the right 


panel betweena < ve Ss, we have 


 w(s) id. 
w=-t én [2 = RE ay : (183) 
p (a) “do = re 2% 


Integrating by parts, yields 


dé -i80 
2 o - Re 


sel WY ope (essen sl 
1 oot 


+18, 
<= y(o_) ~4_ |p, |2 = Re de, 
o - Re 


ou—-~< 
3° 


. Y 
wo) = YO) 2, g _- Re*** _ 2iR | gees 050 = RW te Nae. . Beat 
” o - Re’. 1 Ore pees 1h es ee 
° Oo ; 
_We now evaluate be by integrating equation (180) 
a = SV Yo +k . (185) 


where k is an arbitrary constant which we will set equal to zero. We 


thus find the complex potential 


1 OW ? iy 
W(o) = —~(a én aaa 


o - Ret’ 
uf 5 re ane 
; Y (ocos 6, R)} Vcos 26, - 3 + Vcos 26, + 7) . 
- iv2 R | SSS Se See do, (186) 
o (o" ~ 20Rcos 6, + R’) 
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v 
The expression of equation (186) is the one which will be used to 
determine u, v and w. Several approaches are possible. First we might 
consider o as a real quantity, and integrate equation (186) to obtain 
W(o). Then invoking the principle of analytical continuation, we would 


assume o was complex again, and separate W(o) into ¢ and ». Differentia- 
tion of » then leads to u, v, and w. This approach was tried and the 
part of the second integral involving V cos 260, - a 27R2 yields complete 
elliptical integrals of the third kind. The eeana part involving 

cos 26, + a2/R? yields incomplete elliptic integrals of the third kind. 
To separate such an incomplete elliptic integral into real and imaginary 
parts was considered too formidable a task so that an alternate approach 
was decided. . In this approach W(o) is differentiated, and an expression 


for V ~ iW is obtained. Complex integration then yieids V and W, the 
velocity components in the o plane. 
4.5 Determination of V and W 
We will determine My and W by carrying out the operation 
dw 


vV- iWwe aa. | , een 


on equation (186) and evaluating the complex integral. Carrying out the 


operations yields 


V - iW a a 


Ne EN ae A 
ON ae™ o-Re’’ o-Re a 





Oo (0? ~ 20R cos a + R%) 


(188) 


Equation (188) is solved numerically. 
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5.- Velocities on a Vortex Due to Other Vortices in the Crossflow 
Plane in the Presence of a Monoplane Midwing Mounted on 
a Body of Elliptic Cross-Section 


5.1 Conformal Mapping 


“As the first step in the analysis, we transform the elliptical con- 


figuration into a circle of radius R. 





real plane: Z=x + iy transformed plane: ¢ = € + in 


Bryson (ref. 22) has presented the desired conformal mapping for an 
elliptical body with wings and vertical tail. Bryson's configuration is 
rotated 90° from the-present one. The conformal mapping for the config- 


uration shown below is: 


12 = pb? ‘ 
Z=wet —— : ; (189) 
2 2 / 2 2 ‘ 
’ - 
i eit a) ) iz $goe a ~ 2 (190) 


133 


APPENDIX I 


where 


and 





s 1\2 
neo = fee (191) 


72 


lt 


i 
2 


Nie 


Ne 


| 
| 


eal 


i] 
be 


2 ( 2 
a' + b') 
. 1 
; : 3 2 
+ ’ 
2 
[= + st? png e p?| (194) 


+Ve1? - até + p*?] (195) 
+Ves? ~a'* 4 p'?] (196) 


For a configuration consisting of a monoplane midwing attached to the 


body with elliptical cross section (i.e. no vertical surfaces), we get 


the following special results. 
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b! 


= 


' 
to 


s ; ‘ (197) 
(198) 
(199) 


b (1100) 
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In addition, we obtain 


T = TR, = $ [s +V 37 - ae + b?| 


Oo = 5 (b + a) . | 
1 {a + b) 2 
me ees ee “i a 
62 
h=f=t+— 
T 


The required conformal mapping without the tail fins is 


2 2 
= a’ -b 
Z2=wet aw 
with : Y 
2 2 
Oni (h/2) 
Woh oC + z | 


q 
i} 
LS) 
v 
+ 
Ms 
fp 
“ 


zs 
Il 
Aa 
+ 
Q 
N 
149) 


4 
H 
Ne 


[s +V 5? - ae + b?] 


The radius of the circle in the transformed plane is 
1 2 2 2°: {a_ + b)* 
=>|s +Vs* - a* + bo + ————— 
4 2 Dd 
s+Vs" -a’' +b 


From equation (1106) ; | | 
2 24 
eb es ih/2) r : re a - (a+ ?] 


also, from equation (1105) 


(I101) 


(I102) 
(I103) 


(1104) 


(1105) 


(1106) 


(1107) 


(1108) 


(1109) 


(1110) 


(1111) 
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w = > [2 +V 2? - a? + b?| (1112) 


and, from equation (1106) 
2 
2 2 
a 0 fej =. 2 * 
Cesiwts + |. + =| h (1113) 


The choice of signs in equations (I11l) and (I113) will now be 
addressed. When evaluating these equations, use of the positive (+) sign 
will produce the correct result if the square root function is evaluated 
properly. The rule to follow in evaluating the square roots, is that the 
result should be a complex quantity in the same quadrant as the complex 
quantity appearing in the argument. This is particularly important if 
the original quantity is a negative real number. Thus, if: 


2 
p+ fb?) = - a 


Then, 


; | 
3 
fc « aya" - (a+b)? =a? - (a + bd)? 


2 


Assuming A“ >> (a + b)2, the square root of this is positive, and 


= + A. Then, for equation (1111) 
we [-Az A] = 0 


This.,does not follow from equation (1106) which suggests that if 
TC + fhf2)" is large, then w should also be large. Thus, the proper 
solution of the square root would use the negative sign. In complex 


notation: 


2 ‘ 
c+ ni) = aet™ 


Therefore, 


*For body with elliptical cross section it can be shown that w= ¢. 
Set s = a in equation (1110), then compare equations (I1l1l) and (1113). 


136 


APPENDIX I 


2)2 re 
c + sas - (a + b) 2 = Re - (a + b)? 


a 3 ae. n12]t2r 


so that 
. : 5 | . | ¥ | . FS . - 3 | 

f + tna) = lat b)? VATS (a +)" a" bree 

Seals (a 4b) 


5.2 Velocity of Vortex in Plane of Elliptical Wing-Body 


In the circle plane, the complex potential for a set of vortices in 
the presence of the circle of radius R is given by equation (I5) as 
follows 


2 
Soy ee, cae see 
Wi) ee set ine Gs). ace Te te c = | 


i ee eel >, & oe 
- ge 2 1 fn — 1 | ; — (1114) 


To find the motion of vortex lr in the Z plane ‘the proper complex poten- 
tial must take account of the fact that lp induces no velocity on itself 


Wr 


ae won ent 
te) = w, (612 | + == kn ce 2) | (1115) 


The velocity of the vortex at Zo is then: 


Plage eh he (z) (1116) 
eer {a fr, 1} 


Equation (1116) yields 
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io 
d -~ 4 f_ i ~R 
a |: | = da ; an To = 
0 SQ 
N tC - t. , 
-2 = re ——i (1117) 
j=l R 
eae) 
"5 


The first term presents a problem which must be resolved by the 


following limiting process 














Pica Fe: Oe aie) aera 1) fei | | es Ce aaeecT 
2m az Z = Zp 2m |o - So] 12 - 2 dz2 0 op _ ee 
if 
0 1 1 dt 
= sm lesoC CC (1118) 
27 E Zo c So i . 
Expand ¢ in a Taylor series about Zo: 
co = 0(2) 
be ee Ag gy ai ice aecdes 
0 “O’ az 25 2 0 az Za 
1 \3 are 4 
+> (Z- Z,)° — J + 0(Z - Z,) 
6 0 az? Zz 0 
0 
dz at a7 
ss So ae = (2 - 2.) —>3 Hens (I119) 
az a2 2, 0" ae2l2 
0 
Then 
See | 2 3 
o- S| tiie gy 28 +i cn - 2.92 2S 
Z- Zo daz Zo 2 0 az? be 6 0 az Zo 
(1120) 
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Applying the limiting process to equation (1118), the result is 


ir at a ir (t - &,) 
Be oa ee PON ON ce On Syke sd I es, ee 
tim 7 dz len $= =| a ene Go) A Zo dz 
0 








ZZ 5 i) Z>2 
ir [" 2 3 
= 52 lim Ss 5(2 Zo) a§ + 2(2 - 2)? 28 Bs tele. 
Z+Z 0 az az? lz 
0 0 
. 
- (2 ~ 2) as ae (1121) 
az*|z 





by substitution from equation (1119) and (1120). Since 


0. az 


Z- @ 
lim — | (1122) 
G3. = By. SONSy 
we finally obtain for the first term 
if Cc- ¢ if 2 
lim = 3. s Ln — = i = ae a5 (1123) 
Z>Z 0 0 dZ Zo 


Carrying out the remaining differentiation yields an expression for the 
velocity at vortex IT, due to the other vortices 








0 
v, 7 iw ee a7z Lan a0) | 
0 0 ir 8c|2, as2l¢ 20 ee Re Fi Zy 
0 070 
. N rae 
-= } Tr 1 - —_+1_, 4 (1124) 
‘ oe = 2| dZ1Z 
on j=l J [59 55 5054 ~ R 0 
J 
5.3 Evaluation of Certain Derivatives 
2 
ait 


We now evaluate the derivatives fa and —>z required in equation 
(1124). From equations (1105) and (1111) 
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R? 

2 2 2 $+ 

az. dazdw_ il | _a_-b | _R | : t 
ac > ae ac = 1 ae ae 5 1 > 1+ a (1125) 


o2 
2 wt — 
az _ dt dw_l _ o-. Ww dw 
Ww 2)2 
a) fof 2 
le + S| -h 
dw ed lis Z ree . (1127) 
2 2 2 
Z-a +b 
For the second derivative, we thus find 
2 
a°z _ a [ag] _ awa [ag 
2 az |}daz aZ dw idazZ 
dz 
o2 
2 wt — 
dw a 1 w 
- (31 aie bf. - |p +— (1128) 
w 2)2 
Nae | eae 
" w 
o 
~ {3x)° a” 2a plana 
= lor an cates 
Ww 2)2 
o 2 
e+ S| -h 
2 
Pe ene l hn 
2 we ‘ 2 2)2 5 
es S| = he Mae el 
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6.- Velocity Components in the Crossflow Plane Due to Pitch 
and Bank of a Monoplane Midwing Mounted on a 
Body of Elliptical Cross Section 


The sketch below shows a monoplane wing mounted on a body with 
elliptical cross section. The upwash is V,, sin a and the sidewash is 


v,Sin 8 in the negative x-direction. 





Consider the transformation of the wing-body combination into a 
circle of radius R in the < plane as.described in section 5.1. For the 


pitch flow, the complex potential in the ¢ plane is: 


: 22 | 
Wy fo) =-iv, sine [¢ - a (1129) 
The velocity in the Z plane is then 
aw 
- dw._adt 
Va ~ 1% ~ az ~ “ac az 
or . 
R? at 
v, 7 iw, =i V,, sin o 1+ 72} a2 ; a (1130) 


For the sideslip flow the complex potential in the @ plane is 
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We (o) = ee v,, sin Be z 

(I131) 
2 
=- V_ sin B [< + a 
- c 

The associated velocity components in the Z plane are given by 
r*| dz 
Veg - iw, =- V, sin 6 {1 - a) az ae (1132) 


7.- Velocities on a Vortex Due to Other Vortices in the Presence of a 
Monoplane Midwing Mounted on a Body of Elliptical Cross-Section 
Including Effects of Angles of Pitch and Sideslip 


We follow the same conformal transformation described in section 


5.1. The complete potential for the flow in the t plane is 





R? R2 
W(c(z)] =- iv, sina [: - R-| + V, sin 6 [: + e] 
: GC - ob A 2 
i 0 i R 
ose Ty 2n at iio Ty Ln ( - a 
59 
iN ae 
-3- J ©, én |[——4 (1133) 
2m .%, 3 2 
J=1 ra ~ 
2 
and the velocity at Zo is: 
2 2 
: R jd 
Yo ~ iw, =- iV, sina {1+ Ee + V_ sin 8 1- = lel. 
, i 0 t 0 
0 0 
eee et Ge ia ac | 
4m ac|25 an2 Z 2 Eats = Re dZlZq 


(equation continued on next page) 
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: N a 
eR a Pere are ee eee tS (1134) 
: 27 j=l J So = b5 aoe = R2 dz Zo 
3 
dz az 
The derivatives 3> and -——2 are given in section 5.3. 
ac az 


8.- Velocity Components in the Crossflow Plane Due to 
Expansion of a Body With Elliptical 
Cross Sections 


Assume that the expansion occurs with constant a/b ratio. Equation 


(4-30) of reference 8 gives the desired complex potential 


w, (2) = S~ tn a+Var =a? +p? (1135) 
S = 7 ab | 
a = a(x) 
“b= b(x) 
If 5 = 1/k then S = ka” and S' = 2nkaa' = 2mka a FI 


Carrying out the differentiation yields the velocity components. 


Behe ed dw _ S' 2 1, 22 
~<dZ °° 20 2 
ga 2? =a? + bp? 2(2)V 22 - a? + bp 
_s* 1 Ro eae he Meg 
WT 
Z+ 27 - a? + b? 2° - a’ + b? 
S! z . (1136) 
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DESCRIPTION OF PROGRAM DEMON2 


The purpose of this appendix is to describe the supersonic lifting 
surface~body computer program in sufficient detail to permit understand- 
ing and use of the program. The present program is an extended and 
improved version of a pre-existing wing-body program as described in 


section 1 of this report. 


. Program DEMON2 computes pressure distributions on lifting surfaces 
and along the meridians of. the body if it is circular in cross section. 
In this case, the program is equipped with body nose shed vorticity data 
modeled by two symmetric, discrete potential flow vortices. The effects 
of this vorticity are accounted for in the calculation of pressures on 
the body and lifting surfaces. If the body is elliptical in cross section, 
program WDYBDY described in Appendix K is employed to model the body and 
to compute pressures acting on it. Program WDYBDY also serves as a com- 
panion to DEMON2 for the purpose of calculating body induced velocities 
at the control points on the lifting surfaces through an exchange of data 
sets. The lifting surfaces can be cruciform canard fins or cruciform 
tail fins, a monoplane wing or interdigitated tail fins. For all but the 
last case, edge vorticity characteristics are calculated by the program. 


By repeated application, program DEMON2 in conjunction with other 
programs can be employed to handle complete configurations including for- 
ward and tail lifting surfaces mounted on bodies with circular or ellip- 
tical cross section. Detailed descriptions of the required procedures 


are given in section 5. 


The theoretical basis of program DEMON2 and its usage will first be 
summarized. Configuration parameters taken into consideration are listed. 
The general calculation procedure is given and it is followed by a 
description of the program operation. Program limitations and precautions 
are pointed out. The input required and the output generated by the pro- 


gram are described. Program listings appear at the end of this appendix. 


Program Description 


Fundamentally, the program is based on representing the lifting 
surfaces by constant u-velocity panels and the body with circular cross 
section by a distribution of line sources/sinks and doublets along its 
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centerline. Fin or wing thickness effects are modeled by planar source 
panels. The body source/sink and doublet strengths are determined 
explicitly from the flow tangency condition at points on the body surface. 
The body singularities and body nose vorticity, if applicable, induce 
velocity components at points on the lifting surfaces. The strengths of 
the constant u-velocity panels associated with the lifting surfaces and 
those laid out in a shell around the’ body to account for interference are 
obtained from a set of simultaneous equations which result from applying 
the flow tangency condition at a finite set of control points distributed 
over the lifting surfaces and interference shell. Thus, mutual inter- 
ference between one lifting surface and another and between the lifting 
surfaces and the body are fully accounted for. Further details are given 


in section 2 and 3 of this report. 1 


If the body is elliptical in cross section, a companion program * 
designated WDYBDY, described in Appendix K, models the body using body 
source panels. In the main routine CRFWBD of program DEMON2, the effects 
induced by the body source panels and body nose vorticity, if applicable,- 
are included in the flow tangency condition applied at points on the 
lifting surfaces. The program has been arranged to allow for an inter- 
ference shell with elliptical cross section. The lifting surfaces 
attached to this shell can be a monoplane wing or a set of jinterdigitated 
tail fins. Mutual interference is accounted for in the manner described 


above. Refer to section 4 for more detail. 


In the case involving an axisymmetric body, the program first treats 
the forebody and the forward or canard-body section. Effects of body 
nose vortices can be included in the calculation of pressures on the body 
and fins. The afterbody.and tail fins are treated by another application 
of this program. Effects of body nose vortices and the canard edge vor-~ 
tices can be included in the calculated pressures acting on the aft body 
and loads on the tail fins. A separate program VPATH2, based on slender- 
body theory and described in Appendix L, is employed to determine the 
vortex paths along the complete configuration from the leading edge of 
the canard section back to the body base. The required procedure is 


described in section 5.1. 


When the body is elliptical in cross section, the program first 


treats the forward or monoplane wing-body section. The forehody is 
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handled by program WDYBDY. Effects of body nose vortices can be accounted 
for in the calculation of pressures on the body and the monoplane wing. 
The part of the body between the monoplane wing and tail section is 
handled also by program WDYBDY. The interdigitated tail-body section is 
treated by another application of program DEMON2. Effects of body nose 
and monoplane wing edge vortices can be included in the calculated pres- 
sures acting on the afterbody and on the interdigitated tail fin-body 
section. A separate program VPATHL, based on slender~body theory and 
described in Appendix L, is used to track vortices from the leading edge 
of the monoplane wing section to the leading edge of the interdigitated 


tail section. Section 5.2 describes the required procedure in detail. 


As far as the lifting surface sections are concerned, program DEMON2 
computes pressure distributions, forces and moments including effects of 
external vortices, if applicable. The pressures on the fins or wing are 
calculated on the basis of linear and Bernoulli pressure relationships. 
For all cases except those including interdigitated tails, leading- and 
side-edge suction distributions are calculated for the purpose of model- 
ing separation vorticity characteristics at these edges using Polhamus' 
analogy as described in Appendix C. At the trailing edges, one or more 
concentrated vortices are computed from the span load distribution using 
the method described in Appendix B. 


Two calculative examples are described in section 6. It should be 
noted here that the program can also treat wings or fins alone. ‘However, 
axisymmetric bodies alone cannot be handled. In the latter case, the 
program can still be used to obtain forebody pressures by including a set 
of artificial lifting surfaces at the base of the body of interest. Note 
that the program WDYBDY treats bodies alone. However, in the application 
of WDYBDY to axisymmetric bodies, computation time far exceeds the time 
required by program DEMON2 on account of the different type and number of 


singularities used to represent the body. 


Geometrical Characteristics 


Program DEMON2 contains the subroutines required to flow model bodies 
with circular cross section. The body is composed of a nose section 
followed by a cylindrical section. The nose section may have the follow- 
ing shapes (the choice is set by control index BCODE in namelist SBODY 
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Forebody Shape 


Parabolic 
Sears-Haack™ 
Tangent-ogive 
Ellipsoidal 
Conical 


The geometrical characteristics of the lifting surfaces that can be 


accounted for include the following: 


Leading-edge shape: 
Trailing~edge. shape: 
'- Thickness: ° 


Taper: 
Mean camber surface: 
Side edges: 


Dihedral: 


Location of interference 
shell: 


Straight line which may be swept or it 
can be composed of straight line : 


elements with different sweeps. zs 


t 
Straight line which may be swept or it 
can be composed of straight line 
elements with different sweeps. 


_Accounted for by specifying streamwise 


slopes (not applicable to interdigi- 
tated tails). 


Uniform or broken. 
Planar. 
Streamwise (not essential). 


Arbitrary, set by angle PHIDIH (see 
figure 3). 


Arbitrary, set by angle THETIT (see | 
figure 3). 


The lifting surfaces can be cruciform canard fins, cruciform tail fins, 


a monoplane wing or a set of interdigitated tails. In all instances, 
there must be a vertical plane of symmetry (yp = 0 plane) as far as the 


geometry is concerned. 


* ; ; 
Ashley, H. and Landahli, M.: 


Aerodynamics of Wings and Bodies: 


Addison-Wesley Publishing Co., Inc., 1965, pp. 180-181. 
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Calculation Procedure 


Program DEMON2 proceeds through various stages as follows. After 
reading in the run identification, namelist S$INPUT is read in by main 
routine CRFWBD. Basically, this list contains wing or fin geometry data, 
flow conditions, geometry specifications for the interference shell and 
specifications for the distribution of constant u-velocity panels on ‘the. 
fin and the shell. In addition, moment-center coordinates and the vortex 
lift factors are specified. The wing- and body-coordinate systems are 


shown in figures 1 and 2. 


The wings or fins of any fin-body combination are covered with a 
constant u-velocity panel layout with the panel side edges parallel to 
the fin root chords which, in turn, are made to be parallel to the body 
centerline. An optional input allows for unequal spanwise spacing of the 
side edges and breaks in sweep. The actual construction of the panel 
sweeps, centroid and control point coordinates is performed in subroutine 
LAYOUT. All coordinates are expressed in the Xr Ys z,, or wing coordinate 
system. Coordinate transformations relating a fin coordinate system with 
origin on the fin rootchord to the wing coordinate system are implemented a 
in subroutine LAYOUT by means of function statements FYROT and FZROT. me 
Subroutine LAYOUT also computes the geometrical characteristics of the 
body interference panels. Note that the leading and trailing edges of 


the interference panels are unswept, see figure l. 


As an option, the above process is repeated in subroutine THKLYT for 
the layout of planar source panels. They are used to account for thick~ 
ness associated with the wings or fins of a cruciform, planar but not an 
interdigitated configuration such as the combination shown in figure 3. 
Streamwise thickness slopes are read in by subroutine THKIN. Depending 
on the procedural steps described in section 5, main routine CRFWBD can 
write a data set containing the coordinates, in the wing coordinate 
system, of the control points associated with the wings or fins and the 
interference shell. If control index NCPOUT is set equal to 2 in namelist 
S$INPUT, the run is stopped at this stage. Otherwise, the program continues 


as follows. 


If the body is circular in cross section, main routine CRFWBD calls 


subroutine BDYGEN. This subroutine proceeds to read,in namelist $BODY 
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which contains body nose length and length of body to be modeled as werd 
as control indices governing the number of line singularities distributed 
along the body centerline and the shape of the body nose. The layout and 
strengths of the line sources/sinks and line doublets employed to flow 
model the body are then computed for the flow conditions read in by name-’ 
list S$INPUT. Main routine CRFWBD then calls subroutine BDYPR which com- 
putes pressure distributions at points along the meridians on the body 
with circular cross section. The Bernoulli pressure, equation (10), is: 
used for this purpose on this process, effects of body nose vorticity and 
body line singularities are accounted in the pressures calculated on the 
forebody. Over the length of body covered by the lifting surfaces, the 
pressures are computed at the control points of the body interference: 
panels in the interference shell. This is performed following entry , 
point BDYAFT after the panel strengths are calculated. The velocity , 
components used in the pressure calculation include contributions from 
the body line singularities, external vortices and constant u~-velocity 
and source panels distributed over the fins or wings. The effects of 
external vortices (such as body nose vortices) can be accounted for on the 
basis of the vortices moving parallel to the body centerline (subroutine 
VRTVEL) or the vortices moving in the crossflow plane (program VPATH2 or 
VPATHL). Subroutine BDYPR also calculates the pressures on the length of 
body between the forward and aft lifting surface sections. 


Velocity components induced by line singularities associated with 
the axisymmetric body at the control points on the lifting surfaces and 
interference shell are calculated by subroutine.VELCAL. These components 
will be used in the flow tangency condition applied at points on the lift- 
ing surfaces and in the calculation of pressures at points on the lifting 


surfaces and the interference shell. 


For cases involving bodies with elliptical cross sections, main 
routine CRFWBD calls subroutine BDYRD which reads in velocity components 
induced by the body source panels at the control points distributed over 
the lifting surfaces and interference shell. These velocities will be 
used in the flow tangency condition applied at the control points on the 
lifting surfaces and the calculation of pressures at points on the lift- 


ing surfaces and the interference shell. 
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Routine CRFWBD continues with the construction of the influence 
coefficient matrix associated with the constant u-velocity panels laid 
out on the lifting surfaces and the interference shell. In this process, 
subroutine VELNOR performs the superposition of 4 corner solutions 
associated with a trapezoidal, constant u-velocity panel. For each 
corner subroutine VELO computes the influence of a semi infinite triangle. 
If the flow conditions dictate symmetry in loading (w.r.t. the Yp (or Yy) 
= 0 plane), subroutine VELNOR also accounts for the influence of the 
constant u-velocity panels on the Opposite side of the plane of symmetry. 
Appendix A contains a discussion concerning the superposition scheme and 


the symmetry account. 


The aerodynamic influence matrix, designated FVN, consists of the 
left-hand sides of equations (1) through (5) in section 3.4 and is 
triangularised by subroutine LINEQS. The right-hand sides of these 
equations are formed as a single column matrix designated RHS. For the 
control points on the lifting surfaces, the latter contains contributions 
from the free stream (including effect of deflection angle), body singu- 
larities (line singularities or source panels) and external vortices if 
applicable. For the control points on the interference shell, the right- 
hand-side only contains contributions from the planar source panels 
modeling thickness of the lifting surfaces. These contributions are 
calculated by a call to subroutine THKVEL. Note that thickness effects 
are not accounted for if the lifting surfaces are interdigitated tails. 


In the determination of velocity components normal to the panels on 
the lifting surfaces, transformations from the reference or wing coordinate 
system to the fin coordinate system are required. Subroutine ROTATE with 
entry points ROTWF and ROTFW contains the rotational coordinate trans- 
formation described in Appendix D. These transformations are used in the 
determination of normal velocity components as indicated in Appendix E 
and apply to cruciform, monoplane and interdigitated lifting surface 
configurations. Likewise, velocity transformations are performed from 
the reference or wing coordinate system to the local body interference 
panel coordinate system. These transformations are performed in sub- 
routine TRBIPW with entry points TRWBIP (for coordinates), ROTBW and 
ROTWB (for velocities). The angles associated with the transformations 
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are indicated in figure 3. The velocity transformations apply to both the 


left- and right-hand sides of equations (1) through (5). 


Main routine CRFWBD then calls subroutine SOLVE which takes the 
triangulated aerodynamic influence coefficient matrix, FVN, generated by 
LINEQS and the single column matrix, RHS, and proceeds to solve for the 


unknown strengths of the constant u-velocity panels. 


Subroutine LOADS is then called to compute forces and moments acting 
on the lifting surfaces and the interference shell. Transformations from 
the local fin or body interference panel coordinate system to the refer- 
ence or wing coordinate system are performed for the force and moment 
coefficients. For example, the force acting normal to the fins must be 
resolved into the Yw Of Yp and Zy OY Zp directions associated with the 
wing or body coordinate systems. The procedure is described in Appendix 
F. Note that the force and moment transformations also apply to monoplane 
or cruciform lifting surface configurations. The forces and moments are 
calculated in the body coordinate system and then transformed into the 
wind axis coordinate system in accordance with equations (18) and (19). 
These equations appear in section 4.2 in connection with calculations 
performed in program WDYBDY and apply to subroutine LOADS of program 
DEMON2 as well. 


The loads acting on the interference shell calculated by subroutine 
LOADS represent only the lift carryover from the lifting surfaces to the 
body and may include interference due to fin or wing thickness. The 
pressures acting on the interference shell calculated by subroutine 
BDYPR (through entry point BDYAFT) include effects not only from the 
lifting surfaces but also include contributions from body singularities 
and external vortices if applicable. As such the pressures are indicative 
of the total load acting on the body over the length covered by the lift- 


ing surfaces. 


Subroutine LOADS calculates the fin and interference shell loads 
first on the basis of linear pressure. This is followed by a call to 
subroutine SPECPR from subroutine LOADS to compute pressures acting on 
the lifting surfaces using the Bernoulli pressure equation (10). The 
loads acting on the lifting surfaces are then recalculated on the basis 


of the Bernoulli pressures. 
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If the lifting surfaces do not form an interdigitated fin configura-. 
tion, subroutine LOADS calls subroutine SPNLD for the purpose of calcula- 
ting spanload distributions, leading- and side-edge suction distributions. 
Using the span loading information, the strength and spanwise location 
of the concentrated trailing-edge vortices are calculated in accordance 
with Appendix B. The vorticity characteristics associated with the 
leading and side edges are determined from the suction distributions as 


described in Appendix C. 


Program Operation 


The cruciform wing-body computer program is written in the FORTRAN IV 
language (029 punch) and has been run on the CDC 6600 machine belonging 
to Boeing Computer Services, Inc. The main program is arranged so that a 
total of 250 constant u-velocity panels is available to cover the wing 
surfaces and to be used as body interference panels. A total of 100 , 
sources and 100 doublets can be used to model the body. If the program 
is to be run on a different computer with smaller core memory, dimension 


statements need to be changed to permit operation on that machine. 


In addition to the standard input and output tapes (TAPES5=INPUT, 
TAPE6=OUTPUT), the program may require additional devices such as disc 
files or tapes for storing data sets generated when certain options are 
used. One data set would consist of a set of control point coordinates 
and the other would contain a set of perturbation velocities. Devices 
used for these purposes are TAPE4 and TAPE7. The program employs a 
system-supplied subroutine REQFL which computes the actual dimension 
requirement for the aerodynamic coefficient matrix FVN. This subroutine 
makes use of special machine-dependent parameters.. Certain other systems 
May have a similar subroutine available. If no such subroutine is 
available, the dimension of array FVN should be set to 62,500 and the 


four calls to REQFL marked in the main program removed. 


‘Additional system-supplied devices used by the main program are the 
BUFFER OUT and BUFFER IN options. They are used as an option to save the 
triangulated aerodynamic influence matrix FVN associated with the fins 
and body interference shell. TAPE3 is used for this purpose. This pro- 
cedure saves time when calculations are done for a given configuration 


at some Mach number but with different included angles of attack or roll. 
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However, the pertinent calls should be removed from the main program if 


other systems do not offer such devices. 


Program DEMON2 treats ie set of lifting surfaces on a body. In 
order to handle complete configurations involving forward and tail lift- 
ing surfaces, the program must be used in a stepwise manner in conjunction 
with other programs described in this report. A detailed description of 


the required procedure is given in section 5. 


Running time required by program DEMON2 is governed by the number of 
‘constant u-velocity panels laid out on the lifting surfaces. For a 
pitched and rolled cruciform wing-body combination employing 192 constant 
u-velocity panels and 22 sources/sinks and doublets, the running time on 
the CDC 6600 is about 60 seconds for one set of flow conditions. 


Program Limitations and Precautions 


‘There are some problems that could arise in the use of the cruciform 
wing-body program. It should be noted that subroutines LOADS, BDYPR, 
VRTIVEL, ROTATE and TRBIPW contain entry points. The first does not employ 
an argument list and should not cause any problems. However, the entry 
points in the second, third, fourth and fifth may need to have the appro- 
priate subroutine argument list attached to them if other computer 


machines are used. 


A warning is.concerned with the use of system subroutine REQFL and 
the BUFFER devices already mentioned above under program operation. If 
the subroutine is not available, an equivalent subroutine can be called 
or the calls to REQFL can be removed and the dimension on FVN set to 
62,500. Similarly, if the BUFFER devices are not system supplied, calls 


to them in the main program should be removed. - 


In the specification of the number of constant u-velocity panels to 
be distributed on the fins and body in namelist $INPUT, the following 
limits must. be kept in mind. For the fins, a maximum of 150 panels are 
available. In the spanwise direction, the maximum number of panels is 19. 
The number of body interference panels must not exceed 100. Finally, the 
total number of panels on the fins and interference shell cannot exceed 
250. In namelist $BODY, the number of sources/sinks and the number of. 
doublets (both specified by NXBODY) cannot exceed 100. 
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Care must be taken with the use of control indices NOUT and NPR. A 
very large amount of additional output is generated when these indices 
are set equal to one. This output should only be used for debugging 
purposes employing a minimum number of constant u-velocity panels such as 
two per fin and four on the circumference of the body interference shell 


with two in the lengthwise direction. 14 


A maximum magnitude is set by the program for the perturbation 
velocities induced by external vortices at the control points in the flow 
tangency condition. Since these velocities are based on potential vortex 
theory, their values could assume large. magnitudes if the vortices run , 
close to the fins and cause undue influence. Consequently, their magnitude 
is limited to 0.35. This value can be overridden by setting variable 


VRTMAX in namelist SINPUT equal to the desired value. 


At the present time, program DEMON2 computes pressure distributions 
on the body surface and lifting surfaces of complete configurations in 
conjunction with other programs as described in section 5. The program 
also determines the force and moment coefficients associated with the 
lifting surfaces but it does not compute the forces and moments acting on 
the body if it is circular in cross section. ‘The latter quantities can 
be determined by an integration of the program calculated pressure dis- 
tributions. In this connection, the program calculated forces and 
moments associated with the interference shell only represent the effects 
of lift carryover from the lifting surfaces to the body although effects 
of thickness may be included. The actual loads acting on the part of the 
body in the lifting surface section can also be determined from the pres- 
sure distributions. 

Span load and suction distributions and the associated edge vorticity 


characteristics are not calculated for interdigitated fins at this time. 
Thickness effects are also not accounted for this type of lifting surface 


configuration. 


‘Description of Input 


This section describes the input for program DEMON2 for. treating one 
set Of lifting surfaces on a body. In the following discussion, the 


content of all input cards is summarized. All possible input variables 
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are listed at the end of this section in the order of appearance in the 
input deck, except for the first four variables which do not appear in 
the input deck but. are needed for program input preparation. Sample in- 
puts are discussed: in section 6 concerned with the calculative examples. 
Note that the correspondence in designation be.ween interdigitated fins 
and cruciform fins is indicated in figure 3 and also referred to in item 


2 below. et 
Item 1 


The first card serves as identification and may contain any alpha- 
numeric information desired. This information is printed on the first 


page of the output. 


Item 2 % 


“The second and. following cards form the namelist S$INPUT which spec- 
ifies the geometrical parameters of the wing surfaces and interference 
shell. These ‘parameters are the leading-edge and trailing-edge sweeps, 
semispan and rootchord. For a planar wing or cruciform wing alone, the 
rootchord is the wing centerline or the cruciform wing juncticen. In the 
case of a wing-body combination, the rootchord is the line formed by the 
junction of the lifting surface and the body. The semispan is measured 


from the rootchord in any case. 


This namelist also contains the deflection angles and the number of 
chordwise and spanwise constant u-velocity panels for each lifting surface. 
The spanwise number may differ from one fin to another but the chordwise 
number NCW is the same for all. Similar information is specified for the - 
layout of planar source panels. The number of body interference paneis, 
NBDCR, on the. circumference are also included in this namelist. The 
specification of the latter also determines whether or not a body is 
present. The number of body interference panels in the axial direction 
is specified by NCWB. The body can be cylindrical or elliptical in cross 
section over the interference length, BIL, spanned by the lifting surfaces. 
If the interference shell is elliptical, the horizontal semi-axis RB and 
vertical semi-axis RA must be specified. The ratio RB/RA must equal 
ERATIO. If the interference shell is circular, set RB equals RA and 
ERATIO equals 1. If the lifting surfaces are delta wings (unswept trailing 
edges), length BIL equals the rootchord CRP. If the trailing edges are 
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swept back, the length BIL should be extended to include the trailing edge 
of the tip chord to account properly for the interference of the lifting 


surfaces on the body. 


The included angle of attack, ALFAC, is the angle between the free 
stream and the body/wing centerline (x,-axis in figure 1). Angle of roll, 
PHI, is indicated by $¢ in the sketch below. The program computes pitch 
and sideslip angles in accordance with the pitch-roll transformation 


mentioned in section 4 of this report. 





Setting control index NDRAG equal to 1 results in the calculation of 
in-plane forces (Appendix C) acting on the lifting surfaces. At the 
present time, this is not possible when the lifting surfaces form an 
interdigitated configuration and NDRAG should be set equal to 0 (the 


default value) for this case. 


“In addition, more control indices, free-stream Mach number, and 
reference quantities SREF and REFL are read in. Breaks in leading-edge > 
and/or trailing-edge sweeps are also allowed if the configuration is a 
wing or cruciform wing alone at zero sideslip or if the configuration 
consists of a monoplane or cruciform or interdigitated wing-body. This 
option is governed by control index LVSWP. Angles SWLEP, SWTEP, SWLEV, 
and SWTEV need not be specified if LVSWP # 0. 


Indices NCPOUT, NVLIN, ITAIL, JCPT play an important part in the 
procedural use of program DEMON2 as described in section 5 in this report. 
Quantities FKLE and FKSE are the vortex lift factors discussed in Appendix 
C. The axial location of the moment center, XM, must be specified in the 


body coordinate system with origin at the nose. 
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Angles PHIDIH and THETIT are indicated on figure 3 and apply to 
monoplane and interdigitated lifting surface configurations. Note that 
the correspondence in designation between interdigitated fins and cruci-~ 
form fins is indicated in figure 3. It is also referred to in connection 


with the fin deflection angles listed under item 2. 


Item 3 of 


This optional input is required when there are breaks in the wing 
sweep or if the constant u-velocity panel side edges are to be laid. out 
with user-determined unequal spanwise spacings. This input pertains only 
to a wing or cruciform wing alone at zero sideslip. Variable YR is the 
distance from the rootchord to the outboard panel side edges. Therefore, 
the first value for YR is zero. The last value for YR must equal wing 
semispan, B2, specified in the namelist S$INPUT. In effect, this specifi- 
cation positions the panel outboard side edges on the right wing. The 
sweep angles are positive for wings with sweptback leading and trailing 


edges. 


Item 4 


-The optional input of this item is associated with a wing-body com- 
bination with breaks in leading-edge and/or trailing-edge sweeps. Also, 
this input should be used for this configuration if the constant u-veloc- 
ity panel side edges are to be laid out with user-determined unequal 
spacings. Variable YRT is the distance from the wing rootchord to the 
outboard constant u-velocity panel edges on the’right wing or fin. The 
first value should equal 0.0 and the last value for YRT equals the semi- 
span, B2; the latter is specified in the namelist SINPUT. The sweep 
angles are positive for right wings or fins with sweptback leading and 


trailing edges. 


Item 5 


This optional input accompanies Item 4 and is associated with the 
left wing or fin. Variable YLT is the distance from the wing rootchord 
to the outboard constant u-velocity panel edges on the left wing or fin. 
The first value should equal 0.0 and the last value for YLT equals the 
negative semispan, -B2. The sweep angles are negative for left wings or 


fins with sweptback leading and trailing edges. 
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Item 6 


The information in this optional item accompanies Items 4 and 5 if 
the configuration is a cruciform or interdigitated wing-body combination. 
Again, this input should only be used if there are breaks in the wing or 
fin sweeps or if the panel side edges are to be laid out with user- 
determined unequal spacings. Variable 2ZUT is the distance from the wing 
rootchord to the outboard constant u-velocity panel edges on the upper 
wing or fin. The first value should equal 0.0 and the last equals the 
semispan, B2V. The latter is specified in namelist. SINPUT. The sweep 
angles are positive for upper wings or fins with sweptback leading and 


trailing edges. 


Item 7 


This optional information is the last of four inputs associated with 
a cruciform or interdigitated wing-body combination if there are breaks 
in sweep or if the constant u-velocity panel side edges are to be laid 
out with user determined spacings; see Items 4 through 6. Variable Z2DT 
is the distance from the wing rootchord to the outboard constant u-veloc- 
ity panel edges on the lower wing or fin. The first value should equal 
0.0 and the last value for ZDT must equal -B2V. The sweep angles are 
negative for lower wings or fins with sweptback leading and trailing 


edges. 


Item 8 


This item is concerned with the specification of the layout and 
strengths of the planar source panels employed to model thickness of the 
lifting surfaces. If the case at hand involves interdigitated lifting 
surfaces, this item must be omitted in the input (NTDAT=0). Basically, 
the planar source panels are laid out in the same manner used to layout 
the constant u-velocity panels. However, in this case the distance out 
to the outboard panel edge is now measured from the body centerline not 
the rootchord of the lifting surface under consideration. Breaks in 
sweep are handled by control index LVSWT in the same way control index 


LVSWP handled breaks in sweep in the layout of constant u-velocity panels. 


“The strengths of the planar source panels are related directly to 


the streamwise slopes and must be specified a priori. An example of such 
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a specification is shown in section 6.2.. Note that quantity THET is in 
fact the tangent of the thickness envelope angle, tan 6.- 
Item 9 

The input cards for this item form the namelist $BODY which is 
required only when a body with circular cross section is part of the con- 
figuration under consideration. If the integer NBDCR in namelist SINPUT 
under Item 2 is specified to be nonzero, and RB equals RA, a body with 
circular cross section is present. The information in this input includes 
specification of body geometry parameters and is read in by subroutine 
BDYGEN. The length of the nose, LNOSE, determines the body length over 
which the radius is changing as a function of the body axial coordinate. 
The actual nose configuration is governed by control index, BCODE, which 
selects preprogrammed forebody shapes described above in this appendix. 


Normally, the body length, LBODY, should at least equal the axial 
distance from the body nose to the trailing edges of the lifting surfaces 
under consideration. If the trailing edges are sweptback, length LBODY 
should be taken to include the trailing edge of the tip chords or side 
edges of the lifting surfaces at hand. 


The minimum number of body modeling singularities NXBODY should be 
determined as follows. Let the density (sources and doublets/unit body 
length) be determined by the number of constant u-velocity panels in the 
chordwise direction on the wing divided by the rootchord (or length of 
wing-body junction). Then, number NXBODY equals the density times body 
length. 


Item 10 (a) 


This input is required only when variable NVRTX specified in namelist 
SINPUT, Item 2, is nonzero and if the body is circular in cross section. 
In fact, NVRTX is the number of external, two-dimensional vortices whose 
influences are to be includéd in the pressure and loading calculations. 
Each vortex is assumed to be infinite in length and to be parallel to the 
body centerline. Therefore, with each vortex there is associated a non- 
dimensional strength, GAMMA, and nondimensional crossflow plane coordi- 
nate, YVRTX, ZVRTX, given in the body or wing coordinate system shown in 
figure 1. These quantities are input in subroutine VRTVEL. 
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Item 10 (b)- 


This input is required only when variable NVRTX specified in namelist 
SINPUT, Item 2, is nonzero and if the body is elliptical in cross section. 
As in item 10, each vortex is assumed infinite in length and to be paral- 
lel to the body centerline. In this case, the strength GAMMA is [/v_, 
and YVRTX and ZVRTX are the coordinates expressed in the wing coordinate 
system for each vortex. This information is read in by main routine 
CRFWBD. ; 


Items 11, 12, 13, 14 


The information specified in these items pertain to leading- and 
side-edge vorticity characteristics. If specified in the input, their 
influence would influence the pressures and loads on the lifting surfaces 
and the interference shell under consideration. Presently, it is not 
recommended to include edge vorticity effects associated with a lifting 
surface in the calculation of the loading acting on the same lifting 
surface. Thus, a blank card can be inserted for items 11 and 13. 


Item 15 


This card ends the proces. of reading in data for program DEMON2. 
It should only be put at the end of all data cards for the case(s) to be 
run. The computer program stops the search for more data and the run is 
finished. 
INPUT VARIABLES, PROGRAm DEMON2 


The terms “right and "left" refer to an observer looking forward. 


PROGRAM ALGEBRAIC SYMBOL 


VARIABLE (IF APPLICABLE) COMMENTS 
MSWRP (Number of chordwise rows on right wing) 
+ 1; MSWRP = MSWR + l. 
MSWLP (Number of chordwise rows on left wing) 
Definitions of + 1; MSWLP = MSWL + l. 
; terms used below 
MSWUP (Number of chordwise rows on upper wing) 
+ 1; MSWUP = MSWU + l. 
MSWDP (Number of chordwise rows on lower wing) 


+ 1; MSWDP = MSWD + 1. 
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PROGRAM 


VARIABLE 


Item 1 
Item 2 
CRP 
SWLEP 


SWTEP 


NCW 
MSWR 


MSWL 
MSWU 


MSWD 


SWLEV 
SWTEV 


CRPV 


ALGEBRAIC SYMBOL 


(IF APPLICABLE) 


(20A4) 


APPENDIX J 


COMMENTS 


Any alphanumeric information may be put on 
this card for identification of the cal-- 
culation. 


Namelist SINPUT. 
Horizontal wing rootchord, dimensional. 


Horizontal wing leading-edge sweep angle 
measured in wing planform, positive for 
sweep back, degrees. 


Horizontal wing trailing-edge sweep angle 


. measured in wing planform, positive for 


sweep back, degrees. 


Number of chordwise constant u-velocity. 
panels on the wing. 


Number of spanwise constant u-velocity 
panels on right wing; 1 < MSWR < 19. 


“Number of spanwise constant u-velocity 


panels on left wing; 1 < MSWL < 19, 
default is 0. 


Number of spanwise constant u-velocity 
panels on the upper wing; 1 < MSWU < 19, 
default is 0. . 


Number of spanwise constant u-velocity 
panels on the lower wing; 1 < MSWD < 19, 
default is 0. 

When running symmetric case do not 


Note: not 
include vertical surfaces. Set 
NCRX = 0 
MSWL = 0 
MSWU = 0 
MSWD = 0 


Vertical wing leading-edge sweep angle 
measured in wing planform positive for 
sweep back, degrees, default is 0.0. 


Vertical wing trailing-edge sweep angle 
measured in wing planform, positive for 
sweep back, degrees, default is 0.0. 


Vertical wing rootchord, dimensional, 
default is 0. 
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PROGRAM 
VARIABLE 


B2 


B2V 


ERATIO 


BIL 


NFVNPR_ 


NOLINP 


NOUT 


NPR 


NDRAG 


FAC 


TOLFAC 
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ALGEBRAIC SYMBOL 
(IF APPLICABLE) 


by/? 
b,,/2 


b 


a/b 


COMMENTS 


Exposed horizontal wing semispan, 
dimensional. 


Exposed vertical wing semispan, dimen- 
sional, default is 0.0. 


Vertical semi-axis for body with elliptical 
cross section. 


Horizontal semi-axis for pony with ellip- 
tical cross section. 


Ratio of RB over RA 
Note: If body has circular cross section 
set RA = RB and ERATIO = l. 0. 


Length of body influenced by fins to 
account for interference. For fins with 
delta planform and for wing-alone cases, 
‘BIL = CRP. 


NFVNPR # 0 Print influence coefficient 
matrix FVN for debugging, 
default is 0.0. 


NOLINP = 0 Loadings calculated on the 
basis of linear pressures. 
only, default value. 

NOLINP = l Loadings calculated on the 


basis of linear and Bernoulli 
pressures. 


NouT # 0 Print large amount of output 
for debugging, default is 0.0. 


Same as NOUT, default is 0.0. 


NDRAG = 0 Omit calculation of in-plane 
forces, default value. 
NDRAG = 1 Include calculation of in-plane 


forces. Use default value 
when treating interdigitated 
tails. 


FAC = 0.95 Fraction of the constant pres- 
sure panel chord (which 
contains the centroid) where 
the control point is located. 


TOLFAC = 1 Multiplication factor used in 
the evaluation of the toler- 
ance, TLRNC, used in subroutine 
VELO. 


PROGRAM 


VARIABLE 


NPRESS 


VRTMAX 


NVRTPL 


NAGAIN 


DELR -).:': 


DELL - 
DELU 


DELD 


ALFAC 


ALGEBRAIC SYMBOL 


(IF APPLICABLE) 


NAGAIN: 


APPENDIX J 


COMMENTS 


NPRESS = 0 This value insures that load- 
ings are also computed on the 
basis of the linear pressure 
relationship in addition to 
the Bernoulli pressure rela- 
tionship. 


Maximum magnitude of vortex induced veloc- 


"+ jties’ included in flow tangency condition, 


default is 0.35. 


NVRTPL ‘= 0 Component of velocity parallel 
to fin induced by vortices not 
included in Bernoulli loading 
pressure, default value. 

Loading pressure calculated 
including parallel component 
of vortex induced velocity. 


il 
~- 


NVRTPL 


No use made of buffer to save 
aerodynamic influence matrix, 
FVN, after triangulation, 
default value = 0. , 

Buffer out FVN array. For 

succeeding runs, keep NAGAIN 


| 
oO °* 


It 
~~ .- 


NAGAIN 


Deflection angle of horizontal right wing. 
Positive: trailing edge down, degrees, 
default is zero. 

Deflection angle of horizontal left wing, 
Positive: trailing edge down, degrees, 
default is 0.0. 

Deflection angle of vertical upper wing, 
Positive: trailing edge to right, degrees, 
default is 0.0. 

Deflection angle of vertical lower wing, - 
Positive: trailing edge to right, degrees, 
default.is 0.0. . 

If case involves interdigitated fins: 


Sy R applies to right upper fin, trailing 
‘ edge down is positive. 

Sy L applies to left lower fin, trailing 
‘ edge down is positive. 

8y U applies to right lower fin, trailing 
e edge down is positive. 

by D applies to left upper fin, trailing 
td 


edge down is positive. 


. Included angle of attack, Measured between 


free-stream velocity vector and body/wing 
centerline. 
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PROGRAM 
VARIABLE 


PHI 


FMACH 


LVSWP | 


NVRTX 


NCRX _ 


NBDCR 


NCWB 


SREF 
REFL 


ITAIL 


NBDYPR 
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ALGEBRAIC SYMBOL 
(IF APPLICABLE) 


> 


ref 


ref 


COMMENTS 


Angle of roll, measured from the plane con- 
taining the free-stream velocity vector 
and the body/wing centerline to the upper 
wing, positive clockwise looking forward, 
default is 0.0. 


Free~stream Mach number. 


LVSWP = 0 No breaks in wing leading or 
trailing edges, or equal span- 
wise spacings of panel side 
edges, default value. 

LVSWP # 0 Up to 19 breaks in wing leading 
or trailing edges or up to 19 
unequal spanwise spacings. 


Number of external vortices present, 
NVRTX < 10 (see Item 10(a)). 


NCRX = 0 Horizontal wing only present, 
default value. 

NCRX = 1 Vertical wing surfaces in 
addition to horizontal wing 
surfaces present. 


Number of constant u-velocity panels on 
the circumference of the body. 


NBDCR = 0 No body present, default value. 
NBDCR > 0 Body present (see Item 8). 


Number of constant u-velocity panels in the 
longitudinal direction on the surface of 
the body over the body interference length 
BIL, default is 0.0. 


Reference area used in load calculations, 
default is l. 


Reference length used in rolling-moment 
calculations, default is 1. 


ITAIL = 1 Tail fins to be considered, 
default is 0. If case involves 
interdigitated fins mounted 
on body with elliptic cross 
section set ITAIL = 0. 


NBDYPR = 1 Pressures to be calculated 
along body meridians, default 
is 0. ay 
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PROGRAM ALGEBRAIC SYMBOL 
VARIABLE (IF APPLICABLE) COMMENTS 


NTPR NTPR = 1 Print debug output from subroutine 
THKVEL, default is 0. 


NTDAT Number of sets of thickness data to be 
input. Set NTDAT=0 for cases involving 
interdigitated fins. 


NTDAT =.0 No thickness input data, default 

value. 

NTDAT = 1 For horizontal wing, symmetric 
layout or for cruciform wing, 
symmetric layout with layout on 
vertical wings same as on 
horizontal wings. 

For cruciform wing, symmetric 
layout. Vertical wing layout 
different from horizontal or © 
for horizontal wing alone 
(delta wing) with asymmetric 
layout. 

For cruciform wing alone (delta 
wing), asymmetric layout. 


Hl 
N 


NTDAT 


iH 
> 


NTDAT 


NCWT Number of source panels in a chordwise row, 
‘default is 0. 


0 No control point coordinates 
written, default value. 
NCPOUT = 1 Write coordinates (in wing 
coordinate system) of control 
points on fin and body inter-~ 
ference shell in data set 
(TAPE4), and continue the run. 
NCPOUT = 2 Write coordinates (in wing 
coordinate system) of control 
points on fin and body inter- 
ference shell in data set 
(TAPE4) and stop the run 
(STOP77) . 


NCPOUT . NCPOUT 


NVLIN NVLIN = 0 Do not read in velocity com- 

, ponents induced by moving 
vortices. 

1 Read in velocities induced by 
moving vortices (calculated 
by program VPATH2 or VPATHL) 
from a data set (TAPE7), 
default is 0. 


W 


NVLIN 


XSTART . Axial station aft of which body pressures 
are to be calculated. If case involves 
interdigitated tails on body with ellip- 
tic cross section, set XSTART = 0.0, default 


is 0.0. 
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PROGRAM 
VARIABLE . 


JCPT 


FKLE 


FKSE 


2M 


PHIDIH 


THETIT 


XWLE 


Item 3 


YR(KJ) 


VSWLER (KJ) 


VSWTER (KJ) 


Item 4 


YRT (KJ) 
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ALGEBRAIC SYMBOL 


(IF APPLICABLE) 


(3F10.5) 


_Yw,r{K9) 


ALB RORY) 


Ang, RIKI) 


_(3F10.5) 


Yp (KJ) 


COMMENTS 


Number of control points and body pressure 
points calculated by subroutine BDYPR and 
printed in output. This number is required 
when NVLIN = 1 and ITAIL = 1, default is 0. 


Fraction of leading-edge suction converted 
into normal force, default is 0.5. 


Fraction of side-edge suction converted 
into normal force, default is 0.5. 


x-coordinate of moment center in body 
coordinate system, default is 0.0. 


z-coordinate of moment center in body 
coordinate system, default is 0.0. 


Dihedral angle associated with interdigi- 
tated fin, default is 0.0, 0 < bp < 90°. 


Location angle associated with interdigi- 
tated fin, default is 0.0, 0 < 6 < 90°. 


Axial location of wing rootchord leading 
edge measured from body nose, default is 
0.0. . 


Optional input for planar or cruciform wing 
alone at zero sideslip. : 


Distance from wing rootchord to the con- 
stant pressure panel outboard side edge 
on right wing, 1 < KJ < MSWRP, 

(MSWRP < 30), YR(1) = 0.0, YR(MSWRP) = B2. 


Leading-edge sweep of wing between YR(KJ-1) 
and YR(KJ), positive for sweep back, 
degrees, 1 < KJ < MSWRP, (MSWRP < 20), 
VSWLER(1) = 0.0. ; 


Trailing-edge sweep of wing between YR(KJ-1) 
and YR(KJ), positive for sweep back, 
degrees. 1 < KJ < MSWRP, (MSWRP < 20), 
VSWTER(1) = 0.0. 


Optional input for wing-body combination. 


Distance from wing rootchord to the con- 
stant u-velocity panel outboard side edge 
on right wing, 1 < KJ < MSWRP, 

(MSWRP < 20), YRT(1) = 0.0, YRT(MSWRP) = B2. 


PROGRAM 
VARIABLE 


ALGEBRAIC SYMBOL 


(IF APPLICABLE) 


Arg R IRD) 


COMMENTS 


APPENDIX J 


Leading~edge sweep of wing between 


VSWLER (KJ) 
2 (YRT(KJ-1) and YRT(KJ), positive for sweep 

back, degrees, 1 < KJ < MSWRP, 

(MSWRP < 20), VSWLER(1) = 0.0. 


Trailing-edge sweep of wing between ; 
(YRT(KJ-1) and YRT(KJ), positive for sweep 
back, degrees, 1 < KJ < MSWRP, 

(MSWRP 20), VSWTER(1) = 0.0. 


VSWTER (KJ) (KJ) 


Ang R 


Item 5 (3F10.5) Optional input for wing-body combination. 

Distance from wing rootchord to the con- 
stant u-velocity panel outboard side edge 
on left wing, 1 < KJ < MSWLP, (MSWLP < 20), 


YLT(1) = 0.0, YLT(MSWLP) = -B2. 


YLT (KJ) 1, (KI) 


VSWLEL (KJ) L i 'K9) Leading-edge sweep of wing between 
’ YLT(KJ-1) and YLT(KJ), negative for sweep 
back, degrees, 1 < KJ < MSWLP, 


(MSWLP < 20), VSWLEL(1) = 0.0. 


Trailing-edge sweep of wing between 
YLT(KJ-1) and YLT(KJ), negative for sweep 
back, degrees, 1 < KJ < MSWLP, 

(MSWLP < 20), VSWTEL(1) = 0.0. 


VSWTEL (KJ) (KJ) 


Ang L 


’ Optional input for cruciform wing-body 


Item 6 
combination. 


(3F10.5) 


’ Distance from wing rootchord to the con- 
stant u-velocity panel outboard side edge 
on upper wing, 1 < KJ < MSWUP, 
(MSWUP < 20), ZUT(1) = 0.0, 

ZUT(MSWUP) = B2v. 


ZUT (KJ) y (KI) 


VSWLEU (KJ) Mie y (KI) Leading-edge sweep of wing between 
. : ZUT(KJ-1) and ZU(KJ), positive for sweep 
back, degrees, 1 < KJ < MSWUP, 
{MSWUP < 20), VSWLEU(1) = 0.0. 
VSWTEU (KJ) (KJ) Trailing~edge sweep of wing between 
TE,U ZUT(KJ-1) and ZUT(KJ), positive for sweep 
back, degrees, 1 < KJ < MSWUP, 
(MSWUP < 20), VSWTEU(1) = 0.0. 
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PROGRAM 
VARIABLE 


Item 7 


ZDT (KJ) 


VSWLED (KJ) 


VSWTED (KJ) 


Item 8 


Item 8 (a) 


MSWT 


LVSWT | 


NUNIS 


Item 8 (b) 


YTH (1,J) 
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ALGEBRAIC SYMBOL 


(IF APPLICABLE) 


(3F10.5) 


pd) 


> EE, py) 


Apg , p (KI) 


(315) 


(3F10.0) 


COMMENTS 


Optional input for cruciform wing-body 
combination. 


. Distance from wing rootchord to the con- 


stant u-velocity panel outboard side edge 
on lower wing, 1 < KJ < MSWDP, 

(MSWDP < 20), ZDT(1) = 0.0, 

ZDT(MSWDP) = -B2v. 


Leading-edge sweep of wing between 
ZDT(KJ-1) and ZDT(KJ), negative for sweep 
back, degrees, 1 < KJ < MSWDP, 

(MSWDP < 20), VSWLED(1) = 0.0. 


Trailing-edge sweep of wing between 
ZDT(KJ-1) and ZDT(KJ), negative for sweep 
back, degrees, 1 < KJ < MSWDP, 

(MSWDP < 20), VSWTED(1) = 0.0. 


Optional thickness input data when 
NTDAT # 0. If case involves interdigi- 
tated fins, this option is not used. 


Information in items 8(a), 8(b) are read 
in by subroutine THKIN for the right 
horizontal wing. 


Number of source panels in the Bpanwise:, 
GIEeCeLOny 1 < 19 < MSWT. 


LVSWT = 0 No breaks in wing leading or 
trailing edges, or equal 
spanwise spacings of source 
panel sides, default is 0. 


LVSWT = 1 Up to 19 breaks in wing lead- 
ing or trailing edges or up 
to 19 unequal spanwise 
spacings. 

NUNIS = 1 Thickness distribution varies 
over the span. 

NUNIS = 0 Thickness distribution constant 


over the span. 
Optional input for LVSWT = 1. 
Distance from body centerline to the 


source panel outboard side edge, 
l1<J < MSWT+1. 
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PROGRAM ALGEBRAIC SYMBOL 

VARIABLE (IF APPLICABLE) COMMENTS 

SWLET (J) Leading-edge sweep of wing between 

YTH(1,J-1) and YTH(1,J), positive for 
sweep back, degrees, 1 < J < MSWT+1. 

SWTET (J) “ Trailing-edge sweep of wing between 

; ; YTH(1,J-1) and YTH(1,J), positive for 
sweep back, degrees, 1 < J < MSWT+1. 

Item.8(c) _ (8F10.0) ‘  . Optional input specifying streamwise 
thickness slopes read in by subroutine 
THETIN. 

THET(K) tan 6. .- . NUNIS = 1 K=1, NwcT 

rd NUNIS = 0 K = 1, (NCWT*MSWT) 

Item 8(d) Lee Optional input for left wing when body is 
not present and if geometric yaw angle 
is accounted for (skewed panels). All 
input same as for right wing above, 
items 8(a).,, 8(b), and 8(c). 

Item 8(e) Optional input for upper wing if NTDAT = 2 

or 4 and NCRX = 1. Same input as for 
right wing, items 8(a), 8(b) and 8(c). - 

Item 8(f) Optional input for lower wing if NCRX = l 

: .and body is not present and if geometric 
pitch angle is accounted for (skewed 
panels). All input same as for right 
wing, items 8(a), 8(b) and 8(c). 

Item 9 © fe 8 -  Namelist $BODY read in by subroutine 
BDYGEN. Optional input when body with 
circular cross. section is present, 

NBDCR # 0. 

NXBODY ' Number of line source/sinks and line 

mes doublet singularities distributed along 
body centerline. 

LNOSE Length of nose part of body measured from 
nose tip, dimensional (real variable). 

LBODY Length of body, dimensional (real variable). 
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PROGRAM 
VARIABLE 


BCODE 


Item 10 (a) 


GAMMA (I) 


YVRTX (I) 


ZVRTX (I) 


Item 10(b) 


GAMMA (T) 
YVRTX (TI) 


ZVRTX (1) 


Item 11 


MLEVR 


MLEVL 
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ALGEBRAIC SYMBOL 
(IF APPLICABLE) 


(8F10.5) 





(3F10.5) 


T . 
Vv. (I) 


Yq (2) 


2z (1) 


(8110) 


COMMENTS 


Control index (integer) for specifying 
forebody shape. 


BCODE Parabolic 
Sears-Haack 
Tangent ogive 
Ellipsoidal 
Conical 


fon ot not 
& WHE OS 


Optional input read by subroutine VRTVEL 
when the effect of fixed external vortices 
are considered, for bodies with circular 
cross section only (RB = RA), 

1 < NVRTX < 10. 


Nondimensional vortex strengths, a is body 
radius RB, 1 < I< NVRTX.- 


< NVRTX. 


A 
Ha 
A 


Nondimensional y-coordinate, 1 < 


I 


|A 
Ja 


Nondimensional z-coordinate, 1 NVRTX. 


There will be NVRTX sets of vortex inputs. 


Optional input when the effect of fixed 
external vortices are considered, for 
bodies with elliptical’ cross section 
only (RB # RA), 1 < NVRTX < 10. 


Vortex strength divided by free stream 
velocity, 1< I < NVRTX. 


y-coordinate in wing coordinate system of 
I'th vortex, 1 < I < NVRTX. 


z-coordinate in wing coordinate system of 
I'th vortex, 1 < I < NVRTX. 


There will be NVRTX sets of vortex inputs. 


Number of leading-edge vortex information 
stations for the right horizontal fin. 


Number of leading-edge vortex information 
stations for the left horizontal fin. 


PROGRAM 
VARIABLE 
MLEVU 


MLEVD 
Item 12 


XLE (1FV) 
CGLOC (IFV) 
GAMLE (IFV) 
Item 13 
NSEV 

Item 14° 
XSE(JSE) 
CGSELC (JSE) 
GAMSE (JSE) 


Item 15 


2222 


ALGEBRAIC SYMBOL 
(IF APPLICABLE) 


(6F10.5) 


LE 


Yur’ 7LE 


TLE 


Vv 


fo) 


(110) 


'.(6F10.5) 


(20A4) 


APPENDIX J 


COMMENTS 


Number of leading-edge vortex information 


stations for the upper vertical fin. 


Number of leading-edge vortex information 
stations for the lower vertical fin. 


Optional input concerning leading-edge 
vorticit; when MLEVR+MLEVL+MLEVU 
+MLEVD = Nnew-V # 0. 


Wing x-coordinate of staticn of fin leading 
edge. 


Center of gravity of the leading-edge 
vorticity distribution. 


' Strength of the vort city distribution at 


_XLE(IFV), 1 <.IFV < NEDGV. 


Number of fin side-edge vortex information 
. Stations. Same for all fins. 


_ Optional input concerning side-edge 


vorticity when 4(NSEV) = NSIDGE # 0. 


Wing x-coordinate of station on fin side 


edge. 


Center of gravity of the erdcnerue 
vorticity atStributton. 


Strength of vorticity distribution at 


XSE(JSE), 1 < JSE < NSIDGE. 


End of information. 
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Description of Output 


This section gives a summarized description of the output generated 
by program DEMON2 for a typical case involving one set of lifting surfaces 
on a body. ‘Sample outputs are shown in connection with the discussion of: 
2 sample cases in section 6. In the following, the important items of 
output are described. Note that if print control indices NOUT and NPR 
are not set equal to zero in namelist S$INPUT, very large output will be 
generated. As such, this additional output serves to aid in debugging. 


The first page identifies the run. The second and possibly the third 
show the namelist $INPUT. All length dimensions in the output are the 


same as in the input. 


On the next page, the wing geometry and flow conditions are listed. 
The quantities ALFA and BETA correspond to angle of pitch, a, and side- 
slip, 8, respectively, calculated by the program, using the pitch-bank 
convention’ described in section 4, from the angle of incidence ALFAC and 
angle of roll PHI specified in namelist S$INPUT. Information concerning 
the geometrical layout of the planar source panels used to model thickness 
of the lifting surfaces is then shown. On the next page, the specified 
streamwise slopes are printed. No thickness is accounted for for cases 
including interdigitated lifting surfaces. 


If the body is circular in cross section, the next page shows name- 
list $BODY which was read in by subroutine BDYGEN. It is followed by the 
program calculated cylindrical coordinates of the body definition points 
and streamwise body slopes. Together with this body geometry output, 
the origin of each line singularity (line sources/sinks and line doublets) 
are given under the heading TX. All axial coordinates are in the body 
coordinate system with origin at the nose, refer to figure 1. The 
strengths of the singularities are given by T(I) for the line sources > 
or sinks and by TC(I) for the line doublets. On the next pages, the out- 
put shows the pressures calculated on the circumference of the body with 
circular cross section. This information is calculated at axial loca- 
tions under the heading XB in the body coordinate system. Each circum- 
ference or ring is given a BODY RING number which is written on top of the 
pressure point coordinates, the velocity component involved, pressure 


coefficients, body'slopes, and pressure ratios. The pressures are 
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calculated by subroutine BDYPR on the basis of the linear and Bernoulli 
pressure-velocity relationships. The latter is given by equation (10) in 
this report. If the pressures are calculated on the forebody, body nose 
shed vorticity characteristics can appear in the output if the. included 
angle of attack is in excess of about 5°. The vorticity is represented 
by 2 concentrated vortices located symmetrically with respect to the 
crossflow free-stream component vector (unrolled coordinates). The 
vortex coordinates are also given in the body coordinate system (rolled 
coordinates) nondimensionalized by the local body radius. The calculated 
pressures include effects of the body nose vortices, if present. At the 
end of the print out of the pressures acting on the body, the number of 
control points, JCPT, is written. This number must be noted for runs 
involving the afterbody and tail fins, refer to sections 6.1.3 and 6.1.4. 


For bodies with elliptical cross section, the horizontal and vertical 
semiaxes are printed immediately following the print out of local sur- 
face slope of the thickness distribution. Pressures at points on the 
surface of a body with elliptical cross section are calculated by program 
WDYBDY described in Appendix K. 


The next pages of output contain the velocity components induced by 
external vortices, if applicable. They are calculated by program VPATH2 
for axisymmetric bodies or by program VPATHL for bodies with elliptic 
cross section. Both programs are described in Appendix L. These programs 
compute the paths of the vortices and then proceed to calculate the vortex 
induced velocity components at the control points given under the headings 


XCP, YCP and 2CP. 


The next page in the output lists the calculated control point 
coordinates (Xyy  Yyge Zp) in the wing coordinate system shown in figure 1 
for the constant u-velocity panels distributed on the lifting surfaces. 
Perturbation velocities, in the wing coordinate system, induced at these _ 
points by the body and external vortices with their paths fixed to be 
parallel to the body centerline are also shown.. The quantities BU, BV, 
BW and VVRTX, WVRTX, are due to body singularities and vortices specified 
in Item 10(a) or 10(b) of the input. The velocity components induced by 
the body singularities are calculated by subroutine VELCAL if the body is 
axisymmetric. For bodies with elliptic cross section, they are computed 


by program WDYBDY, stored on a data set and read in by subroutine BDYRD. 
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Coordinates of the control points associated with the body interfer- 
ence panels are given on the next page. They are expressed in the wing 
coordinate system. Velocity components THU(J), THV(J) and THW(J) are 
induced by the planar source panels on the lifting surfaces used to model 


thickness. 


Loading information is printed on the next pages. First, the load- 
ings are based on linear pressure loadings. For each lifting surface 
the force and moment coefficients, spanwise loading and suction distri- 
butions and distributions along the side edge of suction force are given. 
The heading specifies flow conditions and reference quantities including 
the moment-center coordinates in the body system. It is followed by a 
list of the deflection angle, thrust coefficient, CTHR, acting in the 
negative x, (or xy) direction, force coefficient CZ in the Zp (or Zi) 
direction, force coefficient CY in the Yp (or Yw) direction, pitching 
moment CM (nose up positive), yawing moment CLN (nose to right positive) 


and rolling-moment CLL (right wing down positive) coefficients. 


Force coefficients CZ, CY and moment coefficients CM, CLN and CLL 
are also printed for the interference shell which covers the body over the 
length covered by the lifting surfaces. They are only representative of 
the lift carryover or interference from the lifting surfaces. If actual 
loads acting on this section of body are to be computed, the pressure 
distributions mentioned at the end of this section must be integrated. 


So far, the loading coefficients have been expressed in the body 
axis system. For convenience, the positive directions of the forces and 
moments in the body coordinate system are indicated in the following 
sketch together with the body and wing reference coordinate systems. 

The loading information is also specified in the wind axis system, refer 
to section 4.2 in this report. All.force and moment coefficients are 
then based on a coordinate system with its longittidinal axis aligned with 
the free stream vector. Under the heading SPANWISE DISTRIBUTIONS, the 
quantities of interest are the span loading CN*C/(2*B), thrust distribu- 
tion CT*C/(2*B), suction distribution CS*C/(2*B) and the calculated 
leading-edge vorticity strength GAMMA,LE/VINF with its spanwise location 
YBAR. Quantity XLE is the axial coordinate, in the wing system, of the 
leading edge. The sums of the in-plane forces in coefficient form are 


then printed. Precise definitions of the terms SUMFX, SUMFY1, etc., are 
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Moment center 


given in Appendix C. Along the side edge, the distribution of suction 
force per unit length divided by the dynamic head times the tip chord is 
given together with the strength GAMMA,SE/VINF of the side-edge vorticity 
and the spanwise location YBAR. . Quantity YBAR lies along the Yw coordi- 
nate. Finally, for the lifting surface at hand the strength(s) and span- 
wise location(s) of the concentrated trailing-edge vortex (vortices) are 
printed under the heading T.E. FIN INFO. 


After displaying the loading information and spanwise distributions 
for all the lifting surfaces, the output of program DEMON2 proceeds to 
specify pressure distributions on the lifting surfaces calculated on the 
basis of the Bernoulli pressure expression, equation (10). PRESSA is the 
pressure coefficient acting on the upper side and PRESSB is the pressure 
coefficient on the lower side of ‘the horizontal lifting surface. For a 
planar (monoplane) and cruciform fin or wing configuration, the horizontal 


surfaces lie in the zy (or Zp) = 0 plane. For interdigitated fins, the 


‘horizontal fins are the right upper and left lower fins, refer also to 


figure 3 and the sketch in Appendix D. Coordinates X(J), Y¥(J) and 2(d) 
are in the wing coordinate system. The same pressure coefficient infor- 


mation is given for the vertical fins. For a cruciform fin configuration, 


_the vertical surfaces lie in the Yw (or Yp) = 0 plane. For interdigitated 


fins, the vertical fins are the right lower and left upper fins, refer to 
figure 3 and the sketch in Appendix D. The loading pressures coeffi- 
cients, DELTP,LIN. and DELTP,BERN., pertain to the differences in 
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pressures acting on the lifting surfaces based on linear and Bernoulli 


pressure expressions, respectively. © 


The loading calculation is then repeated using the Bernoulli loading 
pressures. The next pages of output contain the same loading information 
described above but all results are now based on the Bernoulli pressure 


equation. 


The calculation of loading information based on linear pressure load- 
ings and Bernoulli pressure loadings serves the following purposes. It 
should be noted first that the linear loading pressures are directly 
related to the constant u-velocity panel strengths in accordance with 
equation (C2) in Appendix C whereas the Bernoulli pressures are computed 
from the velocity components, included angle of attack and roll angle as 
indicated by equations (9) and (10). Fin forces, moments and trailing 
edge vorticity characteristics (related to span load distributions as 
shown in Appendix B) should be taken from the loading information calcu- 
lated with Bernoulli pressures. At low angles of attack with zero roll 
and in the absence of external vorticity, the loadings based on the two 
pressures will be comparable. However, any loading increment due to lead- 
ing- and side-edge vorticity calculated with the Polhamus analogy must be 
taken from the loading information based on linear pressures. This is 
based on the fact that the characteristics of the leading- and side-edge 
vorticity are related to the suction distributions which is calculated 
using the constant u-velocity panel strengths as described in Appendix C. 


Finally, the pressures acting at the control points of the body 
interference shell are printed out. They are a continuation of the pres- 
sures, described at the beginning of this section, calculated at points 
on the body ahead’ of the wing~body section at hand. The same remarks 
apply. The pressures include effects of body singularities, external 
vortices, planar source panels on the lifting surfaces, and all the con-. 
stant u-velocity panels on the lifting surfaces and body interference 
shell. 

Program Listing 

The wing-body program DEMON2 is written in FORTRAN IV (029 punch) 
computer language for the CDC 6600 machine. The program consists of a 
main routine, CRFWBD and 32 subroutines. Their listings are shown on 


pages indicated below: 
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c . ovo 
. NTO sPTs1 80,0 nMOY 
AL PAC UpALFaCeN Tle Dot 

nye er CsSts CSU F ale) OMO1 
CuBarCsciu'S Coch aCk) OMOy 
P4THaPmPeNTIR DMOY 
SINPHISSTS(PHIR) D404 
CESPRTACOS (PMT e) OMO1 
STIMALFaSINALCeCUSPH] DMO, . 

ALE OSASTE(STMALF) o4dt 
CUSALFSCOSCALFR) OMG. 
SIAHFTSSINALCeSINOHY] D404 
BETARPSASTAN(SINBET) neo 
CUSKETSONS (SE TAR) DD} 
RETAVSARTANSOT IN eine 

ALP ASALEQsSOTOR DY Ot 


199 
191 

1%2 
193 
194 
195 
394 
197 
194 
199 
20a 
201 

202 
295 
ena 
205 
205 
an7 
2onr 
209 
210 
21) 

21? 
eis 
aia 
21s 
?l6 
217 
Ata 
219 
22" 
221 
222 
223 
eas 
225 
2e6 
227 
22h 
229 
234 
est 
232 
233 
234 
235 
ess 
2s? 
234 
239 
ean 
eu 

eue 
auy 
2u4 
eas 
eué 
eu? 
2ua 
24a 
esn 
51 

25e 


aan 


rAnaAN OOMANAARAANQAANNAA 


AANAAAaAAa 


aaaan 


AAINDHAAaAAN 


NOTES TR INTERDIGI TATED FINS ARE UNDER CANSINEDATION, THE FOLLOWING 


FIN ANGLE PRUPERTIES 


SLPNLEaTAan(SaLEPeDTOAR) 
SLPTESTAN(SWTEPRDTIIR) 
SLOVLESTAN( SALE VED POR) 
SLPVTESTAN(SATEVEDTOR) 


CHECK FUG INTEROIGITATED TAIL OLHFORAL ANGLES 


CORRELATION FOLDS, 


OIGHT 'IPPER FIN, ,,,,KIGHT OR J 

LEFT LOVER FIN... LEFTY OR 2 

RIGHT LOVER FItigg sg, gttPPER ON S 

LEFT WPPER FIN, ,,,LiIwER OR DOWN LR a 


THIS DESIGNATION ESTARLISHES CURRESPONDENCE RPTWEEN CRUCTEUR™ AND 


TYTERNIGITATEO FINS, 


NATE STHE NPHENRAL ANGLE OF FINED AS THE CANT ANGLE WERE, 


22 


2s 


IF CTHETIT be e009 QR, THETIT,GF.90,) GY TO 22 


Hany 
OmMOt 
Bot 
Ou“ny 
DMot 
N4O1 
OM01 
OMOt 
0401 
0401 
Doo! 
O40t 
OM01 
DMOY 
Ditie | 
O04 
Qo, 
OMOY 
Ouay 
OMOY 
Om} 
OOo, 
NOt 


PHIFR = UPPER RIGHT CANT ANGLES PHIFL 2 LOWER LEFT CANT ANGLEDMOL 
PHIFU = LOWER RIGHT CANT ANGLE, PHIFO mw UPPER LEFT CANT ANGLEDMOL 


PHIFRs PHIDIH 
PHIFLS PHNTOIH 
PHIFUSePHTI Ir 
OTE Or ePRIDIH 


THETR,THETU DEFINE LOCATIONS OF RRS FINS ON BODY CIRCUMFERENCE 
MEASURED POS, FROM +¢¥¥eaxXTS COUNTERCLOCKWISE, 

THETL -THETO DEFINE LICATIONS OF LAS FINS UN ROANY CIRCUMFERENCE 
MEASURED COS, RAM eYweAXTS COUNTEKMELOLK WISE, 


ThETRS THETIT is 
TRETLS THETIT 
Thk TUBSTMETIT 


“THE TO Sel METITT 


CONTIN 


ELLIPSE PROPERTIES 
PR eg eMIRIZUNTAL SEmLwaxt 
RA. , VERTICAL SEMTeAXIS 


TF (RAFO,N, gAND ,8ALEN9,) GU TO 25. 
IF (RALEQ,0,) RABRY/SEPATIO 

TF (RH,EQ,U,) RASRACERATIO 
FRATINSRASRA 

COMTISUE 

RCINESART(HSeQA) 

RYNNavA 


LOGICAL VAwTAALE ASYM GNVERKG LAYOUT OF SKEKEN PAVELS wHICH 
ONLY CAN AB DOWE SHEN THERE 7S XD HONY PRESENT, 
PIESENTLY, PLANAR DELTA wINGS ONLY, 


LUGICAL vaPESHLE TRUSY4 “4AKES USF UF GEDMETPIC AND | DADING 
SYHME TRY OR IPEQTIES 


Oxn04 
OMO1 
Ng 
DMO} 
ONO4 
O01 
OMO1 
DITts | 
Ona, 
OMOL 
OMO1 
OM01 
OmO) 
Dot 
QMOL 
OMOL 
OMOt 
OMOt 
oo, 
DMO1 
ovat 
Oot 
OMOt 
ovot 
Pyo4 
OMn4 
OMOt 
DMN 
OMO1 
Daot 
O04 
Ouot 
Duar 
biaxin! 
NO4 
aot 
N4Q4 
Nt0f 


253 
254 
e255 
2456 
es? 
2g 
2s9 
260 
Zoi 
202 
263 
264 
205 
256 
267 
ena 
209 
270 
27} 
272 
273 
274 
275 
27h 
277 
278 
279 
aan 
Pre | 
282 
253 
Pau 
288 
266 
eByY 
2BA 
e889 
290 
291 
292 
293 
294 
2g5 
296 
297 
298 
299 


300. 


$ot 
32 
303 
306 
305 
306 
soy 
BOR 
$09 
31” 
341 
$12 
313 
514 
315 


183 


184 


FOR THIS CaSE veCK I) MEASURED FAQS WING CENTERLINE, 


aSYMS(BETAY,NE, 9,0) AND, (hADCP,EQ,U) nMo4 
ANDYSNANCER, VE SO OMdt 

DEL TASDELR ANE 00 IR DELL HE ae eR DELU,NE 1, RP DELN NEO, Nmgt 

DEL TASSNELR,NE VELL MA MELUNE 0, IR ELD NE 4, ONO 

TRUS YMSHE TAYE NO, De AMD, NUS, OEL TAS DMO} 
ANSYMs ,NOT, TRUGYM OMO1 
TAILSITAIL ,NE, 0 NMOL 

Cc onnt 
TyTPVaHe OHO4 
NRPSNCaeMSwR OnO1 
NOPLSVAP ot OMO1 
NHPENC ae (“Gen eUSul ) NOt 
NHPISNHP ot OMOt 
NSPENC HR CMS HL OMS HREM WL) ae ee OMOt 

NIP LEN SRS) OMO1 
NPANLSSNCWaIMSWREMNS4*L OMSWU OMS wD) N4O1 

IF CTRUS YM) NPANLS=NRP DMO01 

IF CTAUSYM AND, THETTT,GT,0,) VPANLSENCWH(NSWREMSWi) OMO1 

NPANL PENPANL SO] DMO! 

REPS uC wHeNBOCR OMO) 

TE CTRUSY4, AND BODY) NBTPANKTPS2 DMOL 
NARPS*IPANL SONKIP MMOL 

IF (NwRP.GT,8) NPR=O 01 

c OMQL 
WRITE (6.2) HEAD DMO4 

c OMOt 
c OMOt 
Cc ANGLES ANGLRSANGLL SZ ANGLU,ANGLO GNUD ONLY FOR CRUCIFORM FINS 98 ount 
c MONN@PLANE YING, 0401 
c 001 
RVELRBOEL @ehTHR DMO1 
ANGL&RSRDELN + ALF O01 

QOELL SNELL ebTOR DMOt 

ANGLE BAL FRO EDELL NMO1 
ROELUSDFL UR ATOR DMOL 
ANGLUSHE TAWORDELY NMOL 
RNELDSDELA SOTO 401 

ANGLO SRE TARONOELD OM03 
BETAsSQRT (AAS (EACH AFeACHe|,) ) nMOt 
TLONCB(RQ41 5S EoS)ea2a TOL Fac Om01 

TTL RBS, ORTLENC DMUt 
CUNSTS U4, OnP] OMO1 

THE TASHETA OmMot 
TATSQRHETAaRETA D404 
TILRNCaTL RNC ool 
NVERTENCRE DMOL 
aASYMTSASY™ 2401 

c OMO} 
c QMOt 
WITTE (CO, INPUT) NMO4 

IF (MAGAT,G&~,1) GO TN 53 Dot 

C OMO1 
c NM04 
CRRA RAO RARER AAKAKEEHEREEKHERRAERHRER EATER ERERRERERERRARREREREDM | 
c uP TO STATEMENT 9 13 FOR WING ALUNE CASE OM0} 
CRRA RAH OREM EOE HEERHEREREEARHEKRAHEKEREEH REHASH HHLeKeEnKeeeEDEReeRHeneA Al) | 
c NUTES TE NSORAGBIL, USE A MAXIMUM UF 1450 PANELS not 
c nmol 
IF CASYM, IR HODOVY,UR,*ICRK,NE.0) GO TU 69 OmO! 
MSWRPamguQes May 
IFC(LVS4P,EG.U) GU TI! Aas Not 

c nMas 
“OMOt 


316 
317 
318 
319 
$20 
32 
$22 
324 
‘$24 
325 
32h 
327 
328 
329 
3g 
331 
332 
$33 
33a 
335 
330 
337 
$$A 
339 
yao 
$41 
ta2 
3a3 
$aq 
sas 
345 
347 
34a 
§49 
$50 
351 
352 
353 
384 
355 
356 
§57 
$54 
359 
360 
$61 
362 
368 
364 
365 
306 
367 
360A 
369 
379 
371 
$72 
373 
374 
375 
$7 
$77 
BTA 


aoaann 


Anananann|nn 


Cc 
25 
116 
2e 
49 
¢ 
Cc 
c 
Ta 
ry 
Cc 
c 
c 


BEADS S718) CORO RD eVSRLERCK SIS ESHTER (KI) KEI, IS SAP) 
SPOCK ISVS LERCMSHHP) 

SMPTE ISVGATEN(MSaHP) 

GO TO 2b 


Lov CUT Tak SPas- TSE LOCATTUN UF PASEL FHS, YACT)IN TRE PLANFORY 


Ol, Arig 
1® THEY »FRE NOT SEAN TN ALREADY 


Ve (VSO, 

VRC MSeoPyske 
N¥skes4Sr.2 

Or TEe Lede Swe 
b(sret 

YF(TIa YOCL eNyeal 
SePibResel Fe 

Se Oe @sGaTRP 
SPAIQehD 
CWPTsl eo 

GN TAM 6H 


TE «te STHESETR AND at Tauuy andy. : = 

VAwES oI CEQMETeY LAT: fut FEL ATIVE TO LINE FNP FO BY 
TUTERSECTIC™ GF STREAMBISE GILONE THROUGH &IGG ROOT CHORD LE AND 
WEG OL ANF lia PLANE (A STGESMA TSE LINE) ; 

THIS baie ay COTICG Cav LY Se USED FOR PEL TA 4ING 

wItHIT ONG, 





CT pte 

W3wDDS“Sated 

* Sal OsrSriiet 

“Sw Pan Sa et 
“SanPsSanet 

TF CaAlDY) ot Tr 74 

TE County assy) rr Ti 74 


TE (Ly Sah ue, e) GH TO of 


S*PLE®SSapbOese TAY 

SaPTEGSSa Th Posh TAY 

S°PLEL sSel ROSKETAY 

SeOTEL sSaTEPoHETAY 

CTP SCRP OHA eI SLPsLE SSL PwTE) 

COOTS CREO(CESHET+eSI VRE Tae TAM (SHPTEL eNTNG)) 
SPaNis CEZJCIS(S4HLEP RAT AC NS(S4PLEL a OTARY 


SPANOS(RA/CIZ (SALES ENT) DHCIS(SHPLERAD TNR VSCTPRSISPET 


Gi) Th Ta 
SET UP GEAMETRICALLY SYMMETRIC LAYetUuT, 


BePLEVESaL Ee 

S-PTECSSa Tr? 

S*PLELsSat ke 

S*OTHLsSu fk O : 

Ce PTsCuUP : oF ‘ 
SPasosne : 
SPAnNL sae 

CONTI wk 

TECNCOW,EN, 0) GO TH 77 


CASE FOR VEOTICAL *ING PANELS 


T& CAIAV) GF. TH 7S 


nay 
MOL 
DANY 
DNOL 
Oeay 
Many 
WMO] 
Qnty 
001 
CMa 
not 
oo 
Heat 
Ooi 
wl 
1-404 
fey 
OMA, 
Da | 
Ne Oy, 
Dany 
DMOF 
ol 
oun) 
Lacan | 


Hy L 


nant 


“iM 


Ma 
any 


“Neay 


DO 
NMal 
nod 
Oho 
yd 
ovat 
Naot 
Naat 
yaad 
yeas 
C401 


PHO 


Od 
nyut 
LeU | 
QMO’ 
wot 
Ot 
ovot 
OMOt 
Hag 
emot 
OMG 
wos 
ONOt 
Ny at 
yen] 
OMGL 
Jeo 
nt 
N04 
roe nd 


479 
yan 
bey 
SH? 
BAS 
gaa 
$45 
34h 
&47 
$d a 
sa 
39) 
391 
399 
395 
4 
395 
R960 
$97 
$98 
5399 
aon 
aot 
4g? 
403 
aon 
auS 
u0o 
an? 
s08 
ang 
aio 
ait 
aie 
ays 
a4 
aio 
416 
ai? 
414 
419 
420 
vei 
42 
425 
aed 
42s 
dea 
427 
u28 
429 
430 
n31 
432 
433 
usu 
os5 
Ush 
437 
aga 
339 
gai 
guy 


185 


186 


NAAN 


aAanNAg 


IF (,NOT, ASYM) GO TU 75 

SYPLEVaSwlE VeAL Fa 

SePTEUSSETEVOALFA 

S»PLENES#LEVeaLFa 

S»PTERSSnwtE Veal FA 
CTOVECRPVeHaVe(SLPVLE@SLPVITE)D : 
CRETVSCREVE(COSALFO¢SINALE A TAN(SHPTEVaNTOR) } 
SPANUZ(BAV/CLOS(SWLEVEntON)) *COSCSKPLEUaNTIjR 


SPANDS (B82V/055 (SLE Vantin) )RCOS(S*PLEDROTARVECTPVESINALE 


“69 TA 77 


78. 


v7 


64 


6n 


61 


65 


“S4PLEUBS*LEV 


S«PTEUSSWTEV 
S-PLEDOSS«LEV 
SSPTENaSatev 
CRPTVserlRev 
SPANUSH2y 
SPAND=B2V 
CONTINIJE 


“SLPWLASs TAN(SHPLEReDTNR) 


SLOEWTRA TAN(SWPTERSDINR) 
SLPH¥LLa TANCSHPLEL #0 TOR) 
SLE¥TL= TAMCSHPTEL STOR) 
IF (NCAX.FR.9) GO TY 66 
SLPwLUatTan (SPL EUSO TNO) 
SLP4LDeTAa:(SwPLEDeOTYUQ) 
SLEVTIsTAN(SWPTEURDTOR) 
SLENTNSETAN(SKOTEC et TAR) 
IF (LVS4P,E0,0) Gi TO 65 


READ IN NON UNTFUIRM OTSTANCES TQ PANEL QUTanaRN FOGES 
TF ATTH A BODY, MEASURE FROM FIN ROOT CRNRD, 


READ (S,71S) CYRTCK ID, VSWLERC KS) pVSNTERCKI) KM ISts 4SHERP) 
S*PLEQVEVS4LER(MGwWRO) 

S*PTEREV3WTER(MSGWHP) 

S*PLEURSwPLER 

S-+PTFUSSKOTER 

SPANREYRI(MSwREP)SYRT(1) 

S°ANLSSPANR 

SPANUSSPANW 

TF CTRUSYM,ANN, THETITLE.9.) GO Tl) 68 

IF (TRUSY™) GU TN el 

REAM (5,713) CYLT OKI), VSHLEL CK) ,VSWTEL CKD KIS!» MSatP) 
S¥PLELSeavSrLlElL cmSe_P) 

S*PTELSevS~TEL(MSaLP) 

SPANL Se(YLTC4SwLPaYLT(1)) 

IF (NCPX,FG.0) GC TU 68 


Te TrRuUgSY™ TS TRUE AND INTERDIGITATED TATL. IS TREATED, 
CATA JG EXPECTED HR THE WIGHT 'IPPER AND LoaeR FINS 


REANDCS, 7453 CZUTCK I) pVSHLEUCK IS) pVSHTEUCK I) pK Jes pMSWLIPY 
S4PLEUSVSWLEU(MSWUP) 

S*¥PTEWSvSHeTEUCMS*UP) 

SPANUSZIUT(CSSa+UPJeZUT (1) 

TF (TANSY4N) GO Th 648 


PEAD(S,715) (ZOTC KJ), VSYLED(<J),VS* TEDCKI) pk IO1 48909) 


S*PLENOgevS*LED(HSHOP) 
SXPTEVsevSeTED(™SH0P) 
SPAXOzel(2TC4SwOP)aLOT(1)) 
CO 10 48 

CONTINUE 


oMol 
.01 
OmMOy 
OMot 
Omo! 
DMO! 
OMOL 
Naot 
OmO1 
DAO1 
vot 
onot 
Onn} 
Dot 
Out 
OMO1 
Orval 
OmM0) 
OMOl 


“OMot 


OMOL 
OMot 
OMod 
OMOL 
OmMO1 
Neat 
oMOL 
OMO1 
oot 
O“Ol 
OmMot 
Not 
Dot 
OMO1 
Oot 
DMO 
OMO1 
N01 
Nol 
bot 
OMOE 
Ow! 
OMot 
NOwot 
Nag 
OMOtL 
Omat 
OmOo1 
neat 
DM01 
OMO4 
Deol 
Omat 
DOMO1 
ool 
Oat 
Oot 
ONO] 
O4Ol 
OMO4 
OMO4 
Nwo1 
Oma 


ag2 
gas 
4ua 
aus 
446 
au? 
aaa 
4a9y 
ago 
a5i 
852 
453 
aga 
455 
456 
AST 
4uS4 
459 
460: 
dot: 
dba 
4o3 
4ou 
46S 
466 
4o7 
G54 
ahg 
a7 
Ort 
4av2 
473 
a7a 
475 
aTn 
aT7 
4748 
479 
wad 
aul 
4a2 
Gh§ 
aay 
gas 
Oy .y 
aKa? 
4BA 
469 
aga 
ug 
492 
49s 
agua 
495 
896 
97 
498 
aga 
Son 
50) 
502 
ses 
Sau 


AOA 


aAAra 


St 


S2 


97 


$a 


55 


29 
aa 


AQ 


et 
Bu 


Be 


S$ 


EQUAL SPANWISE *IDTNS, CUNSTANT SwEEDS 
PANELS IN HORIZONTAL WING SURFACES 


“YRT(1)20,0 


VQT(NSWRP) SSPANROYRI (1) 

OYRSSPANR/HSWR 

00 51 Tw2,4Seer . 

ATaTle| 

YRTCL)SOVawal overly) 

IF (CTRUSY™ ,ANN, THETTT.E9.9,0) GU TO 68 


IF cCTRUSY™) GJ TO S? 
YLT(1)20,0 

YLT (MSWLPYSOSPANLOYLTC}) 
NYLSSPANL JeSHL 

OC $2 Is2,3rr 

atelel 

YETCT) seDViLwATOYLT (1) 

JE (NCRK,FA,0) GO Tl 48 


PANELS IN VERTICAL PLANE 


2UTC(19s0,0 
ZUTCMSWUP)SSPANUGZUT (CY) 
NZUSSPANLZNS AU 

Of) SY Ts2,MSHU 

Alaf{el i: 
ZUTCLTVaNZtmAleZur(g) 


te (TRUSYM) GO TU 64 
Z9704)20,0 

ZOT(MSaNP peeSPanOez20TeL) 
OZNSSPAND/MSwD 

NM SS Te2,"SeD 

Afvelel 
ZOTCTISeNZOFATSZOTCL) 
CONTINUE 


IF (LVSW8,£9,0) 60 TO 79 

TF COSYHM OR BODY,URNERK,NE,U) GO TO 2a 
wPITE 6,744) 

WRITE (6,732) 

NU 29 KSt,"SwRO 

WRITE (Oe733) Ke YR(KI,VSWLER(K) »VSWTER(K) 
Gn TO 79 . 

‘WPITE (6,734) 

wPITE (6,732) 

NO BO KaL,MSuRP 

WRITE (6,733) Ke VRPT CK, VS4LER(K),VSO¥TER(K) 
IF (CTRUSYY ,AND, THETIT,LE.0,) GO TO 79 

IF ¢(TQ@tiSY™) GO Tu 64 

wOITE (6.735). 

Qu 81 Kasi e4SaLP- 

WRITE (6,735) Ke YLTCRY,VSHLEL(K),VS*TEL(K) 
Te (NCRX,EC,.0) GI TH 79 

wQIte (4,756) 

OC B82 Ket, Sale 

MRITE (65735) Ke ZUTCKY,VSMLEUCK) sVSWTEII(K) 
TF CYPUSY4) GO TH 79 : 

WHITE (6,737) 

NO 8$ K=s1,’8w0eP 

WOTTE (66735) Ke LDT(K), VS*LEN (KD, VSHTEN(K) 


OMO! 
D401 
O01 
DMOL 
Ono{ 
OMOL 
DMO 
OMG! 
DMOL 


“ OmM0t 


OMOt 
OM0} 
OMO1 
DMOY 
DMOL 
OmMO1 - 
OmMot 
NMOAY 
DMO01 
DMO} 
OMOL 
OMOt 
voM01 
DMOtL 
OMOF 
DMOY 
pMo1 
OmMol 
OmMOL 
OMOL 
OMO1 
DMOY 
DM01 
OMOL 
Ome?! 
DEE | 
NM 
OM01 
OM01 
Mot 
NMag 
DLI'B | 
OmMOL 
OMO4 
OMOt 
OMOt 
DMO1 
DMOY 
DMO} 
OMOL 
QMO 
N01 
ueMot 
NHO1 
OM01 
OM0} 
OomMot 
DMOt 
OMOt 
NOt 
OMNY 
Ong 
Phares | 


505. 
S06 
so? 
593 
509 
510, 
Siti 
512 
S13 
Sta: 
515) 
516: 
S17 
Si4 
519 
520: 
S2t: 
522! 
523i 
S24} 
525) 
326° 
527) 
Seal 
529: 
530 
531 
5$2 
535 
53a 
535 
554 
537 
538 
539 
Sun 
$41 
542 
$43 
Sau 
545 
546 
$47 
544 
Sug 
550 
551 
552 
553 
554 
555 
556 
557 
554 
559 
560 
Sol 
562 
564 
564 
565 
566 
567 


187 








188 


aaan 


AANAANAO. 


aAaAN 


79 CONTINUE 


LAVeQUT ELEMENTAL PANELS ON WING ALLINE 


IF CASY4, 8, 8UDY .UR,NCOX.NE,0) 6 TH SO 
CALL LCAYOUT(SLPRLE ,SLONTE, Ry* SY RO,LRP 
IF CNOUT EQ, 1) WRITE (6,715) 23Y¥%e, TL RM 
NOSY™ 

6) 1) 53 


LAYenur FLEMEA (Ai CANFLS O% THE FING, 


NOTES OFSTAnChS YRT,YLT,ZUT,ZOT ARE EA 


CroROS Tt HOLY TS PRESENT 


ot CTO, OWTED, THETR) 
CroLEFT,RONY,NEL TO, TRUSYK, 


SURED Fane TRE FIN SINT 


SO CALL LAYOUT(SLOWLH, SL PwTW,YRT,MS4RF,CEPT,1, CTD, OKIFR,THETH) 


TE CNOUT ENS) RITE Fo,715) SSYHL TL 


198s 


IE (NCREKE,O) CTPVaCTe 
IF (TRUSY™ ,AND, TRETITSLE,9,0) G2 IO 


IF (TSUSY™) GO TO 43 
CALL LAYOUTCSLESLL »>SLO“TIL YLT S*SHLPsCO 
TF (NDUT,EG.1) “RITE (65715) ASYS,TLHN 


LNOgyM 


IF (uCRK E99) GU TH a2 


CeLEFY,RANY, DELTA, T&USYS, 
62 


OT,P.CTPL PYIFL,THETLY 
CeLEFT, ANDY, CLELTA,TRUSY™, 


63 CALL LAYNUT(SLOEMLU,SLONPH, ZUT,MSHUP,CRPTV, 3,CTPV,ONTEL, THE Tt!) 


TF (NAT FOL) KAITE (6,715) ASym, TLRM 


1wosys 


1 


Te CTRUSY™) GU TU be 


Ce CERRO DYE Ae TRUSYM, 


CALL LAYOUTCSLE*LD, SLPWTD, LNT ehSaUP,CHPIV,U,CTPVDPHIFD,THETO) 
TF CNOUT EGel) SRITE (60715) ASYMeTLANC LEFT ,UNOVGDEL TA, TRUSYMs — 


amsSye 


LAYeNUT HNOY INTERFERENCE PANELS 


62 TECMBOCR, EU.) GO TU 53 
CALL LAVOUTCSL POLE SLOWTE sD ,OeMRUCK HTL Sp 0yp%ee%Q) 
TE CNOUT EG,1) “RITE (6,715) ASYM, TLAMCSLEF Ts, SUDY NEL TA, TRUSYM, 


i 


vogys 


SS CONTIAUE 


SA 


{ 


*RITE( 6,701) CTP,CRP,He 

TF (CL v50B 69,0) ARITE 66719) SHLEPSSuT 

wRITE (6,792) PMACHsALFOC PHT, ALFA, HET 

TEC NOT,ASY™) GL TO Se 

WETTE(H, 722) SPAN, SPANL 

TE CNCP UNE SOMAITE(S, 727) SPANL, SPAT 

CONTINUE 

ae TTE (CH, 723) CAPT 

TECNCOK,*E 9) ARITE (CH, 721) CRPTV 

TF CNDUT EE) GUO TH) PHES 

WRITE (6,705) 

wRITE(6,7050) 

RITE CO, TOA) 

WRITE (627590) CSeKLE CIV VLC CI) oe ZLE CJ) eX 
YRC( SV, ZPEC TI, XPOR CTV, YPCC J» LHH(J),.S 


EP 
AY 


LACT, PLOCI Ie ZL ACI A KRE (I), 
Si ,*RPY 


oroat 
oM01 
OMot 
nol 
OmMol 
Omot 
OMOL 
NM01 
O04 
DMO) 
D401 
OM01 
DMOt 
Lo EEEtn | 
NNO] 
tyatg 
OMG 
N4o04 
Ono 
Ono, 
oot 
OMotL 
OMOY 
oat 
Nea] 
DMOY 
Neo 
Huot 
0401 
OHMOt 
OMOt 
O01 
Ong 
MOY 
DMO! 
O04 
NMOL 
OMOL 
Naot 
Onnt 
omMot 
DMOL 
Oeas 
Oto} 
0401 
O01 
OMOL 
OMOt 
Naot 
QMOL 
OMat 
O”01 
OMOL 
OMO1 
UMO1 
OMO1 
bMot 
OmMO! 
No! 
PMOt 
May 
nat 
Quo{ 


Soa 
559 
570 
S71 
572 
575 
$73 
S75 
576 
577 
57a 
579 
569 

561° 
562 


‘oud 


60} 
402 
ocs 
60d 
ous 
60a! 
507 
608 
609 
610 
611 
612 
613 
614 
615 
ota 
617 
A14 
419 
&2n 
e2e\ 
622 
a2s 
oeu 
6235 
626 
627 
628 
629 
ayn 








aan 


ANnaAaA 


aNMoONAAA 


TF (CTRUSYM AND, THETIT.LE,0.) GU TO 71 


IF (rQuSyM) GN TO 7$ 

WhTTE(A,709) 

MRITE (He TNO) COeKLECIISVLCCI)ZLE CI), VLBI) e VLCCI) o2L8(N)» KRF (JS) 
Lo YRECSDeZHECIVA RRBC SV, YROC ID e2RB CI), JeMRP {HHP ) 

TRE CNCRX,EG,0) Geom Ty 


73 WRITE (6,710) 
WRITE (Oe706H) COPMLECIIZYLECI) -ZEF CI XLACII MICOS sZLAC IIe XRF (I), 
LP YRCCI Ve ZRF CIV ARIC TIS YREC II oe LAB CII, JSNHOT, NSP) 
TF CrRuSY™) GO Tu 71 


*PITECS,TI1) 
WRITE (6,706) Coe ALE CIV YUE CI) SZLECI) ALAC II VLOCI) pTLA CII XRF CJ)6 
$ YREC Ie ZRF CS oe XRBCSVAYRCCI) ZRBC J) pJEN3P1,NPANLS) 


7) IFCNBOCR,E9,0) GO 19 72 
KRITE (6,726) | 
“OTTE (6.7030) 


MRYTE (657060) (JSoXLF CI OVLEC IIA ZLE CII XLAC J) oe VLCC J), ZL BCS) XRF CI), 


SIRE ARE e) KPACJI, YRC QJ), ZR J) oJ NPANLP .NwEP) 
WRITE 6,717) 
WRITE (6,713) (JeS4PPLE CJS, SwPPTECIY,JE1,NWRP) 
60 T9 7813 : 
72 AWITE CO 717) 
ITE (6,718) (Je SHPPLE( I), SHPPTECJ) 4JB 1 NPANLS) 


PALS CONTINUE 


us 


INPUT THICKNESS DATA, PRINT INPUT VALUES, AND LAY 
GUT SUURCE PANELS ON FING, 
‘SUBROUTINE THKIN READS IN STREAMWISE THICKNESS SLOPES, 


TECHN THATEG,O) GU TU BA 

CALL THKIA 

CALL TeHKOUT 

CALL THKLYTC(CRPT 20) 

TEC ASYK) CALL THKLYTCERPT, 1) 


TFONCAX,FO,9) GU TO BA 

CALL TRKLYTCCRPTV,2) 

IFCASYM) CALL THKLYT(CRPTV,3) 
AB CONTINGE : 


TNITTALIZE NOOY ISOUCED VELOCITIES AND VORTEX INDUCED VELOCITIES 


9 10 KMz1,1599 
VVRTXCKN) 50,0 
eVRTX (KM) ZU, 
HNUCKM)50,0 
HOV KN) S00 

10 AOweKsysn.o 


At 1t 1Cet,590 
VVEL(CTAIS0,0 
1! VEL CIC) 80,0 


WHEN MEPQOUT NOP ZERM,. . 
PUL WING OD” FIN CONTROL POINTS AND Bnpy INTERFERENCE PANEL 
CONTROL enints In 048TA SET ON TAPE a, 


Oot 
oMOs 
00! 
oMot 
Omen 
ONO1 
OmMOl 
_ DMON 
“jo4ay 
lnMod 
DM01 
OMO1 
OmMO1 
DMO} 
omMot 
DMOY 
yMot 
DMO! 
OM01 


D401 


oMot 
O01 
OmMOs 
DMO1 
OMO1 
Nwol 


OH01 


O40! 
OnM0l 
Neat 
DMO1 
DMO} 
DMO} 
OMOt 
OMOt 
N01 
OmMnt 
ono) 
ool 
MOY 
0401 
NMOL 
OM01 
OMOL 
DMO! 
nMot 
oho 
OMOL 
OMo1 
ool 
O401 
OMO4 
Dvol 
OmMOt 
DNO$ 
N04 
OmMot 
OMO1 
vM0) 
neo} 
ool 
DMOt 
oMOtL 


631 
632 
633 


634- 


635 
634 
637 
658 
639 
540 
Haut 
hue 


643. 


664 
685 
646 
6a? 
648 
649 
659 
651 
652 
o$$ 
554 
655 
4556 
657 
654 
659 
66) 
661 

so2 


bos - 


664 
665 
666 
467 
663 
649 
67 
671 

472 
673 
674 
675 
676 
677 
678 
679 
Ad 
681 

682 
683 
684 
685 
686 
687 
4568 
689 
490 
69t 
AO? 
695 


189 
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Page Intentionally Left Blank 


192 


- AANA 


Cc 


NAANHDANAAAAAMAAMAAAAANGA 


aan 


oa0 


aaa 


ran 


CHWARAE ARERR RRR EEERRE EERE RED RERERREERREERERKEREOA 


at7 


418 
42s 
a3 


‘O18 


SPECTAL PURPOSE CORE MEnORY ECONUVMY SECTION FHR BCS foot 
SET CRE REOUIREMENT BASED ON LFL PLUS FYN(NWHP,NwHD) 
NOTES @LrREanyY SET FYN(I), 


MEL TOTSLEL eNMHP ANH RPO] 
CALL REQFLCMFLTUT) 


SET UP TNELUIENCE COEFFICIENT MATRIX 

It TS ThE LHS UF TRE FLOw TANGENCY CONDITION, 

NOTES THE RC, STATES THAT VELUCITY SORPMAL TH TRE PANELS “UST 
BE ZE8Q, 

THEREFORE ALL VELOCITIES wUST BE TRANSFORMED INTO INO VIDUAL 
FLAP COORDINATE SYSTEM, 


CALCULATE THE INFLUENCE OF EACH PANEL FN BACH CONTROL POLUT 

TI AND TF ARE TRE LIMETS FOR SUMMATION OF THRE INFLUENCE FUNCTION 
IN SURBROUTIKE VELNOR 

If Tf & TFs THE INFLUENCE OF 4 SINGLE PANEL AT & POINT RESULTS 
AS IN THE COMPUTATION OF THE -ARRAY PVN, IF f1Ys#1 4NH IFanwdP, 


aQO4Ot 
eM OY 
2DM0} 
nmol 
aDHod 
oMOt 
Not 
*OMOL 


HHReHPARRERSRATOEREHE KEIM | 


OMo1 
bM“O1 
OMOl 
oMU! 
NOt 
No1 
oot 
Haat 
neo! 


OMO1- 


O01 
eo 
bao) 
DMOt 


THE IMPLUENCES ARE SUMMED OVER ALL PANELS, 48 IN THE COMPUTATION ONMOY 


RESULTANT VELOCITIES HELO*,,,, 


ewe ~£ 18 THE INGEX OF THE INFLUENCING PANEL 


JJ=0 

NUCPITSO 

OO 4590 JTat,NwaP 
TIst 

Feat 


J IS THE INQEX CR THE INFLUENCED PANEL,LLE, ITS CONTROL POINT, 


00 425 Jat, swHP 

JBEJeNPANLS ; 
CALL VELNORIKCPT CJ) 2 YCPT(CI3,20P TCS) 
JJasset 

TFCS LE ,NPANLS) GO 1 at? 


INFLUENCED PANEL IS ON THE BODY INTERFERENCE SHELL, 


CALL ROTSA CVCHKAWCHK VV ewe, JR) 
GO Tr} UIA 


INFLUENCED PANEL 'S ON A FIM, 


TE CSLE NHP) PHTFAPHFER ROTOR 
TF (3,GT VRP AND, J LE NPAGLS) PHIFSPHIFURDTOR 
CALL VOTH (CVCHK pWOHK, Vv. am, PHIF) 

FVHiC Sf} aww 

CONTINUE 

CUNT SHE 


PERUG NUMP OF THE FVN ARRAY 


TF (NE VAPR.ENL9) GO Tao 614 
WRITE (6,707) 

CALL OUT CE VN, Rw RP) 
CONTINUE 


Naat 
OmMOt 
O4O1 
ONY 
OMOL 
DMO1 
Omot 
OMO1 
OMO! 
DMO1 
Ong) 
Awol 
OMOt 
OMOt 
DAO 


. DMO1 


OMOY 
OM f 
O01 
Oot 
DMOL 
DMO} 
onel 
DMO4 
Dead 
Not 
DMO4 
Oot 
O04 
Omot 
N01 
y¥O4 
ONCE 
Omo! 
MOT 
OMOL 
nO 
OMad 
OMN) 


836 
as? 
#38 
539 
aay 
B4u4 
au2 
aug 
aay 
ay 
AU 
Ruy 
Bun 
aug 
8SO 
aSt 
ase 
ASS 
ASS 
ass 
894 
as7 
ASA 
aso 
CY-¥) 
Bel 
862 
Ros 
Bag 
AOS 
866 
B67 
Ro 
a69 
av.) 
B74 
872 
A473 
A7G 
a75 
ATA 
877 
878 
479 
ABO 
AR 
kA 
BARS 


Cc 
Cc 
Cc 


c 


aanannaaa 


AqQnnqaaNn 


CALL LINE GSCNWRPSFYN) oMntt 

TF (NAGAIN,NE,1) GO TN 9006 OM0} 

JM AXENWAP AES nuay 
REWIND $ DMO} 
HUBFED NUT C3st? CEVNCL) Ss FVNGCIMAX)) DMOt 
NSGAINSMAGAINGT DMOt 

TF CUNTTC3)) 27027,27 NMOL 

27 CONTINUF OMOt 
60 TN 9000 Qmot 

Nig Rehnne dd aes nwee MAAK ANOS SdGN CAAA dEENAEOD SRE ERAS ERTS LAR DER aaNON SERN CeONTt 
; «DMO 
CASE FOR NAGAIN Gel. te SEY REQUIRED FIELD LENGTH, OMO4 

DMO} 

38889 J4AXYeNwhpare DMO 
MELTOTSLEL ONWeaPaNwahPeal DNO1 

CALL REGELOMELTOT) N01 
RIUUOL 

CHAR RaRERERRERIATRRAREORARAAE REE RAEAAPKARRERT HAE LEAAHEHERERE RAH EERE ROMO! 
, REWIND 3 OM04 
BUFFER IN (3,1) CFVNOC Lo FVNCIMAX)) OM01 

TF CUNTTCS)) 30,230,450 DMOL 

30 CONTINUE O40! 
9000 CONTINUE OMO4 
: OMOt 

SET IP SINGLE COLUMN MATRIX. RHS FOR RIGHT HANA SIDE DMOL 

IT REPRESENTS THE EXTERNALLY INOUCEOD VELOCITIES AND ANGLE UF Devt 

- PITCH aNd SIDESLIP EFFECTS 48 WELL 48 FIN THICKNESS, ~ - DeOt 
NOTE R NO THICKMESS EFFECTS ACCOURTED FOR TF INTERDIGI TATED FINS Ny 4 
APE CONSIDERED, N4O1 

OMOt 

NO! 

re CNVLIN EQ, O ORATTAIL EQ, 4) 6Q T0 607 OMO4 
REWInn 7 DMOL 
WRITE (6,747) oMot 

607 CONTINUE DMOY 
DMO1 

CASE FOR wING OR FIN ALL AT SAME SNGLE AS ANDY D40t 

DMO! 

READ IN VELOCITIES INDUCED RY MOVING VURTICE§ CCALCIILATEO HY OMOL 
PROGRAM yPATH) AT ALL CONSTANT IMSVELOCITY PANPL CONTROL PNINTS, OMO1 

. OmMag 

NMO4 

TE COELTAY 69 TN 627 OmMolL 

90 620 dS a NMO4 

1Cel OnOt 

TF (NVLIN,EG.O,OR ZI TAIL,EQ,1) GO TH 495 DMO} 
READ (7,740) FCoXCPs,VCPsLZCPeVVEL CIC) ,4VELCIC) OnMot 
wOTTE (6,705) Co XCP,YCPsZCP,VVELCIC) pWwYEL CIC) DMOL 

605 CONTINUE OMO! 
WEXTESSINALE SHOW] DOaVRTX(] penvet CIC} OMG, 
VEXTSeGINRETOANV(TeVVRTXCTVVEL CIC) QMOt 

YF CY GT NPAWwLS) GN TA ovt : Mot 
TFCT.LE, HP) GA TO 602 DMOL 

CP CT.LEeNPANLS) GO TQ 604 DMOL 

601 9*$(TI36,0 OMoO4 
GO Th 620 DMOY 

"602 DOMTFSPHWIERELTIR oM04 
CALL OTwECVEXT,WEXT, VV, AW, PHIF) DMn4 
 RMSCT) seu Duo 

GI TA 620 Oot 

6) PRIFEPNHIBHADTOR OMG 4 
CALL ROTM CVEXT ME XT, VV, aw, PHTF) Oot 

; AMOt 


884 
a8s 
BRA 
aay? 
B4Y 
Beg 
ago 
A91 
AoA 
ags 
aga 
AOS 


496° 


ag7 
A98 
899 
904 


901 


902 


903: 


904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
915 
917 
918 
a19 
920 
9e1 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
947 
935A 
939 
gun 
9u1 
Que 
943 
Suu 
945 
Qu4 


193 


194 


Oan 


aaan 


aaAan 


620 


e2? 


606 


693 


644 


642 


643 


64e 


eas 
646 


90 


91 


R4S(T) sew 
COnTT SUE 
GO TH 646 


RIGHT HAND SIDE FOR KINGS OR FINS TILTED ¥ ITH RESPECT Th ALIDY 


CONT WUE 

Mi) 645 Kal,Nwhe 

TC eK 

TE Curve In, &9,0, TR, TTALL.FR,1) GO TO 66 
REAM (7,786) I0exXCO, YEP, ZCP,VVELC IC) ,WVEL CIC) 
SRITE (6,705) IC,XCP,YCP,ZCO,VVEL CIC), “VEN CIC) 
CONTINUE 
VEXTSeSIKHETOHNV(K) OVVRIX (KJ OVVEL (IC). 
WEXTSSTNALFORDW(K) oaVQTH(K )OWVEL CIC) 
IF (CK,GT,NPANLS) GY TN 603 

TF CK LE, NRP) GO TO 644 

IFCK LE,SHY) GO TUG eu, 

TECK LE NSP) GO TO B44 

TECK LE,NPANLS) G0 TO o44 

RHS(K)£0,0 

69 TO 645 

PHIFSPWIPREDTOR 

CALL ROTHECVEXTSWEKT,VV,ww,PHIF) 

RHSCK )cowteSIN(RDELR) 

GU Tn 64g 

OuTF SPHTELADTOR 

CALL ROTHECVEXTOWEXT, VVenw,PHIF) 
RKSCKeewreSINCRDELL) 

GO TN 44s 

PHIF sPw Tete TOR 

CALL ROTH COVENT WEXT, VV gue PHIF) 

HHS (K)sewweSIN(RDELUY 

6G TA 44g 

DMIF RPHTENRPTOR 

CALL RNTOFCVEXT SHE XT, VV WH, PHIF ) 

WHS K)ZewweSIN(RDELN) 

CONTINUE 

CONTINUE 


AND IN PRATURBATION VELOCITY COMPONENTS IMNUCEO BY FIN 
SOURCE PANELS AT THE AODV INTERFERE*CE PANEL CONTROL PNINTS, 


TF CUTIAT ED.U,NR, NOT,KINY) GO TO 1 
T1Ta1 : 

IFTSNTHP 

00 90 KsnPANLP,NabP 

Mjak 

CALL. THEVELOCKCPT(K) + YCPT (CK) ZCPT(K)) 
KB sk eNPANntS 

THUCKRYSUTCHK 

THV(KB)SVICHK 

TH (kd) swT CHK 


TNFLUENCED PanEL IS & BIPM, RESULVE WINGaFQAME 
VELNCITIES INTO BIP FRAME, 


CALL RNT&ERIVICHK SWICHK VT, wT ,KB) 
RHS(KIERHSIK )owT 

CONTINUE 

69 Ta 92 

On 93 KENPANSLP,NeHD 

<AgkeNPAatS 

THU(KA) EN, O 

THV(KRISOLO 


OMQL Gar 
Out 944 
OMO1 949 
OMOt 950 
Dot 951 
OHNOt 952 
OM01 998 
MMOL 954 
D404 955 
O40 956 
Dmo1 967 
OMOt 958 
N“ay 959 
AO}, WAN 
O40 Gol 
OMOL 962 
OM01 963 
Crot Fou 
OFFUL 965 
DMO1 Yoo 
OM01 9467 
OFUL 965 
NOL 909 


“OAOL O79 


MOL O74 
OMOL 972 
DHOL 978 
OMNL OPyQ. 
DMNY 975 
DAOL 976 
DMOL O77 
éO1 974A 
O401 979 
DMO1 999 


" OMOL 9B} 


DOL 982 
NOt 983 
DO¢MO1 Aa 
DOL 88S 
NMOL 9R6 
Cent 9A? 
OMO1 98a 
OM4M01 989 


~ DOT 990 


Orol 991 
Doi 992 
OMAL 993 
NMOL 994 
ONO 995 
PMOL 996 
Ovny 997 
ona 99a 
DMO} 999 
DMO11000 
OMOLLNOS 
Cyotinuea 
51911005 
OsOL1L00d 
o'faLrtads 
OMAI( ONS 
D4MO11L007 


Nat Taar 


DAOL L009 
DMOLIO1O 





OY TH*(KH)SO,0 : OMOL1O0LL 


ANAAANaRN 


AaaAAaAN 


99 CONTINUE OMOL1012 

c OMOTICIS 
IF (NQUT,NE,0) WRITE (6,728) 2 pts! OMO11014 
IF CNUUT, £0,909) GO T) 648 OmMuliots: 
wWATTE (6,729) (KeRHS(K)OKS1SNWBP) OMOL1014a: 

648 CONTINUE : OMOL10NT 
CALL SNLVE(RHS,F VN, NWAP) : DMOLLOLS 

IF CNOUT,NE,O) “RITE(O.731) - N€g1to19 

PN 630 Tat, sNaP ; cs o ; _ 04011020 
DEMONPSRHSCT)&CONST oe oye - 3 : ‘ : : Onotlo2l 
NELTP CY) SDE MONP i OMOL1G22 

TF CARSCOELTPCT)) LT 1.9E 210) DET ACT Ns 8. ets : ae NOMOLIG2S 

TF CNOUT,EG,0) GO TO 4306 q : ' OMO1iles 

, RITE (6,729) T,CELTPCT) : : : : oro1t0es 
630 CUNTINUE DMO11026 
Cah meee Raha eeekaKKRREHHEOhreeRHKHEeRkedseeetnreneaneecareenrehinkeneWeON11027 
c REDUCE REQUIRED CORE ALLOCATION B4CK TO LFL SIZE ; . *0”¥011028 
c : : F : ; #0011029 
C4LL REGFLCLFL) 2 04011030 
eOMOLLO31 

CoH RAKE RRRE RARE EKEE ERENT HEART EERE AEE E RAR ERED she neenannbanse ee04O11032 
aS OM011033 

PRINT CONTROL POINT COORDINATES OF THE CONSTANT UsVELOCITY PANELS DMOH1LASG 

ON THE wING UR FIN SURFACES AND THE EXTERNALLY INDUCES ; 540110355 
VELOCITIES AT THE CANTROL POINTS, DMOL1NSG 

é “9011057 

; O*OL16358 

*¥RITE(G,7040) NCXeMS*R,MNSHL MSWU MSH) Ownt1iags9 
WRITE (6,705) (Jp XCPTCSS YCPT EI) A ZEPT OSI, POM eee BNwCS), Ovot10G0 
“AVVREIX CSD, WVATX (J) JBL,NPANLS) ae DMOLI0GL 

TEC NOT,ANOY) GO TN 685 . : Qmo11002 
wRITE (62725) : DHOL1dGS 

[QO 650 KeNPANLO,NwAP Bis omotinaa 

650 wRITE (6,795) Ky XCPTCK YS YCPT(K),ZCPT (KY, THUCKeNPANLS), OMg1194s 
i THV(K@UPANLS)» THWCKeNPANLS) —  OMO1L046 

655 CONTINUE : OMOL10U7 

; D4Ot1NUA 

NMOL LOa9 

. oar . QMo1tu5o 

CALCULATE LUADINGS ON THE WINGS OR FINS- WITH LINEAR PRESSURE DMO11051 
LUADINGS OnM011052 

oe OMO11055 

TF (NPRESS,.FQ,0) CALL LOARS : NAO11OS4 

. ONOS 1655 

OY011956 

«NON LINEAR PRESSURE LOADING CALCULATION DM011057 
NVRTBL EQ MEANS EXCLUDE VUIRTEX INDUCED VELOCITTES PARALLEL TO WING OMO11058A 
SURFACES , “mMO11059 
D4O11069 

CNOL1NGL 

; 94011962 

IF (CNOLIN®,NE,Q) CALL SPECPR DMOLI9GS 

. the ; ; DM01100u 

CONTINUE CALCULATION NF PRESSURES UN THE ANNVY MERIDTANS IN THE DM0L196S 
BEGION AFT JF LEADING EDGES NF FIheKHONY JUSCTIONS, YMOL1966 
ROVAFT YS ENTRY POINT IN SUBROUTINE HNYPR © DM011967 

: — , OMOTLI08 

TF (BODY, ANDNBOYPR NE ,0) CALL BOYAFTCITAIL, START) : NMOLINGD 
N4011070 

; OMOLINTI 

69 TO 999 OMOL1I72 

ENO ; DMOLIATS 


195 





196 


HANA AANA 


m 7. 


an 


“aaa ano. 


aan 





SUHROUTINE HOYGEN o“02 
’ OMO? 

VERSTONSNEMONG, OMO02 
On02 

THIS SUBROUTINE DETERMINES STRENGHTS DNF SUPERSONIC LINEARLY 0402 
VARYING LINE SUURCES/SINKS ANDO LENE ONNBLETS TO MANEL A YOAY OF OND 
REVOLUTION 47 GIVEN ENCLUDED ANGLE GF ATT4LY AND “ACH NUSHER, é02 
dYO2 

NINENSTON AC100) Dialir 
. : O40? 

LOGICAL ASY*,NUMBDYSOELTA,NNSYM 0402 
: NOHO! 

COPMON/ONE JOUMI C0402), AL FR, ARWING) HS eDUM2Z(9) ,FHACH, RA, OUMS(3), D402 
1 TELANC,TIPY,IOTLO,OtiMaCL a) 4» OnN02 
2 MATE, OUMS (2) DRAG NUMKO(A),NOCPTSSOLINP,NOUIP, VPANLS,NPRE SS sh aBP, OHO? 
2ASYM,DUMADYsDELTA,NUSY™ O02 


COMMIS THEMs/TXOL0F) AR CIOL) -UBSCI9ODI,VANCINFI, VASCLO1),VIBUCIO1), D402 
IXBADV CIOL d,PANOVCLOL) RPROOY CIOL OPE XCIOOI, TEL OO) ,TOCIGCOeCUEFF D402 
20S, BCOME SRETASG HST RANTUS RELTELDSPUMT stig Ve VToLNOSE s MACH ys SACHSO,NMO2 


BSRETA,XFIELO sXe, LBUNY,NXBNDY D462 
COMMONSWATR/THTI C125), KaLE Omo2 
COMMON/SSPSANG/SINGLC,COSALC sSINPHI ep CNSPYY : OM0e 
COMMON/SMRTRISKXE C100), Re (100) oa OMO! 

OM02 

. 0402 

REAL MACH, YACHSQ,LNUSE,LAHOOY,LBIUDYR - Pe : 0402 
j vo OM02 

INTEGER BCNOE QO402 
. . oMn2 

Dao 

NAMELIST/HOOV/NXBOUDY,LNOSE pLAODY eRCCUE wake 4g fi, DIAD Yj 
0402 

OM02 

Q402 

6 FORMAT(JU,F9,4,10G11,40) nMo2 


227 FTIRMATCIMO, bSHVELOCITIES INDUCED UN BODY RY BODY LIME STNGULARITIEDMU2 
19 FOR MACHSsF7 Up SKpGhALFOCS,ETU//20X,1e2HRINY SOURCES, 25K eb SHANDYDMO? 


2 DMUBLETS 5/7946 LHX p DK y LMU y LOX, LNs LOK QHVNGGKy THUG IX, LHW) LOX, On02 
3 2HVT, Gxs,2hVNS) OM02 
TOU FORMATO(Lx,e( IH) ,22HSNDY DEFINITIGN POINTS, 7( tHe) so SKXetOCtHe), © . M02 
LP LGHEINT RAL POTMTS, 90 phe) sSK INT OX eSHXSUNY, 6%, 5HRANDY, SX, DHOa 
2 BHRPRNDVY se 12K, AHXP POV, AHR Ox ,SHIR SDK SS) M02 
TOL FURMATCA WT SpA eF IG UL oF ID Het KIO ds UX FIN, LXeF IN MIX, OM02 
1 Fid,4) . ‘ OMG2 
702 FORMAT (26%, 20M#*MREVISED LAYOUT#ae/) Duna 
703 FORMAT(LHY) OmO02 
TOG FURMAT (//, 9%, 5GHRNDY MERTDTAN=SUIDY NOSE “ACM CONE INTERSECTION ATOMU? 
1 xTs »F10,5/) 0402 
799 FORMATQIHY ,S9MPHYSIC AL DIMENSTUNS WF RADY AMD CINE SINGULARITY STROMN2 
IFNGTHS REPRESENTING THE BODY AT MACHE, FI UeSKe/7THALFACE ,F7,4/ o™02 
2 OMAK LAK p INI LAKTSHORSDOKLAX,QHIX, LOK, UHTCTISLOXS5RTCOID) | OM02 
B01 FORMAT(TG,69,4, 9615,5) . OMO2 


AN2 FOOMAT (1dt,48HRODY RALDTUS TAO LARGE IN RELATION TO BHOOY LENGTH//)0NO2 
BOS FOQMATOS S/S X,453RMACH CUNRORLDY MERTOEAN een ROT FOUND AFTNMQ? 


YER 109 TRIALSS//) ‘ OMoe2 
0m02 

; OM02 

MACHEFMACH D402 
Ra0TUSzRA 002 
; . omna 

RE&0 NAMELIST BODY O02 
o 9“02 





OWUns TK ECW 





aan 


AAA ANANN aan Hoa 


noaonaann 


‘RAEN 


143 


READ(S,B8ODY) 


WRITE CO,HNDY) 
TF CMXRODY LE 0 OR NXBNDY, GTLLOL NKeODVS5{ 
INITLALIZE OUUBLET STRENGHTS 


OO 103 TateNxBoor 
TC(T)20,9 


CALCULATION OF AERODYNAYTE OATS 


200 
2046 


SET 
SEG 


33 


35 


36 


q 


4ACHSOS4YACHEMALH 

BE TASQIaMAChSOe{,0 
RETASSORTCHETASG) 
ALPHAGASIN(SINALC) 

ALF ACSALOHARS7, 2957795 
NENXYRODYe} 
XANDY(1)#0,0 

XBODY CNXBNDY)SLAQDY 


HAIL aut TF MACH CONE FROM NOSE TIP LIES INSIDE THE ENTIRE LENGTH 


MF THE BONY 


TF (BETAeRALTUS.GE LANDY) GA TO 200 
GM Tn 204 

WRITE (6, 802) 

Stop 

CONTINUE 


UP NF PNTNTS OV BUDDY AXIS BY UIVIDING RODY LENGTH INTO N ETAL 
MENTS : 


DELSLANDY sn 
OO 38 TBA,K% 
KANDY CE) axBI0V( 101) 40EL 


0402 
o¢02 
Deo? 
"02 
OMO2 
Neo? 
O02 
DM02 
DMO2 
O02 
han2 
Onne 


DMO2- 


O02 
Tatu 
ot0e2 
02 
oM02 
D402 
DM02 
DMO2 
nMoea 
9402 
9402 
OMO? 
OMA 
OM02 
02 
D402 
0402 
oMo02a 
40a 
002 
OM02 
0M02 
DM02 
OMo2 
OMe? 
OM02 
OoMo2 
NM02 


CALCULATION OF BONY RADIT AND STREAM wISE sLares AT TRE Xe@eSTATLONSDMO2 


OF THE AXTS POINTS, 


TMEY ARE THE COCROEVATES AND SLOPE AT THE BONY DEFINITION PINTS 


0 3% Tet, NXHODY 
CALL BUDYROXBODYC(T) sRBODY CT) »-RPBOOVET)) 

Nw NETERMISE SLUPES AR/NX AT THE CONTROL PINTS TAaXEN MIDeway 
BETHEEN THE ANDY NEFINITION POINTS 


Of 3H Yat, 

XF CTI a Se CKKUOY (Io exHUOY(T)) 

CALL BODYROAF CTI eKE CT), OROXCT)) 

CONTINUE 

JE CnOUT WE,1) 60 Ta F 

wOTTE (6,703) 

@RITE (6,700) 

WRITE (CH, 7019 CLeXAGOVCLT Ie RBUDYC IT ePPBNOYCT), KE CII SAF CII 
1 DROKCT),TeLeN) 

WRITE CH, TOLY NXKHUNYS XANOYCNXHODY) sRYORY(NKRIDNY) READY CA XBOOYVS 
CONTINUE 


D402 
OM02 
OM02 
OM? 
OM02 
onde 
DM02 
QoM02 
Drr-4 
oMne 
DMO? 
DM02 
DMO? 
oMOa 
OMd2 
DM02 
O4NO2 
O02 
nua? 
UMO02 
NMO2 


199 
110 
111 
112 
{t3 
ia 
its 
114 
117 
114 
$19 
eo 
121 
122 
123 
ted 
125 


197 





198 


AaAaAQa 


aaan aAaanaan 


aaan 


NEXT LONP DETERMINES. THE LOCATIONS OE THE YRIGIUS NF THE LIE ARLY 
VARYING LINE SOURCES/SINKS AND OuUELETS, 
THETR STARTING PUINTS ARE GIVEN BY X(T) 


nA 10 Tei, vxsnny 
10 TXCTISYUCNVCL HE TACRAOOY(T) 


TF CONTROL POIYTS LIE UTSTOE THE “ACH CONE WITH TTS COTGIN AT THE 
SOOY SOSE, REVISE LAYeUT OF RUDY VEFINITION PrINtTs ETC, 


IFCBETACRECL) LT, XEC1YIGO 1 199 


DETERMINE xeSTATION CP THTERSECTIUN MF AUDY NOSE “ACM CONE 
wITH REDDY 


no 37 Ys25™ 
JECCHETAMRECT eXPCEIILT.6,9) GO TN 38 
37 CONTINUE 
3a YAFTYSTI 
THF Realel 
DELTXS(XECIAPT) KE CIBER) #0, 1 
TTrRYs0 
¥TRYSXF (TAFR) 
U0 KRMCNESXTRY/SBETA 
CALL ANDVRCXTRY,R1,3LPE) 
{TRV¥s{TRvel 
ERR EAT COMONE 
JECTTRY,GE,100) GC IM w2 
TFCROR LC T.U.0) GO Tih 39 
XTRYSXTRY*UELTX 
GO Th a0 
U2 whITE (6,803) 
STP 
39 TECABS(CERRILIT,(C.918HT)). GO TO 4 
YTRVSXTRVOPELTY 
NEL TXSO,1ePELTY 
6 TN a0 
ay x TexTey 


REVISE LAYGUT OF EADY DEFINITION POINTS, CONTROL POINTS, AND 
ORIGINS GF LINE SINGULARITIES 


LENOVESLANDYOXY 
DEL SLANLVASK 
XHONDY CAV SxToVEL 
ON 43 TS50N 
G3 XBNOYCT =x eNOY (£1) *0FL 


OO Gu Tsi,VxBONY 
4B CALL KOUDVROKSUDYCT) »RRUDY (CT), RPKURYCT)) 


KFCTISO Sae(tlexdO0v(2)) 

CALL ANDRE CE) ,RE CLI, GROX(1)) 

on 4S sa; ; 

KF CT ISN Se(KMNOV( 1) exagvvele1)) 

CALL ANDYRCXF CE) pRE CT), NROXCT)) 
45 CONTINUE 

TECHOUT YE ,1) GU TO 455 

WRITE (6.793) 

wRITE (6,702) 

eRITE (4,704) XI 

¥PITE(6,700) 





OM02 
tered 


OnM02 
DMV] 
OKO? 
O02 
poe 
Nn6e 
ONO2 
OM0e 
noe 
Orde 
NMO2 
02 
NMn 
DMO? 
O02 
“02 
OM02 
ON02 
OM? 
OMOA 
OM02 
d402 
NMu2 
OMO? 
n“02 
0402 


‘D402 


OKO2 
O402 
M02 
OM02 
n402 
oOMne 
ie e-4 
DNOe 
OM02 
DMOe 
OMO2!] 
D402 
“02 
HMO? 
M02 
QMO? 
AN02 
O40? 
O02 
OM02 


002 


DM02 
M02 
MO! 
DMO? 
D402 
eg? 
DY Ti P-4 
o4ne 
On02 
N4o2 
aomoa 
O02 


126 
1e7 


12a 
129 
$34 
151 

1$2 
1$3 
134 
135 
1546 
137 
153 
$39 
149 
144 

Lfu2 
{03 
144 
tus 
146 
1407 
14% 
1409 
150 
154 

1S2 
153 
{$a 

155 

1546 
157 
{5A 
159 
160. 
1o. 

162 
165 
164 
165 
feb 
14? 

tha 
fo? 
179 
171 

172 
173 
174 
175 
176 
177 
174 
179 
180 
{At 
1862 
143 
144 
185 
1B 
187 


IAM 


anaanao 


¢ 
C 


araano 


ass 


ue 
199 


Cal 


AMITE CHS 7TIL) Che xBOOVCTVSPANDV(T) eBPRNNYCTI, KE CE Ve RECT Y 


1 CkAXCT),T21-%) 


SETTER CS, TOL) SXHUDY, LADD CN THUDYD SAY CN HIDY) pRERODY (Kd JOY) 


CONTTNNE 
re(t}e0,4 
Ch ae Tee, sadn 


TRCLPSUnNNGV CT PehETASPALDY(T)} 


COMTTMIE 


METEQsTHATION OF SOURCE STRENGTINS AT CANTR POTTS MInwdy SRT WEES 


EQNy PERT IT TON POINTS, 


CULAT IAN OF THE FYRST SUGKCE STREEGTH, 


KETEC SRE CL) 
QELFLSPR OL) 
SLOPE Er Sox(1) 

RSGSHE TASH ERE PEL DeREITELD 
KARE TEL DeLMUIDY 

CaLt snmeeck (1) 

ACL sveSLNPE ay 

TOL ISOREKCIISACL) 


CaLCuLatrin OF THE BREST MF SOURCE STRENGTHS, 


205 


20) 
ate 


NO 210 Tseder 
KELTELOsxe CT) 
AFTELNShF CT) 

SLUPE snarnxt ly 
RSQGHETASCMRE TELOARF TEL 
MESKE TEL eLHUOY 

Of 20% Jalel 

CALL SMHPCE CY) 

ACJ) 2VeSLOPE aU 

Byes, 

Tice} 

Oi 201 Jetetat 
SUrRETE TI aAC Jy eSiim 

TCP SCOPAKC Ly asumdsacry) 
TIRKXANOY Sl, U 


CETERM TN AT Ein OF OQURE ET 
HE TwREM SONY NER INET pe 


STRENGTHS AT CONTRO COT4IS “TL eAY 
PUINTS 


CALCUL ATTN CE THE FIWST noUGLET STRFOQGTH, 


“TR CAASCALPRAS LTA OF ALO GR RB LT, (A, 1 eAeyy Gy Th 798 


KEITEL PSK CT) 
PFIELMSRE CTS 

SLOPE SHRIKE) 
RSUSHETASOAMFE TELM eRe Teta 
VPSXF TEL Del Sey 

Cane PURE TOL 

ACV PS5LUIBE sU OV 
TCCL) sah enasacy) 


Oi 219 Ts2e% 

KFTEC MEXR CL) 

QREJRLR see) 

SLOPE SHNONx( 1) 

ROVSNF TAG eH TEL D eR TEL ND 


C CArCULATYON FR THE REST QF THE CHUBLET STRENGTHS, 


M02 
002 
ANd 
ead 
402A 
22 
402 
ava? 
yur 
04028 
hMne 
yeaa 
no? 
492 
ora? 
mad 
N02 
yd? 
N402 
O02 
naar 
M02 
noe 
beo2 
Neo? 
vN02 
b“09 
hana 
Orde 
D402 
M02 
OM0? 
nM0e2 


pga 


ooye 
néMoe 
DMn2 
nae 
O02 
nad2 
QMO? 
O40? 
Moe 
Ma? 
402 
402 
DILEi-4 
0400 


“OMNI! 


v2 
aKne 
Qanp 
Dee 
N402 
N40e 
M02 
M02 
0402 
pun? 
AGA 
Dey2 
AO2 
Nay? 


yaa 
yao 
19” 
{4 
192 
193 
19a 
145 
194 
197 
{94 
194 
2n0 
eul 
eve 
203 
ana 
205 
204 
PO? 
204 
ana 
ein 
art 
21? 
213 
Piya 
éi5 
ele 


ela 
239 
ean 
2el 
P22 
ees 
204% 
P25 
Par 
ae? 
2e4a 
ere 
23) 
es! 
252 
2$$ 
atu 
ess 
234 
23? 
P43A 
e4e 
209 
2u4 
eue 
ens 
Pus 
eu’, 
edo 
Pay 
Pur 
2a9 
254 


199 


200 


ANON nan 


annag 


aaAaAn 


AAAOKAN 


X22XF TELGeLENOY 
00 212 J=1,Tt 
. Cath OoUBLTCJ) 
2t2 AC JISSLOPEallev 
SUNSO, 
I4tste! 
DU 203 Jet,let 
203 SUMSTC(S)«AC J) +Su? 
21S TOCTISCALPHASSUM)s/ACT) 
“) TO CHYAONY)S90,9 
TOR. COMTINUE 


PRINT QUT OF AULY CHARACTeERISTIC3 
APITE Coe TOD) HACHZALFAL 
DN ADO TstphxANDY . 
B90 eQAITELO, BOL) Ty XHIOY(T) pRIODVOL) »RPHOMYCT)TXCEI TCL) eTCCT) 


COMPUTATION UF VELOCITIES IMDUCED UN BIIDY BY HAMY SNURCES. anh 


OWBLETS AT ROLY NORFIMTTIAN PHINTS, THEEN OFGR, MEA'S LFEWAPN STDE 


JECNNUT,EGR.9) RETURN 
WRITE (4¢ 227) MACH, ALFAC 


CUSTH,SINT™ ARE COSINE 45D SINE ,RESPECTIVELY, MF THE STOEA“WISE 


BRODY SLOPE ANGLE, 


DO 225 Tet,Nxanny 
COSTHSSORTCI,/CRPRNDY (IT Yee2et,)) 
SINTHSSORT (CL eCOSTHACISTH) 
XPTELDSXHNOY(T) 

RFTELOSRANDY(T) 

IFCRETELN,GTeM, G69 TO 214 


TF THE FIELD PUINT IS ON THE AXTS, THEN wh SHIFT WIT TM AVOID THE 


SINGULARITY IN THE VELOCITY FUNCTION ON THE Aaxrs, 


IFCT EG .NXBONLYIGO TH 221 
PPTELDSRANCY(T41)/190, 
MF TELOSKFTELOS(XBNDY (Lei exMODYCIII/1I0, 
GO TN Ala 
22) RFTELNSkROOY( 161) /19, 
ME TELOSKF TEL DN @CKHODV CT eX8QuUY (Fell) /19, 
OLG HSUSRETASO#WFEIELO&REIELD 
KOSXFTEL DL AUDY 


VELOCITIES UN,VD AWE CALCULATEU UN THE BONY GPPNSITE THE CXOSS 


FLOe® STREAM VECTHR (LFEWARD SIDE) 


VELUCTITY vTO IS CALCULATED AT 90 NEGREES FROM THE CRMSS FLiJ6 


STREAM DIRECTION 


U9z0, 

vSe0, 

wOe0, 

vOs0, 

vfoso, 

oy 218 Jeiet 
CALL SOURCE CJ) 
USSUS+T (CJ) #4 
vSsvgel(J)ev 
CALL AtuAL TCU) 
yDeuNneuRTC(S) 
VvEVNeVetC (J) 


Nu? 
D402 
)402 
402 
D402 
NMU2 
042 
DMN2 
o402 
ON0e2 
M02 
m2 
D“02 
D402 
Qeaa 


BIHO2 


QMO2 
Onaga 
Qune 
One 
Nae 
D402 
O02 
0nN02 
M02 
402 
OM02 
nung 
DM02 
OM02 
Dm02 
Dhar 
N02 
OMA 
02 
OM02 
nade 
DN02 
M02 
N02 
DIY 
NMO2 
NvOeR 
N02 
OMN?2 
bane 


~ OMO2 


nM02 
Nun 
O92 
HNune 
DNA 
M02 
D102 
0402 
oo? 
0402 
OMA? 
Omone 
O02 
02 
hMO2 
“uA 


251 
252 
255 


264 


255 
256 
257 
258 
259 
260; 
261: 
262: 
26 $: 
264) 
265} 
2hb; 
267: 
264 
2h9 
274 
a71 
272 
a7s: 
274. 
275 
276 
277 
27a 
279 
280 
281 
282 
24% 
264 
Pas 
24o 
287 
248A 
249 
290 
291 
292 
293 
24 
29s 
295 
297 
293 
299 
309 
301 
$02 
303 
304 
$05 
505 
307 
308 
304 
316 
311 
$t2 
315 


anaandna 


ana an AANAANKAHAAANANAANDAAAAAANaAA 


NOT 


218A 


220 
222 


a5 


DA02 

VNS,VND SRE INDITATURS DF LEAKAGE THROUGH THE 8NNY SURFACE yan? 
AT THE BONY DEFINITION PUTATS, DMO? 
Es TRE HOUNDARY CONDITION IS SATISFIED 4T THE CONTROL POTNTS IN O“02 
HETAEEN THE BODY DEFINITION POINTS, O02 
0“02 

VTOsVINevrTate(s) OMo2 
IF (RPHOOYCT).LT.0,)60 TU 220 DMO02 
VNSSVSaCOSTH# (1, ¢US) eSINTHY OMO2 
VND32 (VO eal PHA) aCUSTHelJDeSINTH O42 
69 TO 222 Onna 
VASaVSaCHST44 (1 sUSIASINTH DHO2 
VSN (VOFALPHA) &CUSTHOUSaSINTH : One 
UBS(CTI aus M02 
VASCT) avg : 0-02 
BROCE) UD ; O“o2 
- VBOCT)aVvO ; D402 
‘WVTBD(T)sevTo DéM02 
WRITE (656) Te XBOOV(T), US/VSeVNS,UD, VD, VID, VNN NM02 
RETURN ; , ONO02 
END © DMO? 
SUBROUTINE BOYPRIITAIL , XSTART) \ 0M03 
DMOQ3 

VESSTONIDEMONA, O03 
: OM03 

THIS SUBROUTINE COMPUTES LINER AND BERNOULLI PRESSURES AT POINTS 003 
ON THE SOOY SURFACE, NMOS 
TRE POTETS LIE ON BODV MERTOTANS, THEIR XeCNORNINATES ARE A SUBSETOMO3 
CF THE XeCOOROTNATES NF THE BUDY CUNTROL PNINTS (XFIT), PF (IY) Oé03 
DETERMINED IN SUBROUTINE HDYGEN, DM03 
TRE DEMSTTY GF THE POIATS 1S TAKEN a§ al THE DENSITY oF OMO 8 
TRE BOOY SINGULARITIES, OmMOS 
‘WHERE THE 600Y : OM03 
TS COVERED +ITH INTERFERENCE PANELS, THE POTTS CUINCIOE #ITH OMOS 
TRE PANEL CONTROL POINTS, THE BODY MERIDIANS CIN «HICH THE OM0Os 
POINTS LIF PASS THRUUGH THE CONTROL POINTS GF THE HOODY O03 
INTERFERENCE PANELS, THE NUMBER OF BODY MERTOTANS T§ EQUAL TO DMO% 
“NHOCR. TWAT TS. THE NuMAER OF HODY INTEGFERENCE PANELS ON THE OM0§ 
BLDY CIRCUMPEREMCE, OMQ$ 
, vMO3 

Neos 

: O403 
OIMENSION THETO(100) ver ae = : .. MOS 
; . 3 0M0O3 

. OMO4 
LOGIC4L BNDY,NnSY¥ OM0%S 
: OMO3 
AMOS 

 LOMMAN ZOE /CIRE (250) DELTE C250) FHC 250) ePNLC(250) e SwPPLE (250), NMOS 


1S*POTE (250) eVNNR(250), ¥BAR (250), ZBAR( 250) o XCPT (250), VCPT (250) pZEPTOMO S$ 
20250) MLE C2909. XLK( 2909 XRF C250) a KRALASOISVEC C250 e VRO( 250) 2 LLF C250M0$ 


$02, ZRF C2502 6 ZLHC250) se ZFH C250), SNTCL25) CST (195) oe SHTAC125) oe CST2C1 259403 


GB) eTOCZOOI XFBIPCIVOO) sas ALEASALFR,AWWING,H2,HAV,HETA,HETAR,CONST, OMOS 
SCOSALF -COSHET SCN DX PEM pF MACHS2CIRGSINALF p SINHET, SLOPES TLENCOTIPY, OMS 
STOTLR Ur Ve to UCHK p VOHK , WOHK  AHIP Xo Ve Zee l eo TT eS eMSHRyhSul sMSnils, N49 
TMSWD ,VATP St CAL, CH yhDRAG,NHP,NER,NRPANSP,NICPT, CREME NCH TPN aNLRy 20s 
ANPRESS, hah, ASYM ,RNDY HEL TAS,NOSY™ N4O3 
CCHMAM/ SWEEPS/VSHLEQ(20), VO“TERC29) sVSeLEL (20), VS*TELCQO) 5 ; On03 
1 VSwLEH(20), VSWTEU(20) ) VSWLED(20) ¢ VSwIED(29} .LVSAP,LEFT, FAC ,NC#B,0K03 


§14 
$15 
316 
317 
318 
3iv 
3e0 
321 
322 
323 
32a. 
es 
326. 
327 
328 
329 
$34 
331 
332. 
3435 
334. 


O@morvo Weune 





202 


aan an aon 


AAIN 


2ARPAL (2507541 0TH( 259) 
COMMON /AVELZHOU0150),80V6150) ,80% (1509, XFL DOP0150) ,YFLDP (150), 
1 ZFLNP(156) 
COMMA Y/SPSANG/SINALC,COS4LCeSIRPH Ts CUSPHY 
— CUMHANsERTASTHTITC125),%9LE 
COMMONSTHOSTXCLOL) SUBACLOL),URS(CLOLIZVENCLOL)  VASCLOLI SVIRDC LOL), 
LXANOY C101) oe FBNDY C101), REBODY (ICL) VED C1003, TE100),TOO100) sCEFF 
205), ACONE ,RETASO,8S9,RADTUS,RFEIELD, PNOSE,DUMVEL OS) />LNOSE, wach, 
SMACHSY,OMBE TA, XFIELD, C201 KUDY,NABODY | 
CORMON /wHTRIS XF(190).RF (100) 
“CON SYR TKY/VVREKCESOD, KVRTK(L5U0)» SVRTPL BNVRIXSVRTNAX 
COMMONS TRKOAT/NTIDATS NEWT sNTIPRA*SHT(4) ERPT,NHPT ZN SPOTS THP,ASYMT, 
4 MVERTeSHLET (2094) oS" TET(C 2M .4) pVYTH( 20,4) -THETAL (U0) 
COMMONS TE VEL JUTCHK A VICHAS“TCHK TITS TET MS 
* COMMONSVPTHVL/VVEL (500) 6 *VEL (500) sUCPTSNCPNUT,NYLIN 
COMMON SVORSPC/GAMMACI1 ODS YYRTXCL9) SZVRTX(10),RLC 
CORMANJELLIPS/RASRBSEQATIO 


see 


’ 


REAL Lanny 


DATA RPANTNOSST 29577954 


vamos 39 


TAO FORMATCIM LE, 25X,49MPRESSURE CUEFFICIF NTS AT POINTS Gt Buy MERTOTANOMD3 49S 


13/77) 
701 FORMAT (//U5X,10HHQDY RINGZ,1X,13/) 
702 FORMATCIK,T3,12F19,5) ; . =, 
TOD FORMAT (OX ,1HT, UR P OTHE TAs SX, 2iKS, AK, OHVA HY gp PHZH AK GHIITUT rp OKs 
1 GHVTIIT sexe dH TUT se 4h, 7HCP OLIN, p SX eBHCP,RERN, , SX ,9HKNE SEK, SK, 
2 THO SPINE 3K p THPSPINE 9 /HX eAHOE Gs DPX, SHBERN, sO, GKL Ih /) 
7NKB FORMAT CYHL,10OC LHe) SIX, STHORT OF LEADING ENGR OF FIN ROOTCHORDS) 
TOS FORMAT CLixe TS e SCAOXFIO SI ,eC2xeb12,5)) 
TO FORMAT (s4UX%,d6hRIGIT VORTEX STSENGTH GA4MMAs(AePI ARI CCaVINE)S 


1 FL0,S/ 

2 : BOX eGOHRIGHT VIRTEX YCRULLED CNOROS,)/FLUC ze 
3. FIiO,S/ , ‘ 

4 UOK GEHRIGHT VORTEX ZCRULLED CONRDS.YZPLNC 2 > 
5 FIN ,Ss : 

4 GOKsGHHLEFT VIP TEX STRENGTH GAMMASE2RPTERLACHVIAE) = 4 
7 Flv ss : : 

4 GOX,46HLEFT VORTEX YOROLLED CONRNS;y/RLOC 2, 
9 F19,5/ ; . ie ae 

1 GOK s46HLEPT VURTEX ZCROLLED COORNS,)/ALOC - _ 3 
2.10.57) ; ai 


745 FCIPMAY (75,5 SE12.5) 
Wm FURMAT (19¢5F1269) . 
7TU7 FORMAT (77/10%, 36HTUTAL NUMSER UF PRESSURE POINTS, JCPTS ,14) 


TGR FORMAT (fete LOX, 73HPATHT CLOROLTUATES AND PERTURBATION VELOCITIES COMNS 49 


LALCULATEN KY PROGRAM VPATH//, 
2 Shp 241 eo Se SHXCP oD IN, SHYCP, Ox, 3HZCP, BX, SHVVEL CIC) pO¥,HHMVELCIC)/) 


TE CNOT, RUDY) RETURN 

FACTRist, 3265714297 (F4ACHEP MACH) 
FACTRAZ0, Q2ebHACHeF MACH 

HEGTHRS ,O/9A0TLO 
ALFACSASIN(SE“ ALC) @RANTGO 

TRE TANSATANCRORODY(1)2e9A0TUD 
FIitnFewwLes(2,Ce#RA) 

XAEXaLE/OR 
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D405 4A 
OM” s “ug 
0403 50 
ody Gt 
N4nys $2 
NM03 43 
o40s3 S4 
bMu$ 55 
N4M0$ 56 
0403 57 
DéOs 58 
N03 99 
OM0$ 69 
NMOS of 
O03 62 
ON0$ 63: 
0403) Aa 
N03 64 
OMO% 67 
O4“0$ 6A: 
“0103 4&9 
DHO3 70 
9463 71 
0403 «672 
ovas 73. 
OMO3 74 
fMos 15 
NMOS Th 
“DMO3) «677 
O03 78. 
NMOS 79: 
OMa3 Aa: 
Ooros &1 
n“0o3% B82 
uNoOs a3 
MMos 84 
DYO3 8S 
mMnas Bb 
9403 47 
DMO3 «88 
D“03 «99 
OMO3) 91 
DM03 92 
OM0$ 93 
"05 9a 
D405 9G 
0403 9a 
NM0O3 97 
“fn03 9A 
ov03) 99 
O43 100 
Ovos 104 
Oo“us 192 


NHNANMANMANANANDNADA 


aaaan 


NOTE: UP TO ENTOY BOYARTSFOLLI WING SPPLIES TH CIRCULAR CROSS SECTION 


24 
24 
22 


NUCPTal 


KOOTES ONLY, 

SET UP ARRAY ME CLDWDOIMATES IN *ING CONRDINATE SYSTEM FOR 
THE PRESSURE POINTS AWFAD UF TRE witiGe OR FIMeRIDY JUNCTION, 
CALCULATE VELUCITY COMPivVENTS IN BODY COORDINATE SYSTEM, 
THEN CALCULATE PRESSURE COEFEICIENTS, 


READ Ts PERTURRATION VELUCITIES CALCULATED RY PROGRAM VPATH? 
TF NWVLIX TS NOY Z€ad, 
ONLY SPPLICABLE #NEN TAIL I$ UNDE® CONSIDERATION, 


TF CHAVET, £9,.0 UR ,TTAIL,EG,0) Gu TO 8 

REWIND 7 

*RITE (6.748) 

mu 8 Ter, gcPr 

REAM C7e7UG) [CoXCPe VCP eZCP,VVEL CIC), *VEL CIC) 
wRITE (h,705) 1CexCP,VCP,ZCP,VVEL CIC) ,wVEL (TC) 
CONTINUE 


WRITE( 6,700) 

WRITE (4,703) 

NRINGENBR IP SNC wR 

NATEGOSEeNHING 

TF CQSAT NOSYM) MRI-GNANRIAGOSL 
MHALFEMXROOY/S2 


 PTHETARTHTICL)s2,0 


ANACDYENYRUDY 
NEL XSLAUDYSCANRUIDYel 4) 


JTF CTTATL6G,.1) GT § 


stereo 

ISTARTSI 

Iese 

GU TA 6 

JCP Ta NwAP 
TSTARTSCKSTART/(OELKR2,99)62 
CONTINUE 


wRTTE GATASSET CUNTAINIOG CONTROL POTNTS, 


“Te CLTAIL E29, ANI, NCOOUT,EO, 9) GO TO 7 


OO a4 Uxsgtarvs ISTART,NMALF 
ICPTS(IXSTATS} #24] 
XPTEXKECICPT)OXwLE 

TF -CKPT.GE.0,01 GN TO. 2e 
1 24 JEL pA LNGD 
JEOPTSZICPY 41 

CT EME 

CUNTINUE 

WRITE Chas 757) SEPT 

REwIng & 

WRITE (CU, 745) JCP 
wRITECG, 7465) CSoKCOT CS eVCPTCSS SLCPTC I)» JBL eNHhP) 
JCP TsnwAp 

CONTINUE 


NY Le PAXSTATAT GT ars VsAle 
TCPT al TarSrarelt preet 
YPTSxFCITCOT exwle 


vMOy 
nag 
NwH4§ 
O40s 
Ordos 
O03 
nMo$ 
NMOS 
QMgy 
OMO4$ 
OMOS 
Q4Q38 
OM0$ 
O03 
DHO3 
OMOS 
O03 
On03 
0403 
DMO03 
O03 
DM05$ 
D403 
Owns 
Ons 
OMAS 
OMO3 
oMOy 
May 
D103 
NMng 


404. 


ONO 
D403 
403 
ONO3 
AMOS 
OMO$ 
{yg § 
N¥O3 
NMOS 


OM03 


OMasg 
Mos 
OmM03 
OMO§ 
Neos 
OMO3 
OMV3 
QM)s 
DV¥03 
OKOy 
ONOS 


“DAA 


A403 
DMO} 
NO $ 
§M0 § 
Onas 
O“os 
03 
ving 
OMO5 
DOF 


143 
104 
105 
10% 
19? 
198 
109 
i410 
shi 
12 
115 
{14 
115 
11o 
117 


i1a 


149 
120 
tel 
M2e 
{23 


tQa- 


125 
1246 
127 
124 
1e9 
139 
131 
132 


133 


1$4 
135 
134 
137 
1348 
139 
140 
{a1 
{a2 
143 
toa 
$a5 
146 
14) 
4A 
a9 
154 
151 
152 


S$ 


154 
155 
154 
157 
158 
159 
160 
1ol 
{62 
163 
164 
1465 
1645 


203 


204 


nan 


AnoaAN 


QHoANraaanaan aoana 


IF¢(xeT,6e,0,.0) GO 1 135 
WRITE-(6,791) IxSTaT 

ANP] JONL ARAL, KwKING 
JOBLESS JPL Ae? 
JOMUESIISLE ML 

THE TAC JOM L STHTL (JPL ART ONTRHETA 
THE TOC IOBLE STATIC SP ak) 
TRETEVSTHE FOC JNBLE } #OEG TUR 
THR TNOSTHETN(C SD 41) ROE GTOR 
YPTEVSRFE CICPS eC GS(THETEV) 
YPT seb CI CPTI ACUS(THETON) 
ZPTE VERE (ICEL) OSINCTHETEV) 
ZPTAOSRE CICPT)eSINCTHETIHD) 


NOTEU XFLOO,VELDO,ZELOP ake [tt TRE #INly COORDINATE SYSTE', 


it 


XFLOPC ION VEXPT 
XFLOPCIOBLE )axet 

YFLOP( OL) ZYP TOD 
YFLOPCIOBLE DS YETEV 
ZFLAMCINAL SZPTOD 
ZFLOOCINMALEIAZPTEV 


IF TANSYs TS TRUE, ANN FIRLEPOLST At 270 DEGREES 
TO COGRIINATE ARRAYS, 


IFC(NQNSY"“) GO TH 2S 

mu 20 gates RING 
JISURTNGDN | . 
XELNPCSIOLISREL OPC IJ) 
YFLDOCSJeLISVELOP CI) 
ZFLOMCSJ4+s VEZFLOP (SJ) 
THE TOC IJO1ATHETOC JS) 
COA OVire 
XFLOPCHRTN Gel) axPT 
YELNP CNR TNGSO1 20,0 
ZFLOPCNRIAGSL sehr C(CPT) 
THE TNCNR INGO) 2270.0 
ContINuEe 


COMPUTE CANTRIAUTLON TH VELOCITIES FROM BIDY STGULABITIFS. 
BDU, ANv, BOW, 


CALL VELCAOL (SRENGD OAL FRSHETAR,I) 


NOTES AWEAD OF THE FIN|BIDY JUNCTIONSN INFLUESCK FROM CONSTA YT 


1 


UPVELOCTTY CR SOURCE PAneIS, 


ADD CONTE TRUTINN FROM NOSE VORTICES JF APPI_TCARLE, 
THEIR TNELUENCE IS LIMITED Th THE OTSTANCE Al ONG THE BNDY UP TO 
TE RIOTCHURN LE OF THE CANARDS, 


IF (TTATL,£9.1)9 GO TO 19 

TF (O4¥SCOLFAC) LEG ,0) GU TO 39 
XGAMNSXFECICPT) SRA 

PLOCEE (ICHT) 

CALL BAYVTK CALFAC, TRETONG FINE s MAsk MACH, GAMN, 1 XGAM, YRA Me 
ZG44VexXSALIL) 

TF (GAYN.FR.0,0) GO Th 19 

MVRISNVRTY 

MYRTXs2 

RAMMACS)3GAMN 

GAMMA (A SaGar 


Neos 
OM03 
mMO$§ 
403 
Nos 
OMU% 
0403 
003 
héMOy 
OOS 
OMAZ 
Neos 
Ovas 
003 
OMag 
ngs 
403 
Aens 
veus 
os 
bvM03 
N4Q3 
DMO $ 
03 
040$ 
O4N3 
O03 
onus 
OM03 
OM03 
OMOS 
OMO3 
DH0$§ 
Nag 
OMOs 
OMUs 
O03 
OM0s 
D4)3- 


OLE 


N03 
N19 3 
OM03 
DM03 
040% 
Omg 
DUNG 


veusd 
oMos 
OMOS 
0403 
ONO03 
oO $ 
0405 
N03 
OM05 
Neng 
O03 
0408 
M05 
oad 
DéMas 
Nn-403 
nans 


1o? 
1o4 
lo? 
170 
17! 
172 
1754 
174 
175 
174 
177 
178 
179 
189 
141 
182 
133 
144 
145 
146 
187 
{68 
189 
190° 
194; 
192i 
193: 
{94 
195 
196: 
197° 
19a: 
199 
200 
201 
ane 
203 
ena 
ees 
P06 
207 
204 
2ny 
aia 
eri 
ele 
2.3 


qa 
e1S 
214% 
217 
218 
219 
en 
eas 
222 
223 
224 
A295 
226 
227 
228 
e292 
aga 


19 


ANCA 


Aanaann 


ANAnA 


YVRIX( LI SOZGAMNESINPHTOYG AMM EC OSPR] 

YVR TY (2) seZGAMN®SINPHLeYGARNSCOSPRHI] 

ZVRPIYxX CL }2ZGAMNaCUSPHIT Ss YGAMNASINPHI 

ZVRIX C2) AZGAMNSCUSPHL oe YGCAMNASTNPH! 

WRITE (6,706) GAMMACLY,YVATXCL)-Z2VRTKC1)s 
{ GAMMA (CA), YVATK(2),2VRIX(2) 
NOCPTS{ ; 

C4LL VORTEX C1i,NRINGD) 

NVR TYSNVRT 

CONT PE 


PRESSLALINEAR PRESSURE COEFFICIENT | 
PEESSHERERNOULLI PRESSUPE CIIEFFICIENT 


NO 12 Jay ,nRInGo 

JCPTs Cote 

Iczsscpr 

XBOVSxELOOC I) eXLE 

TE (CNNUT, NEU) : ; 
THREITE (6,702) Se TMEID CI) se XOY,VELUP (JI sZFLOP CII HDUCT),30V0), 
1 bO«(S) 


. UTOTSBNUCS) 


VTIOTSRNVCJIEVVRIXCS) 

WIOTSHNW( J) +WVRIX(Y) 

IF cnilut,ve,0} 
YHRITE CH,702) Se THETO CJ) oe XBOV,VELOP (J) sZFLDPCJIAUTOT eS VINT saThT 
VINTEVINTeVVEL CIC) 

wTOTSeTOTeavEL CIC) 

TF (NNT RO) 
THPTTE (6,702) Je THETOC J)» XBOV,YELDOP CI) ,ZFLOP (ID SUTOT SV INTs ATT 
PRESQ se2, OHUTOT 

S0uUSQAsUTNTRUTOT 

AOVSAEVINTaVIDT 

AOwSyewTOTaanTNy 

NRARSITNTACNSAL CevTOTeSINRe Tea TOT aS INAaLe 

APGEL DwFACTR2A(2, OFURARSKILISQOBNVSOEROWSN) 

PWESSASePACTRI 

TECARG,GE,TITLR) PRESSRSFACTRIW(ARG HHS, 5a1,0) 
POPINEFSPRESSB/FACTRI+t,0 

PLTVOOsPRESSL /FACTRI+t .0 

WRITE (CH, 702) Sp THETOCT) eXHOYeVELOP CS), ZELOE CI) UTIL, VIOT IT, 

PRESSL,ZPRESSU,ORDXCICPT),PUPINE ,PILINOP 


FINTSH WRITING DATASSET WITH RODY PRESSURE POINTS, 
APPLICABLE ONLY WHEN TTAIL SY AND NCPHUIT,NE QO, 


NOTE ® THEY ARE SPECIFIEO IN THE WING CULIRNINATE SYSTEM, 


“YF CTTATL EDEL AND CPUUT NEO) 


t2 
13 


! WRITE (4,745) JCPT,XFLOP(J),VFLOP CJ), ZFLOP (J) 


vVVOTX(9)920,9 
AVATX CJ) 29,0 

CVT Tue 

CONTT NE 

CONTINHE 

“PITE (6,747) JCPT 
QE TUR 


COLCULATE PRESSUPE COEFFICIENTS AFT CF LEADING FOGE OF FItshyDY 


JUNCTION AT CONTROL PAINTS NF BNOY INTERFERENCE PANELS, 
CONTROL BOLT COORDINATES ARE In WEAG SYSTE™, 


OHO3 
ovo'’s 
Qos 
ood 
00 § 
OMo§ 
OMNg 
O05. 
D403 
Om08 
n“0O3 
Nuns 
40 $ 
Dos 
OnQs 
NMYs 
O40 
OméMO$ 
OMO3 
OM03 
OMoy 
O03 
OmMos 
OM0§ 
403 
D403 
no $ 
aM93 
403 
DMO$ 
D40% 


“gs 


on0s 
OM03 
OnMag 
dag 
4Q3 
O43 
vos 
03 
O63 
NMO4 
ovas 
oxns 
0408 
OMO8 
OMO3 
OMO$ 
O43 
NO $ 
OMOS 


DIO 


D693 
9404 
"03 
nM03 
D403 


NYO3 


O03 
D'su§ 
OeAs 
DNO3 
0403 


231 
232 
233 
256 
235 
2346 
237 
23a 
259 
24u 
aay 
2u2 
243 
2ud 
2ay 
ous 


our 


248 
aug 
259 
25t 
252 
253 
esa 
255. 
256 
257 
258 
259 
26% 


“2ok 


262 
263 


‘264 


255 
266 
267 
aba 
269 
270 
A? 
272 
ars 
274 
PTS 
276 
2t7 
ars 
P79 
aun 
ae. 
ehe 
ens 
2a4 
aay 
2B 
2a7 
eAR 
ead 
aon 
291 
292 
Ags 
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c O“0$ 294] 


ENTRY BnvaFT N4n§ 295: 

c O03 @94 
WRITE (6,704) D803 297 

WRITE (6,704) AMOS 298 

WRITE (6,703) N40$ 299 

nf 14 yHNs1,NBIP HMOs 500 
JENETRDeNPANLS DMO 301 
X¥FLOPCTODISXCPT(JHD) OnOS 302 
_-¥FLOPC TBD) BYCPT (JAD) DMOS 503 

14 ZFLOPCTHD)SZCPT(JHKD) N103 304 

c DMOS 305 
C COMPUTE CONTRIBUTION TO VELOCITIES FRNMM BONY SINGULARITIES» WOU, 2403 306 
C av, SOW, DMO} $07 
c IF ROOY HAS ELLIPTICAL CRUSS SECTIUN, ROU,HDV,KNw ARE ALREADY READ OM0$ 308 
C IN #Y ROUTINE CREWRD FROM A DATA SET, (SEE SUMPOUTINGE RNR) May 309 
c U4MU3 310 
IF (RALEQ.RK) CALL VELCAL (NBIPSALFRZHETAR,1) OMO3 311 

Cc OM03 312 
C OMOS 313 
C B00 EFFECTS fF 200 TYPE VORTICES IF APPLICAALE OMOS 314 
c THEY Yaveé BEEN CALCULATED AaLeFAny IN CREAN, DMN} $15 
c (8Y MEANS WF SUBRUUTINE VRTVEL OR VVELS)- DMO3 316 
C AMO$ B17 
09 18 Ket,SHEP see Be 

KK SK ONPANLS : nMO$ 319 

TF (R4O,FQ,84) GU TH 16 OMO3 $20 
HOUCKI AOI KK) onus 32k 
BOV(K)SROVCKK) OMOS 322 

BOW (K )SRNH(KK) OMNS 323 

16 BOVEK EHOW (K)OVVR TX (KK) O4N$ Jeu 

18 BOW(K SHOCK) ewWVRTX (KK) OM03 525 

c oH03 324 
c ADD CONTRIAUTION FRUM SNURCE PANELS ON WINGS OMOS 327 
¢ O03 328 
IFCNTOAT,EN,0) GO TH 85 DMO$ $29 

T]T=1 D4Mn$ 350 

ye TentHp : Ons 8St 

DO $0 wet,MHrP DOs $52 

w Jon NMos 553 

CALL THK VEL C XFL OR (CK), VFLOP (KY, ZEILGP(K)) DMO? $34 

BOUCK SHOCK) OUTCHK NYO$ $35 

PAV IKISANVCKTeVICHK , OMNS $36 

BOW (KERR w(K) owTCriK DMO § 337 

1 S0 CUNTINUE : b4o$ 358 
$8 CANTIMGE v“O§ 339 

c M03 $40 
c CALCULATE CONTRIBUTION FRGM CONSTANT USVELOLITY PANELS ON BODY DMO} 3414 
Cc INTERFERENCE SHELL Ann WINGS OR FING, OmM03 342 
c ADD IN VELUCTTTES NOUNCED BY MOVING VORTICES(IF APPLICARLE), OMU$ Bas 
C 0403 $44 
c Deos $45 
THNSO OMU3 346 

Jie! NMOS 347 

TF sNedp Neo 3 SUA 
NOTNGSNATO SCHR D4Os 3a9 
NTHETAETHIT(1)72,0 N“Oy $59 
FACTRIS1,42HS71U29/(F MACH AEMACH) DMOS 351 
FACTO2Z50, 2aFMACH RE MACH D403 352 

NU 15 ILeteNCHwR D¥04 3535 

ARTTE Co,791) TL : bé™03 $54 

DO 17 ILel, SWING D¥N% 655 


THDSIRDeL DM0$ 354 
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TCHNPanLSe7RO 0M“03 457 


. THTSOSTH IT CIL eO THE Ta Ov03 458 
¥SOYSXFLDPCTHOV4X4LE : : OMN3 359 
- TF CNOuT Ve 0) 0403 360 
LwRITE (6, 702) Jl a THIEN, KADY, VFLOP( IAD}, ZFLDE(TRD)» BOUCTHD). avos sot 
L 8OVCTROD,#O4O TAD) D403 $62 
CALL VELNOR CXFLDPCIED), YPLOPC( ISD), ZFLDPCIAD)) DMO Je} 
UTOTSUCHKEKDUCTED) DMO3 864 
VICTSVCHK+BOVC TRO 4VVEL CIC) DMO$ 365 
*eTONTeEwCnK en Oe CITBO) seve lic) ; DMO3 366 
TF Cynmurt NEU) : DMO3 $67 
PwRITE Ch, 702) ILe TRISH, XBDY, YELOP( THN), ZFLAOP(TRDIZLTAT,VICT, DMO3 366 
1 TOT : OM03 369 
PRESSE see .UeUTIT. NHOZ B70 
HOUSAsSUFOTRUTOT ; OMIs 37H 
ROVGASVINTRVIAT . OMO3 372 
BOwSQswTATeeTOT ‘ a OnH% 373 
UBARSUTOTACOSALCOVTOT a SINHETOHTOT SR SINALF © OM0O3 374 
ARGS MOFACTRAa( ZS DHUMARSHDUSNFEROVSI+HOASE) OéMO3 375 
PRE SSBeeFACTRI ; DM0$ 376 
TF CARS GE, TOTLR) PRESSBRFACTRIR(ARGHaS Sal 1) : DMO3 $77 - 
POPINE SDRESSH/FACTRIet yd e D403 378 
PLIFMPSPRESSL/FACTR141,9 D403 $79 
SLES0,0 y z DMOS BAD 
WRITE (COs PO2VIL A THTSD, KHDY, - 't. WELARCTRD » ZFLOP (IAD) ,UTUTOMO3 sek 
L,VTAT,WwTrOT, PRESSL»PRESSAsSLP,POPINE, PLINOP | rs D4O$ 3a2 
17 CONTINUE ‘ ; DM03 383 
95 CONTINUE . : : Z : ; - -0M03 $Ba: 
RETURN - DMO3 ZRS: 
ENO : & % OMOS 386) 
S'IRROYTINGE ROYRUCHOU,HUV se SD, NwhP eSPANLS,NAGAIN) ; ; nega \ 
C OMOd 2, 
C VERSTON$ DE*ON2 : . ; ; OMO4 3 
c : OmMO4a 4 
C 8OUTINE To REAM ELLIPTICAL CROSS SECTICN BODY INMUCED VELOCITIES OMO8 5 
c AT WING ANDO SUDY INTERFERENCE SHELL, -OMOu 6 
c ‘TREY ARE READ JN FROM TAPER, DMO4G 7 
¢ : : ' DMO4 8 
AN IMENSTON HOUCNWEP) sp BNVCNWBP) »ADeCNwBP) _ bs04 9 
Cc O4MOu 19 
; CUMMONSELLIFPS/RA,RB,ERATIDO . DMO 14 
C , OMOu 12 
700 FORMAT (4//7/,5Xe54RKS0UNY UNDER CONSICEPATION waS ELLIPTICAL CROSS SOMOM 13 
tecrray,/ OM04 14 
2 SX, UUMINTERFERENCE SHELL HAS FULLG*ING PROPERTIESS/ OMVa 15 
SD SK, eSHHORIZONTAL SEMT@eAKTS & 4FIN,SS . OMOG 1b 
4 SX,PSMVERTICAL SE“TeaxtS Zz oFLOZSSI/S/) * : 7 OmMOu 17 
745 FORMATC(IS, 5412.5) OMOG 18 
740 FORMATO Ss/, 1CX, CUMWARNING @ NaCPT,NF INWAP, TAX, OHO Beveo ae f/f, OMOG {9 
* 7TH NWOOTS,I5e,7H XMACHS,FI0,G, 7M ALPHAS sFin,d) - D4Ou 20 
c NMOU At 
C . READ PAST CONTROL: PLUINT COORDINATES, : OMAN 22 
Cc : ; OHO 23 
IF (MAGATN,LE.O) REWIND a : ONOu 24 
TF (NAGAIN,LE,0) RESO (4,745) NOUM ; DMOd 25 
IF (NAGAIN,LE,0) PEAN(GL745) (CI,XPTJ,YPTJ,ZPTS, JEL, NHAP) DMda 2h 
RITE (6,700) RH,RA- OMNU AT 
c : oe OM08 28 
¢ oMOU 29 
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208 


i 


OQ AAAHANMANON. 


oan 


oan 


READ VELOCITY COMPONENTS x omag 

z Haag 

READCU,745) NWCPT, XMACH, KAL PHA OMnd 

- IF CN*CPT NE NWHP) ARITECO;759) - NOCPT, XMACH, YALPHA : OmMod 

READC4, 748) CI, ROUCTI,BCVES), oats) Jet,NKCPT) -—. OMUG 

RETURN OMQ4 

END , Nog 

SUBROUTINE KOYVTX (AL SHAD, THE TANF INE, XA, E MACH, Berne NG, ONY 

{ XGAMN»s YGAMN, ZGAMN, £SA,IL) : NM0S 

0405S 

VERSIONS DEMUN2 DKOS 

“0405 

FOR YMOTES *1TW CI@CULAR CROSS SECTION Nnty¥ OHOS5 

THIS SUBROUTINE COMPUTES STRENGTH AND PNSTTION IN THRE CRUSS FLOW nMOS 

PLANE OF TRE BODY NOSF VORTICES AS & FUNCTION GF AXJAL DISTANCE, 0605 

THE METHOD USED 15 BASED ON EXPFRIMENTAL DATA, DHOS 

REFERENCE IS NASA CReP473,1975, : —— OM0S 

; : oM05 

PIMENSTON KSTCHLSZALCULVSVALCHL Is VASCLL3+GAMT(11) ; ova 

OMOS 

DATA KOT/O UG 40425075 e 0000540404 U 47404 Be 04940410907 DMOS 

DATA GAMT/O, $00. 32,0,34,0, uo, 0,48, a, 62,9, 17, 0,90,1, Oele Chee 1S/ OMOS 

QATA Yals, WS, 403s 6477, U92y 505) 0, 52, .534, .. 5540, 56579, 57540, 58S/0M0S 

OATA YA2/, 030640 6053p 6050 46757 004) yee ThSe,P259,735 64 74/ 0M05 

hata ZAV/V ele LeeOel Sele Se POL Sela Set Aue LIS eeOS real de ee2O/ OM05 

DMOS 

7101 FORMAT C//LXSH aka, SYOZHASVMNETRIC GR UNSTEADY BLIDY VORTEX SEPARADMOS 
ATION POSSTRLE wanna s/) ‘ DMOS | 

 70P FORMAT (HOX,GLHBODY NMSE SEPARATION AT XB/RB = ,F10,5/ OOS 

1 40x, GtHVARTERX STRANGTH GAYMAS(COAPTAELIICAVINE) & 4FL0,5/ Oras 

2 YOX,aSHVORTEX Y/RLOG (UNROLLED COURNS) s .F190,5/ DMOS 

3 GOK, atHVORTEY Z/RLOG CLINROLLED COURDS) = F10,5/) DMOS 

OOS 

TF CIL.GE,1) Go TO 16 . : 0”M05 

NTASLE Bq NMOs 

NEL TAZ0,0 OMOS 

F=1,0 bas : NMOS 

TF (ALPHAO,LT,0,0) Fowt,0- ; : : DOS 

AL PHASE Ral PMalh NMOS 

. . : . DMOS 

XSASXSEPARATION/NB D405 

: . DMOS 

TF (THETAN,LE,30,.9) GN TN 10 . 2 DMAS 

XSASIN,/CALPHA 04,0) + 2,0 0™¢05 

6N 9 15 DMOS 

{0 x84232,0 © suPy(1024, Ae(ALPHa 4,0 /( THE TANGY, Oy) | hy NMOS 

13 JF ¢(xS8A,LT,9,0) X5430,0 * DNOS 

TestIeet © DOS 

TECKSA,GE,XAD ROVVATEN,O : : OM0S 

IF CADYVRT,ES,9,0) GH TO 31 OM0S 

IF (xS4,GE,%4) GO T0 41 : : omMas 

O#0S 

COMPUTE UPPER LIMIT FOR SYMMETRIC VORTEX SEPARATION Di105 

OM05S 

ALMTSCCFENEOLA,0)0#2)/3,57 + 12,0 OM0S 

TF CALPHA 4ST, ALMT) WRITE (0,701) OMOS 

SNALPBSTNCALPHAD/S7 42957795 nF DMOS 

fm CONTINUE DMO 

TE CSOYVRY,E9,0,0) GU TT) FL n-408§ 


“ 


aT) 
st 
32 
33 
34 
35 
36 


_ 


—_ 
Va Do Pn TUS wn 


— oe ee ee we ee oe 
eGQevwszsNocw 


NUNN 
wer > 


Te en es 
OoPwerMNew 


XPARRE(XGAMNGEXSA) #SNALD : ay a 


TF (xOan it G 
P { ot. 59,0) GH TH 51 D¥0S $5 
Cc INTERPOLATE IN DATA TABLES FOR THE xeSTATIAY yGAMA DH0OS S6 
C RAMTaR AMMA? (ZeDT APLC eVINF 4SINCALFAD) oe RHO 58 
VAL ,VA2,741 ARE OTN 0 é 
C ’ of —€ Ofvineo 4Y¥ RLNC, ovos-S9 
CO 20 Je1,nTaa M405 69 
keg aa ue OMUS 61 
IF (XPAROXST(JS)) 22623420 Des Oe 
20 CONTINGE a sa Cee 63 
23 Gann 2GA“MT(K)eSNALD 27 4a 
ZGANN — BZAN (KY OFGS 665 
Yisvat(k) : nHdS bo 
yesyae(K) OMAS 4? 
G9 10 30 C“05 6a 
22 NELTASCXPAR@XST(KOL))/SCXST(K)@XST(Ke})) nae ss 
GOMN — _BGAMTCKeL) + RELTAR(GAMT(K)@GAMT (Ket | ci tec 
GAMNESGAMNE SMALE , : ony Cre! )) OMUS Th 
ZGAPN SZALCK OS) © NMELTAR(CZALIK) 741 (Kal)) Laat ue 
Ra a + DEL TASCVAL(K oval (Kets) nane i 
‘ SVA2(hol) © DEL TAR(YA2(K sere ; Ra 
30 YGAMNoeY4 eye eon OM0S 75 
Th CEMACH 4GT, 1,0) YGAMN 2M05 Th 
Ewcenee ate pMo5 77 
ZGAMNSIGAMNOF : OMNS 79 
GN 1 $82 : yvags 79 
31 GAMuzo oa : ; O05 BO 
32 CONTINUE , Broa fas 
JR -(GAMN NE LO wR ; f “ 2 
cerian ob 29,0) TTE (6,792) XS&—eGAMN, VRAMN,ZGAYN D405 as 
£°D 9405 84 
‘ : DMOS BS 
‘ SUBRNUTINE BUDYR CXR, QPRIME) : sar : 
; N“On PJ 
c VEMS TMD, MUN 
: Stone NEvuNt auoK ; 
C SUPRPUTING FOR TRE CALCULATION OF ANDY RANTT avn SLOPE THE ANOA a 
= aes » SUS F INTEGER ' ; 
C VARTASLE SCONE CUNTROLS THE TYPE AF Mtige neh tat trae : penoth pone ; 
C eENDESO «= PARAAULIC BaUY Unga? 
Cc BCNOFs1 SEARSeHAACKM@ANAYS AODY D¥06 K 
¢ QCQOOE z2 TANGENT OGIVE , OM06 (>) 
c RCODESS FLLIPSOTOAL HUDY ; OMO6G 10 
c WCODE SS CONICAL S'DY DMOS 11 
C: . OM06 12 
COMM ST AOU 4T (E294) -BCNOE BETAS FBSA ,RADTISSPFTEL NZ DUNS aeVeVT,D¥96 13 
LLNGSE 6 11IM209) sLAODY eNXKUDY D“0H 146 
c D406 15 
f REAL LAOSE,LMLICY 0406 16 
INTEGER RCODE 9405 17 
c O06 13 
IF CX, LE LNOSE) GO 1) 20 DN06 49 
c N44 2d 
C CYP INnMercaL SECTION OF BONY OMO% at 
C : OK0H 22 
RARANDTUS W406 23 
RPRIMES), DOH 24 
RE THA MMOH 25 
c D406 26 
. O“Nh 27 


C NOSE Secriny 
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C 
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C 
¢ 


Cc 
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C 


20 


M¥S(L NOSE MLSE HOSE 
RRSRANTHUS 
IFC8COCE.GT.0IGN TO 22 


PARAHILIC NOSE 


22 


as Raa( Ly aXXexe) 
OPRIMEERRAL USE RE RX 2 
RETURN 


Gi) TA(23, 24025520) pBCMDE 


SEARSemAACK ADAMS FGREBIDY 


23 


223 


TECK GT 9,999F 1) GA TH 22% 
KYB eK aXX : 
PHTsxYee 75 . 


Rs WRePHT 
RPRIMESRR/LNOSERL  SRXXRPHISKY 
BETURN 

R20,0 

RPRIMES) £9 

RETURN | 


TANGENT OGIVE NOSE © 


eu 


RLSPR/LNNSE 

FOLS Swl1, oPL eRe SAL 
XYSSORT (ROL ARDEL OXXaXKd 
RERADTUSSLADSE (ROL axy) 
RPRIMFEYX/XY 

RETURN 


ELLIPSOTO FORERIOY 


25 IECKX,G61,9,999F91) GH TN 225 


PHIESURT( 1, eXX aX) 


Re RRePHT Ye 
RPRIMESRR/LNUSE RNA SPHT 
RETURN 


CONE FORERQODY 


26 
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Re Qa C Lexx) 
APRITME ZRA/LNOSE 
RETURN 


END 


(COMPLEX FUNCTION DBLUCZ) 
VERSTONE DEMONI 


THIS FUNCTION SUBROUTINE CALCULATES THE TNTERMEDTATE: TRANSFORM 
VARPTAALE » FOR THE COMFORE AL TRANSFORMATION ne AN ELLIPTICAL 


BNOY WITH WINGS 


. COMMON SEM ES4O2, He eR! 


_ CUMMOANsSCOMS/7R, LI 


CORMAN SCOMS/EnZ 
CUMMONSCOMSS 4254 


Dian. 
O04 
nens 
N06 


7 DAY 
eld) 


CM04 
D499 
NANS 
DMOs 


. . DMM 
“"" M05 
| O05 


DMO 
D404 


TM04 


QéO6 
0406 
Nb 


O44 | 


OMO0A 
BY05 
0~06 
O06 
D405 
D406 
Dé0n 
Dé 0o 


“OM06 


O06 


“D404 


OHd4 
OM Gr 
O00 
0406 
D006 
DM04 
Dé06 
é¢06 
D406 
006 
0406 
OM06 
OMOm® 
0“06 
DéO04 


~ "06 


DMO? 
OMO7 


'. 0M07 


NMo? 
uM07 
OM07 
OMOd7 


OnO7 - 


Onur? 


D407 


neg? 


O07 


aa 
29 
$9 
31 
32 
3 
$4 
35 
3a 
37 
BA 
39 
ay 
a} 
u2 
a3 


4s 
us 
at 
us 
aa 
So 
51 
52 
53 
Sa 
$5 
Sb 
$7 
5a 
$7 
an 
61 
62. 
63 
ou 


66 
o7: 


63 
“69 


La) 
ral 
T2 
73 
74 


MES OONOV EWN 
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oe eee 
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COMPLEX 2eZ@eDaOZeaeuP, ww - N07 
MOT 
Z2alel Ovo? 
ZRBREAL(Z) O“O7 
ZisatmMae(2z) N07 
IF (282,06 ,0,0) ZREZRSARS(Z8) DMOT 
TFECZT NE LO.0) LZISZT/ARS(7Z1) 0407 
ZeaZ2eaeehe oMaT 
ysayt“aG(72) OvU7 
AYe1,9 M07 * 
TF-CY.LT,0,0) Avewl,9 DHOF 
AYZ51,0 ONO7 
TECZTUT,0,0) aYZz0e1,9 D407 
ZAQCSGRTIZ2) eAVeAVT 007 
TECCAASC LID LEDC eANU CREAL(2),LT,0,0)) LZABCMPLX(PREAL (Ze), DMO? 
t. BYMAGCZ2)) OmO7 
O~O750 ,5#(1.0¢2/22) DMOT 
+e30,5a(Z2022) 007 
2st Osvasne DMOQ7 
OsLUsww D407 
PETLIRN DM07 
END OvM07 
SUBROUTINE OCOURLTCS) OMOB 
: DMUR 
VERSIONE NEMCING 0406 
, MOB 
SURROUTINE TO CALCULATE THE VELUCITIES Que Th A LINEAR LINE DOUBLET OF DONOR 
UNTT SLUPE wITH ORIGIN AT Tx(J), DMOA 
~: OMO8 
TVTEGER SCCDE DMO0B 
CORMONSTOQSTECLOLV DUM ECSOS ITS ZZCAOSI,TCLOOV. TOL100) COEFF C1, DMOB 
LRCONE -RETASISHSU,RADTHSSRFTEL DS INISE pig Ve VT ep KA, KC A XD,RE TASXFIELO, ONDA 
2x2, XR NXGIDY OMOA 
CMO0A 
. 100 FORMATCINOSSSHEIELN POINT IS wITHIN TALL “ACH CONE, t AND. V SET TOMOK 
1n.ZERY,) : NMOB 
3 OMO& 
nMos 
0MO8 


“~AaAnKnaAAAAAAA 


on? 


IN THE FOLLOWING, YU AND V SHOULD HAVE FACTOR COSCTHPLPH) FACTOR IN O”MOR 


FRONT, 


OMO4a 


VT SHMUILO WAVE FACTYUR SIN(THPLPH) FACTNR IN FRONT ,OMOB 
ANGLE THPLOw TS MEASUREM CLOCK*ISE FROM THE LEEWARD PYJRECTINNS wHEN DMO 


VIF*ED FOrm THE REAR, DMOA 
THE ANGI AR CEPENDENCE ON ANGLE THPLPN TS ACCOUNTED FAR TN D104 
SURBAGUTINE VELCAL. OOK 
WISKETELDSTX (I) MOB 
HPSAETACPEIELD OMOR 
TECKYY LEAR 160 TO 10 OMgar 
TFC ¥2,LE, aR 26 fn At DMOA 

, WRITE (6,300) nwa 
- GN TN 16 DMOA 
21 KHRENtsHR OMN0A 
KXSSART(KXSKEXHRe!,) "MOR 
USBE TAeYK OMOB 

_ ACOSHBALNGCXHREKZX) MOR 
YY EXHRexy DMOBR 


—— 


NP De PNO VY Ewe 





211. 





212 


Vee, SeRETASO® (ACOSHEXx) 
VTS ,SeHETASGR(ACIISHeXX) 
RETURN 


c 
C FIFLD POINT TS AME aD OF MACH CUNE FROM ONUBLET ARIGIN, 


Cc 


oan 


oO aAAAANgAaANA 


aNAAN 


10 


50 


30, 
veo, 
vTso, 
RETURN 
EAD 


COMPLEX FUNCTION OSOZ¢8) 
VERSTONE DEMONI 


COMMON/COM2/S TGA she 

CumHANnsCnesS/0%NZ 

COMMON/COMG/G2,G1 

COMMAN/SEAMGS#2,K 

COMPLEX %e¥2eNeNZ,61.52 

NSOZS0 5S e(t OMSL GAaH2) a (1V+GI/52) eOHNZ 
RETURN 

ENO 


SUBRNUTINE EDGESC(MS*P, SPAN, RBEOD, ANGLE ,ANGTE Ve S¥LF ep SWTE) 


VERSTON? CESNMS 


THIS RGUTINE CALCULATES EQUALLY SPACEN SIOF ef GES, 
SwEEP ANGLE ARRAYS ARE SET EQUAL TO CONSTANT 
LEADING ENGE AND TRAILING EDGE VALI'ES, 


DIMENSTON YCL),/S6LE CL) SSHTE CI) 


NYPSSPEN/S(MSwPel ) 
O10 $0 Tei e“SaP 
ATsIel 
SWLECIT)SASGLE 
SwTECTIBSANGTE 
YODT)sOve@e db TeRbii0 
CONTINUE 
SeLEC1LI20,0 
S*TE(1)=50,0 


RETURN 
END 


SUBROUTINE FDGVOR 


VERSIONS DEY“ONY 


COMPUTE EFFECTS 47 CONTROL POINTS ON FINS ann BODY INTERRERENCE 
SHELL OF FIN LEADING AND SINE EDGE VoRTICITY, 





DMB 
Q404 
0408 
nena 
HOR 
N4o8 
OMGR 
0”M08 
QR 
Draa 
QrO8 


Negus 
Hang 
ovga 
0409 
néo9 
nog 
H40g9 
D409 
O09 
D4aae 
Nod 


yung 


010 
OM1o 
Dei 
O19 
OM10 
DM10 
0”10 
0110 
OM19 
O10 
DMPO 
niyo 
ota 
Dé10 
omMi1a 
OMLO 
onto 
omyo 
D510 
Oeé10 
no 
OM1O 


DMit 
OM1i1 
OMS 1 
DMat 
neat 
ey) 


BPwNFUVMCWwWIV = 


INE wwe 


: Omi 
LUGICAL HONY oM}] 
OM11 

COMMON /ONE/CTIRCE (250) DEL TP (250) oFNC250),PNLE (A250) eSHPPLE C250), MeIt 


1S=POTE (250), VNR (250), x54R (250) 624420250), x0 PT( 250), YCPT(250),2CP TON 


20250) oXLF C250) o XLHC 250) oe KMRE (250) 6 XHK( 250), 4100250) ,YRO(250),Z2LF (250114 


309, Z2RFC250)672L8(290),7K8 0250) ,S"TC1251, 087 6125),9 T2125) CST2C1 25004 
HV ATOCZOD, XFHIPCION) , As ALFA, ALFReARH ING, R2,92V,AETA,GETAR, CONST, OM11 
SCOSGALE sp CHSBE Te Che OX Ete FMACH,RCIR»SINALFE,SINRET, SLOPES TLAAC,TIOY, OMY 
OTOTLR tha Vy te UCHK pe VCMK YCHK WAIP Ke Ve Ze Te lh ele Je MSHR MIME g MGHIlly My, 
TMSwD,NATP SACRE PNCW,INRAGNHPANPH NRO NSP,NOCPT,NOLINO,NiNIT, PANLSSUML 1 


ANPRESS,N«SP,ASYMsANOY,LELTAS,/USY" OMit 
COMMAN SVB TXVAVVR TR CISO) s4VRIXCISO se NVRTOL SNVRTX, VPTHAY Natt 
COMMAS sZAVE L/JBDUCTSO) ,ANV(159), 5D (3507, xXFL OP (150), YFLOP CISD), Dei 


1 ZFLOP C150) Omit 
COMMONJFITILESXLE CAO) ,CGLOC (80) GAMLE (50), FKILE,NEDGVMLEVR, LEVEL, DALI 


1 MLEVU,MLEVO OME 
ClimMONsEINSESXSE C80) -CGSELC (80) ,GAMSE (BC), FKSE, NSTDGE)NSEV DMI1 
COMMA ZVARSPC/GAMMACLN) » YWRTIX(10) 9 ZVRTX(109, PLOC O11 
COMMANJELLIPS/RASRHSERATIU OMtt 

OMI 
QATA P1/3,141592053589/ OM1 
DMi 


Tle FORMAT CIML,L5oxe4SHFIN LE, AND SJE, EFFECTS AT CONTROL POINTS// Det 


AMaAaAAN 


LAX, THK SK UHM CP TX sUHY CP TX, UHZ OCF, OX» HHGAMMAS» OX THY s VRIKS AUX, OMEE 
2 THZ Ap VRIXA g SK oe OHV AVRTIK SX se OHWVRIXS SON, LEHAPTRORAVINE 2X, eMRH, IK, OME 
3 2HRHS) ae | 


TUT FORMAT C1X,TSe6C1XF10,5)) oMit 
OMY 

OM11 

EFFECT C8 FIN Lobe YORTICITY AT THE FIN CUNTROL POINTS AND TRE DM14 
HODY INTERFERENCE PANEL CONTROL POINTS, OM 

i ‘ : ’ Owi{t 

NOCPTAal Omit 
NVA TSNVATX OMA 

TE (NOUT, 6.0} RITE (65716) egg 
JTIPLERNRPRiCwel : OM 
XTIPLESKRFCJTIOLE) - Dut 
DENCMS2,0ePLeRR : Omi} 
JTIPTEANRP Omi 
XTIOTESXRACITIPTE) OMY 
ON $3 Ks1,keRP O11 
KPLOP (CK axCPT(K) net 
YELOPCKISYCPT CK) OME 
ZFLOP(KYSZCPTCK) DM 14 

IF (CNEDGV,E9,0) GA TO 34 OM 

IF INS! DML 
KSTARTSt OM11 
KULSMLEVR . OMt1 

$5 CONTINUE OMI4 
IF CTR IN,EG,5) GO TO 34 Ovi 

IF (CITFIN,EN,2) KSTARTEMLEVRe} OMit 
TF CTEIN, EQ, 39° KSTARTSMLEVROMLEVL : DMtt 

TR CTEIN,SEG 4) aM Sallie a shale ie a se OMit 
DO 3o [evskSTART,KUL DML 
TF CXCPTCKY UT XLECKSTARTI) GN ro 34 DMI 
JvclFvel wit 
TF CIF V,EQ,1) JVst OM 

IF CKCPT(CK) LE XLECIFY)) GO TO 37 : NMI { 
So CONTINUE 2 “OME 
TF (CXCPT(K),LE,XTIPLE) GO TN 38 Ott 
69 Tn 3a ' fred 
37 Kvsjvet OMS] 


213 


214 


3A 


3e 


Lei 


21 


$9 


MISKLE CIV) 

W2EXLE(KV) 

HIRE Fsxeext 

wTL2(XPexCPT(KRJISOTFEE 
ATAPS(XCPHT (Ko XPIDSOTRE 

TF CTEIN EN, 3 OR,IFIN,EO,4) Gn Th 39 
YVINTswt yp eCGLUc( IV yee 72eCGLuc( Ky) 
ZVHARSXCOET(K) RTAN(C ALE RSA, 9) 
GAMINTswT1eGAYLE (IV enT2eGAMLE (KV) 
YVRTXCLISYVINT SRE 
ZvSTal(iIsZvnaRk ses 

Gammal(t sGA4INT/OENUM 

GO TO 34 

GAMMA(C1)SGAMLE (KUL) /DENGM 
GSMINTSGAMLE (KUL) 

yf CTFIN EG, 3, NTF IN Fa) 69 10 $2 
YVR TK CLISCGLOC CKUL) SRR 
ZVRTIXCLISCCPT (KIM TANCALER/S2,0) JRE 
YVINTSCGLUC (KUL) 

ZVBARSZVRTX( 1) eR 

69 TT) $1 

YVRIX CE) SAXCPT(K) @PAN(KETARID SRB 
2VRTXC1ISECELUCCRUL) 7848 
YVINTEYVRIX(C 1) «Rb 

ZVBARSCGLNC CAUIL) 

RLOCSRH 

NVRTXS4 

TE CHONY,AKD RACED, SK) CALL VORTEX (LK) 
YCPSVYFLOP(K) 

ZCPSZFLNPCK) 

THE TPSATAN2(Z2CP,YCO) 
SINTHSSINCTHETP) 


“COSTHECOS(THETP) 


FCPTSSQRT(YCPavCPhe7CPeZCP) 
RHUCOVSSGRICL OSC CSI NTHSRA) RH 24(CUSTH/RA) a2) ) 
Ib CROPT,LE,RBOUY) GH Td 2u 

69 TN al 

YCPSt, 1 eRHNDYeCOSts 

2CP21 O01 aRANDYeSINTH 

CO" TINUE 


TF CAJNY AND, RA,TIEGRB) CALL VVELSCI.YCE »zcP 


1 GAMINT, RR, RA VVRTX (KIVA NVE TAX (K),VRTMAX) 


TF CNOUTS EO) KRITE (COe717) KeXYFLUP(K),VYFLDO CK) ,ZFLNPCK), 


GAMMACLIS,YVRTX CE p LVRTIXC1) sUUQTX(KIV,WVETX(K) 
GO TO 40 
ZVUNTawT i eCGLOC (SV) ew Teal GLOC (ny) 


YVR BRS OXCPT (Ke TAN(SETAR/S2,9) 


GAKINTSNTIRGAMLE (IV) eH TaeAMLe (KV) 
YVATKC SY ZYVAAR SOK 

ZVPTXOLYSLZVINT/RB 

BaéMMAC1)BGAMINT/SDENIIM 

RLOCSRH : 

NVET Xa} 

TF CHODY, BNO RAGED, AHY CALL VORTEX (K,«) 
YCPSYFLNO(K) 

ZCPZZELNP(K) 

THE TE ZATON2(ZCPLYCP) 

SINTHSSIv( THE Te) 

COS THSCNS (ThE Ie) 
RCPTESORT(YCPeylPe7CPeZCP) 
PHUDYSSORTOL ISOC (CSI NTH SHA) aH 2e(CUSTH/RH) ee 2)) 
TF CRCOPT LE,RAGDY) BN TN 22 

G9 TO 24 


neat 


Omid 
Oecd 
Ott 
OMiS 
OMIA 
Oni 
Oni) 
my 
Naty 
OME 
Nyy 
Nyy 
DMit 
Deyvy 
OM1} 
Oeery 
OM114 
DMAt 
OMEL 
OMsd 
OmM4) 
DMyt 
OMit 
b411 
Ome 
OMLt 
OM14 
OMI 
OMit 
OMi1 
Omp 
Omit 
DM11 
OMit 
Neyt 
OmM11 
OMY 
OMIt 
DM 1A 


PYVINT, ZVBAR SINE Y 


velit 
DM1it 
Omyt 
OMIA 
OM al 
OMit 
Dwi 


Om11 
AMT 
OM 
QmMiy 
Nad 
Ont 
Omid 
Naps 
net 
OME 
Ong 
Deed 
phe Bl 
oid 
Omid 


AAO 


22 
2s 


ad 


ya 


a? 


4qQ 


ob 


ay 


43 


YOPSL .OLe@HODYelOSTH 


ott 


2CPZ1 OL eRbUDYaSINTH Ow it 
CUmTENUE Nutt 
TF (HONY ANO,RA,NE,RAY CALL VVELS(I, CP 2ZCP aYVRARZZVINT, OKIE 
L GAMINT, BR RAGVVRTXCKY g SVATXCK eo VRTMAXS Omit 
TF (NOQUT,NE,O) “WHITE (0,717) K,XPLUP(K),YELOP (CK), ZFLOP CK), Omit 
1 GAMMACLI,YVATE CE) se LVQTKC AP VVREIXCK YS, BVATK (KS Omit 
CUNT T VUE Dai) 
TEYNSTFINGS © Ovid 
IF CLFIN,EG,2) KULE4LEVREMLEVL OMI 
TE (TEIN, FQ,5) KULSYLEVQ MLE VL OPLE Vil OM11 
IF (NEPX.EQ,0) Gu TU ye DMV 
TR CLEIN FG,4) KULEYLEVOSMLEVL MLE VUSML EVD OMUt 
69 TA 3S OMe 
CONTINUE OMUI 
Onis 

PFRECTS OF FIN S,E, VORTICITY Of FIs CONTROL PINTS ano andy OM14 
INTERFEWENCE PANELS, OM 
OM14 

IF (uUSTOGE,£9,0) GO TO 4A DML 
IF Tz : PMY 
k§TaRt=i OM{t 
KULSNSEV Omit 
CONTI YUE OMtt 
1F CIFIN,EQ,5) GO TY uA OM 
TE CIFINEQ,2) KSTARTENSEV4I Onis 
TE CLFSN FG, S) KSTARTSARNSEV EO] OM{1 
TF CYFINFQ,U) KOSTA a SHNSEVEl NMYY 
NO 49 JSESKSTARTS KUL OMtt 
TF CXCOTCKI LT XSECKSTART)) GO Tu 48 Ont1 
JVSFSJSE a} NMY} 
TF (JSSE,F 9,1) JVSESt OnMtt 
TE CXCPTCKY,LE,XSECJUSE)) Gil TO do ONL 
CUMTINGE DM11 
TF (XCPTCK),LE,XTIPTEY GC TU 41 OMit 
Gy TQ 4a OMY 
CONTINUE OMyt 
KVSESJVSE¢] DM1L1 
xisxS€ (JVSE) OMLL 
KASxSt (KVSE) OMLt 
HYP RF SexrPex i Nay 
whLecx2excer (Ky) /JO0IFF nd 
BT2ASECXCPT CK IOAN IEE CM1) 
ITF CIFIMEQ, SeIRATFIN, EN, 4) GS TO 4S Nn) 
YVT"Tswt? eCGOSELC (JVSE o#T2RCGSELC CKVSE)D OM1it 
ZVBARBXCPT(K)wTAN(ALFR/2,0) , petit 
GAMINTSRTEAGAMSE CIVSE) Se T2RGAMSE (KVSE) DM t 
VVRTXCLISYVINT/RB ott 
ZVRTXCLISZVHARSRA OM14 
GAMMACS aGaM INT /OENUM OMtt 
69 To w2 Ahi 
GAMMAC1)3G4"SE (KUL) Z0RPNOM OMyy 
GAMINTSGAMSE (KUL) OMtt 
IF CIFIN EN, SM, IFIN,ED4) GG TH 4s OM14 
YVRTX(1)SCGSELC (KUL) Rb Dey 
ZVRIKCLIAXCPT CM) OTAVCALFR/2,0)/9H D444 
YVINTECHSELC (KUL) peat 
ZVAARSZVATKXCL eRe D4! 
GO tN u2 omit 
VVRTX CE IM COXCPT(K) @TAN(HETAR/2,9) RB Oy 4 
ZVAIX(LSCGSELC (KUL) sQR May 
YVIETSYVR ITXC J) ens Og 
ZTVG@GRSCGSELCCKUL) OMt4 


{33 
13a 
145 
{36 
137 
134 
139 
140 
144 
142 
143 
144 
145 
146; 
147; 
144: 
444 
159 
151 
152 
193 
tSa 
155 
156 
457 
158 
159 
1600 
161 
lod 
163 
144 
16S 
166 
1o? 
168 
149 
179 
171 
172 
173 
174 
175 
L7A 
177 


174 
179 
160 
181 
182 
183 
146 
15 
184 
147 
RA 
169 
199 
194 

192 
195 

194 
195 


215 


216 


cy 


£ 


42 RLOCSRA : 
NVRTXE! 
IF (HORNY, AND, RA,EO, RA) CALL VORTEX (K,K) 


Oe it 
OMit 
Omit 


TE (CSODY, AND, ZANE. WB) CALL VVELSCLAYELPP (KY, ZFLDP(K),YVINT, ZVBAR, OME I 


1 GAMIMT, IH WA, VYVRIX(K) »4VRTX(K)SVRIMAX) 
IF ONGHUT NEO) WRITE Coe7T17) Ke XPLOP(KI,YFLNP(K)ZFLDP OK)» 
1 GAMMACL) pYVRIK( 3) pZVRIXC LIS VVRTIX(K) pw ¥RTIX(K) 
£90 TA 4s 
aS ZVINTSeT1LeCGSELC(CIVSE) +e T2eCGSELC(AYSE) 
YVHARSOXCPT(K)eTAN(HETARS2Z,0) 
GAMINTS4T LaGamMSe (JVSE) ON T2RG AMSE (KVSE) 
YVRTXC(SSYVBARSRE 
ZVRIXCLISZVINT sR 
G4mMa (1) 2GAMINT/DENUM 
RLACERAR serie co 
NVOTXEL ear 
TF CRODY, AND, RAED, PH) CALL VORTEX (K,K) 


Omtt 
Olt 
OMNE 
O41 
Onis 
Ont 
nuit 
OM it 
OMYS 
Omit 
OMit 
OMEL 
Ons 


IF CROMY, AND, RE NE.RBY CALL VVELSC1L,YELOP(K),ZFLOP(K) ,YVBARSZVINT, O14 


1 GAMENT,RA,RA,VVRTX (KR) p aVRTIXCK) pVRTAAX) 
TF CHOUT,NME,O) URITE (65717) Ke ¥FLOP(K),YFLOPCK),ZFLDP(K), 
1 GAMMACL YZ YVRIXOS )pZVATHCLIZVVRTL(K) pWYRTX(K) 
Oa CONTINUE 
TFIMNSIEL Nel 
TE (ITFIS, 60,2) KULseenSEv 
TF CIEIN.EQ,3) KULSSeNSEV 
IF (C@X.EQ,0) GO TU 4B 
T® CIFIN,&G,4) KULS4enSEV 
Gti Tn a? 
GR CONTIAHE 
33 CONTIAGE 
NVRTXSNVRT 
RETURN 
ENG) 


SUBROUTINE LAYNUT (SLPYLE sSLPATE,%o™SwP,CRP,NS,CTO,FHI,THET) 
VERSTANE DESUN? 

THIS QUBRNUTINE LAYS NUT AND ORTERMINES GFOAETRICAL PRIPERTIES 
OF THE CONSTANT UeVELNCITY PANELS UN THE wI''G OR FIN SURFACES 


AND ON THE BODY UR FUSELAGE WHESE MUTUAL WING@HODY INTERFERENCE 
ACCURS, 


DIMENSTON CSIOE(2Z0),NPD(3),YC1) 
LOGICAL LEFT, ASYM, BODY, DELTA, TRUSYM,NNSYM 


COMMON SUNE ZCIRE C250) NEL TEC 250), FNC 250), PALCO( 250) eo SWPPLE(A50), 
LSwWPPTE (250), VNNR (2505, KRAR( 250), 28AN (256), x0P T0250), YCRT( 250) .2CP 


Ontt 
OM 
OME. 
Die @ | 
Jit 
Neii 
Omi 
Ont 
Mgt 
Ott 
omit 
“OMat 
On] 
Ott 
OM11 


bete 
D412 
OM1L2 
Ovri2 
OMi2 
OM12 
ONS2 
Nate 
OMi2 


OMt2 


OM12 
Det2 
oMiL2 
OMe 
TOM12 


26250) XL FE C250), XLH( 259) XRF (250) XRAC AHN), VILCC250), YRC (250) e2ZLF(eso412 
30),ZRF(2509,2L8 (250) -¢7R9(250) /SNT(125),CST(125) -SNT2(125) CST2(1250M412 


Go TPC INO, XFRIPCLOO) sae AL FAs ALFReARHING, RA,FAV,HETA, HE TAM,CONST, 
SCUS4ALFE sCOSRET Cs OXsEMrFMACH,UCIR«SINALE,SI'BET,SLUPE se TLHNC > TIPY, 
OTTER re Ve MrUCHK p VCMK WOHK SHIP, XOCUMV ZIV, TE sp Tin dV ep MSE OMSML 
TMSWU,MSER RETR NCRK ANE Kp ADRAG NAP ONPRANRPSNSP,NOCPT,NOLIMNP SNOUT, 
BNPANL S,NORESO,NWHP, ASYM, BIDY,DEL fa, NGSYM 

COMMA /SHEEPS/SVSHLER( 20) es VSWTERC 20) -VSHLEL (C20), VSHTEL (20) >» 

1 VSHLEUC20),VSwTEUC20)» VSWLED (20) pVS4TED( 29), LVSHPLLEET,FE AC ANC ad 
2eAROUL (25M eH IOTH( 2505 


OM12 
OM12 
OomMt2 
DML? 
DMIe2 
O42 
Ovla 
D“12 


196 
197 
198 
193 
209 
201 

202 
20% 
eva 
205 
206 
207 
208 
209 
210 
ait 

22 
eis 
214 
215 
alo 
217 
2195 
219 
220 
22a 
222 
225 
224 
225 
226 
2e7 
225 


oe ee oe oe oe ee He ee 
OBwMNTFS CoN ODO CBRN SF NV CwWwe 


we NU 
NEw o> 


aan aoa 


AIMAANANAN 


AAAAAAANNA 


aaa 


COMMQIMZVRTXV/DUMMY (301) VR TX,VATMAX 

COMMON sHBIR/THIIC125),X4LE 

COMMAN /ELLIPS/S RA,RA,ERATIM 

COMMON /INTROTS PHIOIN, THETIT, YRUD,ZB00,PHIFR,PAIFU 


DATA PT/3,12159926535897/ 

FUNCTION DEFINING THE RADIUS OF AN ELLIFSE Ih TERMS OF THT 
FRAD(SN,CS)81,0/8GRT((CS/KB) weet (SN/RA)aR2) 

PYROIT(C YP) 2 CUSINESYPeYAD 

FZROT( YP) & SINE #YPeZniiN 


TRUSYMSBETAR EI. 0,0,AND, NUT MELTA 
CToaR s PT/14U, 


NS(zILet) 18 “ING QUADRANT FNOTCATOR 


SSai, RIGHT FINS 22, LEFT FINS 33, IIPPER FINA su, LOWER FIN 
M§25, ANDY 
REFER TN MAIN PROGRAM CRFWBD FOR CORRESPONDENCE BETWEEN FINS ON 
CRUCTEMRH AND INTERDIGITATED CONFIGURATIONS, 


IF (NS,EQ,5) GO Te 200 

LEFT 3 N8,E9,2 ,UR, NS,E9,4 
ANCwo"Cw 

SLPOIFs SLPHLE@SLOwTE 
CSIOEC(t)S CHP 

HPO CL) SNRP 


POOP SNHP 


MPD CZ ANEP 


VE@TTCAL “1G THEATED IN THE SAME wAY AS HORIZONTAL WING 
Vo as 2 COOROINATES APE INTERCHANGED FOR VERTICAL WING 


LEFTY STANDS FOR EITKER LEFT HORIZONTAL “ING OR FOR LU4ER 
VERTICAL WING 


LOCATE ¢Y,Z) MF wING BUOY JUNCTION 


IF (THET,EO,90,0) GO TU 164 
6U 1 101 

CSs0,9 

SNe1,0. 

GN TY {04 

CONTINUE 

CS 2 CNSCTHET ROTH) 
8% 3 SINC THETS&ON TOR) 
CONTINUE 

RAN = FPAN(SN,CS3) 
TF (LEFT) RAUZeRAD 
YON s RADRCS 

ZRCD & RADRSN 


REFINE DIHEDRAL ANGLES GF FINS 


TE (P41,62,90,0) GO TN 102 
GO TN 403 


192 COSINESO,O 


STINE 31,0 


“40 TN 165 
103 COATIAVE 


OMe 
DM12 
D¥i2 
OMle2 
NMi2 
OML2 
M12 
DM12 
bvy12 
Dale 
412 
DMi2 
AuMy2 
Qs12 
OMe 
DM12 
OM1L2 
Date 
OM1e2 
Omnle 
Nui2 
OM1t2 
OM12 
Ou1L2 
OM12 
OmM12 
OM12 
C12 
DM1e2 
O12 
Omi2 
DM12 
Om12 
OM12 
O12 
OmMie2 
Dei12 
Nej2 
O12 
DM12 
OML2 
AM1i2 
Nate 
Nate 
OmMi2 
OMie2 
OM12 
D412 
OM12 
Nut 
M12 
Nhe 
oMile2 
lan wd 
Mga 
OM1e2 
M12 
d4L2 
Asie 
OM12 
OMte2 
M12 
ome 


218 


Anaaaaa anaaa -aANnaANA 


oan Han 


an 


aan 


aANAA 


62 


ay 


30 


31 


ag 


ao 


a3 


COSINE = COSCPAIeD TURD 
SINE = SINCPH]T aDT RY 
CONTINUE 


INDEX JT RUNS SPAnwTSE, & CHORDaISE ALONG WING 
CALCULATE LENGTHS OF NUTBOAROD PANEL STOE,CSI08 
J 1S THE PANEL NUMBER 


wLEXz0,0 
O90 140 Tae2e”SuPp 
I“ale} 


LYSWP:; VARIABLE *ING SEER. OPTION : 
LvSwPs0, GENERATE Y INTERNALL YIN. CREKAN 
LvSwPat, READ IN yeS, 


IF (LVS*P,60,0)9 GO TQ 40 .:.” 
GO TO (82,415 3500 5130S 


CASE FOR VAAEI) WINGs STREAKWISE PLANE PASSING THROUGH RNNTCHIRD 


LE INTERSECTS WING TE 
TE SWEEPS MAY Var¥ 48 A CONSEQUENCE 


PANELS ON RIGHT HAND WING 
SLPYLFe TANCVSHWLEC (CI 20 TOR) 
SLPwTes TANCVSWTER(T) #0 TOR) 
GU TO 44 

PANELS ON LEFT HAND wyNG 
SLPWLES TANCOVSHLEL(CTIeN TNR) -: 
SLPKTES TANC@VSWIEL CI] Y#DTOR) 
60 Ti @4 

PANELS CON UPPER WING 
SLPHYLESTAN(VS*LEUCTI en TUR) 
SLPWTESTAN(VS*TFUCT) eNTOR) 
GO TH ae 

PSNELS ON LOWER 4ING 
SLPWLESTAN(@VSWLED(T) aD TOR) 
SLEATESTAN(evVSwTEO( I) eD0TOR) 


SLENTES SLPXLESSLPWTE 
CSIOECIIS CSIDFCIMISCV(L)@VCIM) eSLPOTE 


TF CLEFT) CSIDE CII SCSTDE (TiN #CVCED=VCT) ) #SLPOTE 


GQ Ta as 


NONVARVING LoE, AND 1,6. SEEPS CONSTANT eos ar 


CSICE CT) SCRPSCY(CI)©Y(1))*SLPbIF 
IF CLEFT) CSIOECI)& CRPOCY(T)aV(1)) #SLOnTF 
CONTINUE 


S*PPLE AND SaPPTE ARE PANEL L,b, AAD TLE, SWEEPS 


CALCULATE PANEL CORNER POINT COURCI‘ATES 


IF (1,69,2) GU TO 45 
ILES(Te$)entaet 


Date 
O12 
DM12 


‘Dst2 


Omt2 
Omiya 
D412 
OomMie 
D412 
OMi2 
OMe 
OMt2 


OMe 


N12 
O12 
OM12 
D412 
O412 
OM{?2 
OM12 
Mie? 
OM12 
DAL? 
OM12 
DMT? 
Nia 
M12 
N12 


Omi? 


Ota 
Dt? 
pst2 
Nye 
OMt2 
Nw12 
oMt2 
DMt2 
OMt2 
onta 
omt2 
nug2 
DM42 
OMLe 
DMt2 
nat? 
Dt2 
DM12 
DM12 
pat2 
omMi2 
M1? 
M12 
OmMt2 
DMY2 
oMi2 
oMi2 
oM12 
IM}? 
oMt2 
pM12 


.OM12 


OM12 
DM12 


LL? 
114 
"19 
129 
iet 
122 
125 
1246 
125 
126 
127 
128 
129 
159 
13t 
132 
154 
144 
135 
154 
137 
148 
1$9 
140 
141 
142 
143 
{au 
145 
14Uh 
1a? 
1G 
149 
159 
S41 


_anan 


aAaAaAaA 


aang 


Aan 


a5 


IF (NS,GCT,t) JLESILE VPN (NSe1) 
WLE KSYRECILE) 

TF CLEFT) “LEXSXLFCJLE) 
CGMTIMUE 


60 130 Kat,NCw 

JECT e2 anCrok 

TF (uS G7,1) Jasenon(ngel) 

AKMEKe| 

AKgK 

S¥ PPLE (JISSLPwLEmAKMaSLPIIF /SANCW 

S#POTE CJISSLP| Eeak #SLPDIF SANC« 

IF CARSCS*PPLE(J)I,6E,0,901) SHPPLE(J129,0 
TF (CAASCSHPPTE(J)) LEGO, 099) (SePPTECSIS0,9 
Te (LEFT) GU TH 50 


PANEL LAY QUT FOR RIGHT RIGHT HAND WING CORNER POINYS, 


THEY APPLY TO RIGHT AND UPPER FINS, 


XLECJIBAKMACSIENE CIM) ANC WOHLEX . 
XLACJISKLE CJ) *CSIDECI 4) JANCw 

MPF CT SAKMACSINECIISANCHOCY CE OV CIM) HSLOMLE OAWLEX 
XPBCJISKRFCJIOCSINEC LY SANCH ; 

VLCC Savers) 

VROCJISVCT) 

GO TM 4§1 


PaNEL LAY QUT FOR LEFT HAND wING CORNER PINTS, 


“TREY APPLY TO LEFT ANN LUWE® FINS, 


So 


CONTINUE 
MLE CI) SAKMACSINE CTYSANCH OC VOT OVCIM) PeSUPULEOWLEX 
XRF CT SAKMMCSINE (CIM) SANC 4OWLEX * 


. XRBCJVe KRECJVOCSIDEC TM) SANCw 


St 


XLACSIa MLE CJIACSIOE CTI ZANC 
YLCCSSVOT) 
VRC (JIavCIM) 


CONTINUE 


ZLF(5)20,9 
ZhFCJ929,9 
ZLB(J)30,0 
ZRBC I120,0 


“FIND YeCONROINATE OF CONTROL POINT AND PANEL CENTROID 


ALTSXRE(C J exXRF (J) 
A2BXLA(JI@XLFE (CY) 
HEV(T)oVCIety 


" VBARB(2,08A1¢42) aH/(3,08(41642)) 


YCPT(SISVCIM)+YHAR  - 
IF CLEFT) YHARG@(2,08A2441 )WHs(3,08(A1682)) 
Te CLEFT) WERT a2 YCIM)eYHAR 


Ca B10) LeCNORDLNATE OF CONTROL POINT ANN PANEL CENTROTD 
XPCLESKLECJI¢VHAR wSwPPLE (J) ~ 


XPOTESXLBOC JS) *VARARRSAPPTE (J) 
re’ (LEFT) XPCLESRRE (SVS YHAR®SHPPLE CI) 


“JF CLEFT) £PCTERKRAC J ¢VBARASHPPTE (J) 


PLCC JVSKPCTE@XPCLE 
ACPTCJPSXPCLESEAC aPNI C(I) 
XHAPCJVSCXPCTE+XPCLE) 72,9 


y4y2 
oMte 
O¥12 


OMe. 
ne12 


OM12 
DM12 
DeiA 
DM1e2 
OMt2 
oM12 


OM1L2 


OMy2 
vUMt2 
DeLee 
O12 
N12 
OmM12 
OM12 
OMi2 
om 12 
OmM12 
DM12 
QML 
M42 
oM12 
oMt2 
nMt2 
OMt2 
OM12 
OM12 
Ovi? 


“DMA 


OML2 
OM1e2 
ome 
OML2 


DMt2° 


DM12 
DM12 
DAI2 
oMie 
D412 
DM12 
OMe 
OMte 


OM1e. 


N41 
Put? 
Mie 
OM1L2 
omMi2 
aMi2 
OML2 
oMi2 
OMte2 
oM12 
OM12 


_DeL2 


onte 
OM12 
neq? 
O*12 


1$2 
193 
154 
155 
156 
1$7 
1$8 
189 
160 
let 
162 
163 
fo 
165 
166 
lo? 
1638 
{49 
179 
1714 
172 
173 
174 
175 
176 
{77 
178 
179 
184 
181 
182 
183 
164 
185 
186 
{a7 
188 
189: 
190! 
191 
192 
193 
1948 
195 
196 
197 
198 
199 
ano 
2oi 
20? 
205 
atu 
205 
206 
207. 
208 
209 
ein 
Plt 
212 
ess 
eis 


219 


220 


AANA 


130 
140 


aaa 


200 


AMON 


NAAANE 


¢ 
Cc 
Cc 
Cc 
€ 


7CPT( J) 80,0 

ZHARCJ)E0,9 

IF CLNYOT LEFT) GO TO 120 

TF (SwWPPLE (CJ) £EN,U,9) SAPPLECJISTLANE 
TF CS4PPTECI) FG 0,0) SHPPTECJYSTLANC 
S«+PPLE(JISeSwPPLE(J) 
S*PPTE CJ S-SHPPTECI) 

CONTINUE 


AREA aND wIOTH OF PANEL IN LOCAL COORDINATES 


SBRPME CSS oSECVRECSIOVEC (SDI ACKLACIIORLE CU 4KAR CS eHRE (I) 
wIDTHCJBYAC(IIEYLE (I) 


TRANSFEI}QOM FROM EIt CONRNINATES TO THE WING REFERENCE COOROINATE 
SYSTEM Kwe Vp Zw, 


ZLFCS) 2 FZPOTCYLC (J) eV¥(t)) 
ZLH(J) & 2LFCI) 
YLE(J) & FYROTCYLE (J) oV¥(19) 
ZPEF CI) = FZIITC YRC (J) wV¥(1)) 
ZFRCI) 3 ZRECS) 
YVROCIY = FYROTC VRE CJD e C42) 


ZRARCS) s&s FZROTCYCETC yy eV(1)) 
ZCPY(J) a ZBAPCS) 

VCPT( J) |& FYROTCYCOT(S)o¥C1)) 
CONTINUE 

CONTINUE ' 

SU Be ee DELeS Er? 

RETURN 


onte2 
OMt2 
OM{2 
OMt2 
D412 
Out? 
Q“1i2 
AMie2 
M12 
Date 
DM12 
OK Le 


oMte- 


D412 
oMi2 
Nata 
N42 
nM12 
Nia 
Dute 
OMe 
Da12 
QM12 
Nye 
O12 
OMA 
N12 
AML? 
One 
DML 
OM12 
DM12 


aereccessrene LAY NUY SOUY INTE OPERENCE PANFLS RRRRARRARHE RE RREREEDMNED 


pxstaeyneKe 


NOTE: MSwP ITS ACTUALLY MANCAR 


4SwP a Ga(hSeP 7/4) 

S90 8 MSwP/Y 

43180 a 2aM$99 

S270 &. 3e390 

MMSwD 3 @mSwP 

IF (YRUSV4) “MGwPSMMSWP/2 
OTHTOG 2 9U,/FLUAT(C 4890) 
NTRTS 2 NTHTDG 

OTT s&s OTMTOG 


ITITFALT PST Ta gee I VORX OF INTEWFERENCE PANFL IMMEDIATELY 
PRECEDING FIN LOCATINNS ON HONY CIRCUMFERENCE, 


INITIALIZE 

ivi 20 

tw2e9 

173 30 

was 9 

Te (CTHETYIYT,GE,90, ,IR, THETIT,LE.9,) GI TO 249 


INTERDIGITATRG TASL EXISTS 


PECALCULATE RANTUS AT a4f VAgZ2ZR CUURLINATES MF FIN Lacartas 


OMA 
baie 


NAL2 
UM12 
OmMi2 
N42 
OML2 
M12 
O42 
OM12 
Om12 
DM1t2 
PLB W-4 
OMe 
Oat2 
O12 
Oat2 
Dey? 
DM1i2 
Ott2 
M12 
OM12 
On12 
9M12 
Nege 
oM1i2 
OMt2 
OM1? 
D442 
OMte 


ais 
2le 
e17 
eta 
a1gy 
2eu 
224 

222 
223 
224 
225 
226 
2e7 
228 
229 
259 
est 
232 
235 
esa 
235 
234 
237: 
258 
239 
240 
aut 
242 
243 
aug 
aus 
246 
4a? 
244 
pas 


259 
2st 
252 
253 
e5a 
255 
294 
247 
292 
295 
2o6 
26) 
2be 
26! 
ent 
2bt 
2be 
26° 
261 
26! 
eT 
a7 

27, 
27. 

27. 

eT 

eT 

er 


Aaa 


AMan 


anon 


40 


NAINMAA AN 


201 


aan 


220, 


~ 
we 
2 


AAANAMNANAAAANAGHA 


ON THE SOOY CIRCUMFERENCE FOR THE RIGHT UPPER FIN ONLY, 


CSSCOS(THETITenTuR) 
SNSSIN(THETIT en TOR) 
RADEFRAD(S%,/CS) 
YENOSRADRCS 
ZHORSRADASN 


CHECK RATIO OF 4PPROXTMATE ARC LENGTN ON EITRER SIDE OF THETIT, 


ABCUSSARTCYANDS #26 ZUNDeRA) Re2) 
ARCSSSQ@T( (QBeVHUD) ea zeZbUDaa2) 
NARCECARCHPARCSISELUAT(MS9N) 


~ 


MPETERMINE MUMBEM OF PANELS BETHKEEN YeaXxt§. Anh FIN LOCATION GON THE 


RUDY CIPCUMFERENCE, | ss 
TTis TERKCCARCS/0ARC) 60,5) 

TTi= MAXOCTT4L.1) 

ITLSMINACTT 1 e4S9Cet) 


ne 
OMl2 
hk 
DM12 
O12 
nMi2 
DMi12 
OM12 
OMte 
OMt2 
OM12 
QML? 
vide 
OM12 
AM {2 
OMt2 
Nw t2 
DmMi2 
OM12 
OMy2 
NMt2 
OM12 


DTHTS TS INCREMENT BETHEEN PAWELS ON RIGHT AND LEFT “(O#THETIT) mite 
DTHTU TS INCREMENT BETWEEN PANELS ON TOP. AND BOTTOM (THETETH9OIONI2 


NTHTS a THETIT/ITI 
ATHTU = (VO,@TRETITIS(MSIOPITI) 
TT2 3 “SiB08"IT 


17S = MSVAO*IT! 


1TH DB "SwPelTy 
CUNTINUE 


WERE K HAS ONE VALUE-FOR ESCH RING OF AIPHS 

FOR EACH CIRCUMFERENTIAL RING, THE X FRONT POSITION, XFBIP(L) 
TS 4 CONSTANT eo - 
MFBIP(L) IS THE KeSTATTIIN QF THE BONY RING IN WING COURDINATES 


KxXag 

NO 230 KeL,VBIPeM4Sap 
XSakyenx 

KPEKOMMSaPel 


L [8 BOOY PANEL INDEX 
0G 220 Lak,KP 


KFHTOCL I aXxg 
CONTINUE 


AUER OL 


COMYTIVE - 


CALCULATE THE TRIG FUNCTIONS OF THE ANGLES AGSNCIATED wITH EACH 


HIP, THIS LOQP EXECUTES ONCE FOR LACH HIFFERENT HIP ARTENTATIUN, 


SETS THE FUNCTIONS FUR ALL BIP*S THAT ANE AT THE SAME ANGLE, 


ANG JS THE ANGLE UF ROTATION OF THE HIP wITH RESPECT TO THE WING 


CNUSNTINATE SYSTEM, 


poste 
OMt2 
OMi2 
OMi2 
OM12 
DM12 
OM{2 
nt2 
NMt2 
DM12 
OMte 
OMe 
DLS Be4 
nvi2 
n4t2 
omMi2 
oM12 
OML? 
ote 
OM12 
OM12 
nMi2 
OM12 
OM? 
D412 
DM12 
D412 
NhMt2 
OM12 
Mie 
OM12 
OmMi2 


THY £3 THE PULAR ANGLE OF THE BIP “ITH RESPECT TO THE WING YeAxTS,0M12 


-HfIDY PANEL MUMAERIAG BEGINS AT Z20, YERH Ahn PRNCEEDS 
COUNTERCLOCKWISE IN ANGLE » THEN INCREMENTED IN x, 


t* 3s 0 


DMI2 
DMi2 
DmM1Le 
Qat2 
oMi2 
Nie 


274 
e79 
28n 
281 
282 
283 
asa 
Aas 
286 
2a7. 
26a: 
aad 
290° 
2ot 
292 
293 
294 
agy 
294° 
297 
aga 
299 
300 
301 
302 
303 
$94 
30S 
306 
307 
308 
309 
3519 
311 
$12 
315 
sia 
315 
316 
317 
316 
319 
329 
321 
$e2 
$23 
324 
3e5 
326 
327 
328 
329 
39 
$31 
332 
535 
334 
3355 
336 
3357 
3a 
349 
gan 


221 


222 


aan 


aan NaN 


aan 


AAANAA 


Aan 


SAQA 


THTIDG = 9,0 
YIMi s RH 
ZIM! s 0,0 


1 IS TRE RUNNING INDEY ON ThE BODY CIRCUMFEPESCE, 
DO 26 Leis Sup 
GENFRATE ASGLE TO HE JNCPEMENTED BETHEEN TATL SEGMENTS 


OTHT & NTHTS 
TEST FOR UPPER OR [OMER BODY PANEL WIDTH 


TE CLeGTSITY gaND. I,Lk,IT2) OTHTSTHTU 
TE CTAGTLITS gAND, IAG ,I1Ta) OTHTSOTHTYU 
THTTOG = THTIDG4UTHT 

IF (IT,EO,*S90) TrTITOGs9u, 

IF CT,£2,¢S180) THTING=180, 

JF (Cy,EN, 48270) THTIDG=270, 

TF CLF Q,'SYP) THTIOGS560, 


COMPUTE GEOMETRY OF ELLIPTIC BHODY AND PRESCRIHED ANGLE, 
THTSTHTISOGeO TOR 


CUMPLITE PROPERTIES YF ELLIPTIC 4UDY 
R6D TS THE LOCAL BODY PADTUS AS A FUNCTINN OF THT 


THT TS THE MERTDIAN ANGLE FOR THE PANFL MEASURED COUNTERCLUCK«JSE 


FROM THE VCaThG} 4XTS 


SNZSINCTHT) 
CSsCOa( tnt) 

YTSPRAC(S*+CS)9CS 
ZIsbRAN( St CS)aSN 


CHECK FOR ROOY SYMMETRY 


IF CI4GT.8S9O0 ZAND, TLLE.MNS270 AND. TRUSYM) GH TO 250 


ye a Ieet 

OYaYIevyit 

NZell~o7ZIm 
WAIPESQAT (OZ RD ZONVaUY) 
Sth2s DZ/aBYP 
C3ezenyswHyP 

APR APRWAl Paty 


J 19 THE PANEL INDEX OF RIPS 
K TS THE PANEL INOEX WF *ING AND BNDY PArELS 


00 240 JelK,NRIP,MMSwp 
kKBJONPANLS 
THTT (J) STRTIOG 
SNT( J 598 

CST(J)sC8 

SNTQC 1) sgre 
CST2( Js eECS2 


YCPT(K)=0,5"(YISYIM) 
ZCPT (KEN SeCZISLIM1) 


SwPPLE(K)20,0 
S»PPTE (K)20,0 


OM12 
date 
Mf 2 
O42 
Dele 
Out2 
O12 
On12 
oM12 
Oi? 
O12 
NM1e2 
NME2 
DMI? 
Omi? 
D412 
O¥}2 
op? 


“pv t2 


OM12 
A412 
OMie2 
DM12 
OmMte 
N12 
Omi? 
Ihe 
OMt2 
Ne Le 
OM12 
Omi2 
DM}? 
Omie 
DM12 
Dui? 
DM12 
DMi2 
OMte 
OML2 
Mp2 
O12 
Ons? 
DM1? 
DM12 
DMY2 
OM12 
O12 
OM12 
O12 
vlad id 
OMte2 
A412 
OMi2 
OM12 
OM12 
O12 
O12 
NE. 
OMt? 
OM12 
Oma? 
OM12 
TLE wd 


3ai 
342 
ga § 
3aa 
345 
$04 
34a7 
SGA 
349 
354 
$51 
$52 
353 
$54 
355 
$56 
357 
358 
$59 
360 


349 
370 
37% 
372 
373 
374 
378 
376 
377 
378 
579 
389 
SAL 
$82 
383 
$84 
3aS 
356 
$87 
3HA 
3a9 
390 
591 

492 
393 
394 
$95 
396 
597 
$948 
399 
800 
any 

402 
ans 


ARMAOAN 


aag 


e240 
250 


260 


na a MIAANMAAAN 


ARPA CK PMARE AP 


NOTE ws [N THE eet Paw SYSTEM, YLOEA0 AND VRCaAKTP 


NEF INE HYP PANEL CORNER POTRTS IN WING COORDINATE SYSTEM 


YLC CK SYTI 
VROCKVSYIM I 
ZLFCKYSZ7 
ZLACKISZI 
ZRECKISZIMI 
ZRBC IEZIMY 

MLE (KM VSYFRIP CI) 
XRF (KYSXLE(K) 
XLACKIBXLE (CK) DX 
WRA (CW SKLH CK) 


CUNTROL POINT X COORDINATE IN wENG SYSTEM 


YCPTCKIEKFULP CS) FAC an 
CONTINUE 

VImpevt 

ZIM137Z1 

COnTYNUE 

OF TURN 

EAD ! 


SURROUTINE LINERS (Ne dy 


VERSTONS NEYUNI 


TRIPS SUBROUTINE TAKES IN SINGLE COLUMN MATRIX ACNEND, CONVERTS IT 


TO QQUARE MATRIX A(Nany AND 


1P($00) REMEMAERS SHAY WAS DANE TNO TRIANGILATE MATRIX A 


TY 18 USED IN SULVE Tr OO SAME THING TO A 
NOIMENSTOM ACNON) 


LOGICAL 4SY¥#,ROOV,MELTA,NOSYM 


CUMMONJONE JDUME (60009, TPE 309 .CUM2C1O0,DUMS(S4)V,ASYM,BUDY DELTA, 
ytgves : 


IP(NYS! 

0 © Ketan 

TF (K,E9,")GO TO 5 
KPLSKe! . 

MaK 

TP CK yam 

IF (M NE KIIOCNBSIP(NY 
THA(M,K) 
BEM,KISACK EK) 
A(a,x)aT 
TF(T.EN,0,)GU YO §$ 
OO 2 TeKPi,n- 

ACT, KYBOACT ZK) ST 
DO a. JskKPL,N 
tSAtM, J) 
bUM,JIBACK, J) 
a(K,J)sf , 
TFCT,EN,0,)GU Th a 
Oo % [anor, 


BACT SISACT JSIOACT K) er 


o»*L2 
o412 
OMte 
nMt2 
D412 
Nate 
OM12 
nee 
DALe 
“ya 
NAL2 
DML? 
QMiL2 
PMj2 
O12 
OMte 
Duie 
DY 12 
OM12 
OmM12 
AM12 
OM12 
O12 
n412 
OM 12 
OM12 


OML$ 
OMLS 
OMy3 
DM4$ 
Omys 
0M13 
NM13 
OmM13 
DML 


pv13 


OMt3 
Dts 
DM13 
oMts 
O13 
Onis 


OM1is 


Nv13 
DMi3 
OM13 
DMI3 
boas 
N13 
DM1L3 
OMts 
Oé13 
Outs 
OMtSs 
Om13 
OmMiSs 
OM13 
Nays 
NM13 
OMis 
N13 
ois 


aos 
40s 
4046 
aor 
a0B 
s69 
410 
ait 
4i2 
Ors 
aia 
ALS 
us 
u{? 
41a 
a1qa 
aed 
ue} 
ua? 
425 
aeu 
ues 
42h 
“27 
W2AR 
429 


et et we ot ee we et ee 
QOWDWNF A ECWN KR COD BNFMNEUWUN 


wh te 9% PG 
7 oat a) Vio) 


—~- Oo C'rENGe 


Mt rt ad ad 
eA ww 


223 


224 


aAaNnNnDanaANNAAAA 


a 


wa CONTTNUE : ons 


S IF CA(K,KY,F9,0 wIP(NI 20 ; omy 3 
& CONTINUE UME 8 
RETURN : OMt3 
END Omi Ss 
SUBROUTINE LEADS hy omL4a 
: ~ Onia 
VERSTONEINEMUNG, OMia 
5 é oMig 

THIS SUBRNUTINE CALCULATES FORCES AND MIIMENTS ACTING ON ThE DML4 
-wINGS O# FINS AND THE IMTERFERENCE SHELL, Quqa 
THEY ARE FIRST CALCULATED IN THE *ING REFERENCE COORDINATE SYSTEM imia 
“AND THEN TRANSFORMED TO wINC@AXTS SYSTEM, data 
Oia 

I“@PLANE FURCES FX AND FY1 OR FZ1 ARE ALSO CAMPUTED, MEPE SFX Oma 
TS PNSLTTIVE FORWAS) PARALLEL TO HODY CENTERLINE, a DMEA 
TNePL ANE FORCE FY2 [TS CALCULATED IN SUBROUTINE SPALL, Oma 
. : ' : Nua 
NIMENSTON HFY(100)¢6F2(100) Omid 
DIMENSTON: XB0350),YC(150),Z8(0190%) OMia 
DmMia 

LOGICAL ASYNstNSYM,BONY,UFL TA,ANYs ANVMO : nwqa 
; ; . OM{a4 
COMMON SIME SCIPC C250) pDELTPC250) » FNC 250) ,PNLO (250) pSHPPLE (250), NMia 


LSEPPTE (259) VNR (259), xX2AR( 250) 4 258R8( 250), XCPTC259), YCPT(250),2CP TOMI 4 
20250) 6 XLF (250). XL (250), XRF (250) XRBRC250),YLC(0 250) ,YRE( 259) 2LE (250414 
3015 2RF (250). 2LH0250) pZRAC250) ,SNTC L253 ,CST (125) oSNT2(125) eCST2(1250M44 
AVeIPCLOOV KFBIPCIVUDI sas ALFA ALFRANWINGR2,FAV,HETA,HETAR CONST, Auta 
SCOS4LE ,COSBE Ts CNsOK,EM,FMACH, RCYQ,STNALF,SINBET, SLOPE STLANC,TIOY, Dwia 
HTOVLR Ue Ve stICKK a VCHK, HCHK PWAIP Xo Ve Ze TVe LF gp Tle IV a MSMRe ASAL pMIBUPDINIG 
7T¥SWN,NHIP, UCRX, NCH, NORAG, NMP, NPE, VRP, NSP, NOCPT,NOLINP, NOT. PANLS sD] 4 


’ ANPRESS,NwRP,ASY™,ROUY,DELTA,NOUSY Ota 
CUMMON/THREE SANGER» ANGLE ¢ ANGLUS ANGLO ,MELR,DELL A DELULDELD,SNEF »REFLOMIG 
COMMONS SWEEPS/VS*LER (26) sVSHTERC20I ,VSWLEL C201, VS4TEL (20), , viia 
1 = VSWLEUC20) 6 VSYTEUC20) pe VSHLED (20 ao VSWTED( 29), LVSYP,LEFT,FOCyNCwsd Dots 
2, ARPNL (250) ,8FOTHO250) Deia 
COMMON /BVEL/B0U(150) ,890V(150), HOW(150),XFL99(150), YFLDEC150), Nuta 
‘1 ZFLOP C150) DMt4 
COMMIIN/SSPCPRSJDLTPE (150) . Oia 
COHMOMSVRTXVSVVETXCLSO) ,wVRTX (ISU) pNVATPL ,NVATX VA TMAX OmMpG 
COMMONSMATH/TMTTCL259,xX*LE - Orpa 
CIMMOMN SFRCDIS/YNUROS(1S0) > FXCISO)/FY(150), FZ(150) OL TEGCISO) ,aNYMODMN TY 
COMMON SVPTHYL /VVEL (500),4VEL (S00), JICPT,NCPQUT,NVLIN Ovpa 
COMMONS SPSANG/SINALC pCOSALCsSINPHI,CNSPHI OMta 
COMMON /ELLIPS/ RA,RH, ERATION i OMLa 
“COMMON JINTROT/PHIDTH, THETIT,YACD, ZUND PHIFR, OHIFU | NMi4a 
COMMON SOAR M/X4,Z4ACLIA,CYOA,CMAA,CLIMA,CLLOS OMYY 

: O14 
DATA PI/$,141592653590/ DeLL 
Oia 

Neia 


701 FORMAT(VHY 25x, 2HWING PANEL PROPERTIES + //,2% 5 IHS 6 SK, THYCPT CS), SX,0ME4 
1 1LOHANORD THRU, 4K SHPANEL » SX, SMMIOCHORD , OX, AHNEL TAS, SX,SMFNC JI ,/ OMIG 
2 1BX, AMCENTROID 6%, UHSOAN, UX, LOMS*EEP, DEG, 1X p2HCP4//) Oya 
7TH2 FORMATOCS///25X,21HaENG PANEL PRIPERTIES) S/2X, tHe SNe THZCPUC IIe Ske DIG 
L LORCHORD THRU, UX, SHPANEL, SXpBHNIDCHOAD, OX, AHDELTAS,S¥eSHFNCJI,/ OMLG 


2 LEX, AHCENTIUIT OX GHSP aN, 4X, LOMSHEEP DEG, TX ,AHCPO//) nega 
TOS FORMAT (BX pL Se IKoFIV Te 2K FID Se Ake F IN Tp SKF IN DHX oF 10, de NMi4 
12x,F10,5,2x,F10,5) Ota 
T06 FORMAT CixsTSe2CL Ce F105) eS C2ReF19.5)) Ova 


37 
3a 
39 
ao. 
a}. 


OEMS ME he 


TOT FORMATO LH1.,20%, SIHBODV INFLUENCE PANEL PROPFRIIES/S/2N Ite OK, 
1 THYCET(S), 4x, SOLE GIMeok gate Ue ke BOTUELACI este one Ved leaky 


2 SHEZOC ITs SKeOREN( J), SK, AHOEL TACO. 5X, THGAMMASVS) 
T1060 FNQMAT (C1iKksT3, 901%, Ft0,5)) 
TA FORMAT O4é1, 253, 35HVELNCITIES AT PONEL CENTYENIN POINTS/S/ 


1 LOK TH LUM, PHKBAR( TSK, THYBARC ST) ,SK,THZAARC ST) IMs IHU, TIX, 


2 YHVe 11K, LHW BX, UHVYNORSS) 
T17 FORMAT CLML  GOX,LIOMLUANING INFARMATIONS/ 
X LYK, (ade MACH NUMAENY & 4F12,5/ 
{ 7¥,tRWANGLE GF ATTACK & gf, S,1K, THNEGREESS 
27X,1BHSIDE SLIP ANGLE 2 sFUS3e1%, THDEGREESS 
3 N3K,t aKING AREA & ZFIO,S/ 
4 BX,LTHRERERENCE AQEA &-4F10,S/ 
S OX,19NREFERENCE LENGTH = ,F10,5/ 
0 3X ,22ME KPLISED wf[NG SPAN AS oFIU,5S/ 
7 3X,22nMNMENT CENTERS x» S oh10,5/ 
a 20K,5mZ™ 3 ,FI0,S//7/) 
TLR FORMATE s20¥,S4TCTALsTAXsLUHFIN 1 OR ReBX,LOKFIN 2 OR Ly 7Xe 
LOHPIN 3 RR U,BX,P0MFIN 4 OR D,SWeolSWINTERE, SHELLS 
OXGTGHNEFL, ANGLE DEG, 2 p12K,0C6X,F12,5)/ : , 
VOX, 7HC THR @ ,E12,5,4(OX,F12,5)/ 
3. 20KeSHOZ © FEELS eS eSCOXLELA,5)/ 
G4 2OX,8HCY & 5,612,505 (Ox,F12,5)/ 
5 20X,5HC™ 3 ELA Se DC HX,EI2,5)/ 


2nu=— 


> AOK,OHELN & FEL26505(OX,E12,5)/ 

T L9X,OHELEL & 9612-505 06%,E32,5)/ 

# A/,20K, 33rKFOLLQYING ARE IN WINDMAXTS SYSTEM// 
B A20OXeSHCL & 2E12e5e5(64,812,5)/ ; 

# J6X,9nCYWIAD w pele, 65 (6X, E12, 5y/ 

9 19X%,.64C0I & E12, 565(OKE12,59/ 

1 T4XeLAHCNISCLa*#e = 812,57 

® VOX ,9HCMwIND 9 VE12,525( OX E12,5)/ 

& ISKX,LHHCLNAIND & E12, S,SCOKMeEL2.5S/S/S/) 


"725 FORMAT (//1X%,26MU/VINE TYPE LOAUING PRESSURES/) 


“729 FORMATOIHO, Mp thIe SLR, OHXLB CT) pAX re OMYLE (SIs bX, ONZLBCIIs LUN, LRU, 


AMNMNAAANMNAAANAANAG 


Tab FURMAT (//1X— S24KERSOQUILET TYPE LUADING PRESSIIRES/) 


727 FORMATC1HL,27X, GORVELNICITIES aT PANEL NUTHOARN AFT CORNERS/) 
TAR FORMAT OURO, IX SIH e LIX GHERBC J) 6 OX, OMYEC (J) cOX se OHZRBCS) 10K, LH, 


1 LIK og LhV sg LI Ke tHe BX, UNVNORSS/) 


1. L1XeIMV,L1Xe tHWe BX, GHVNNIRSS) 


730 FORMAT (///3 0K, OLHNUTES LE. TF LEAD PANFL Im FIRST CHOROWISE ROW. 


17S SUPERSONICS) 


“TR ANNOY WAS ELLIPTICAL CROSS SECTIUN, NSE ANU,KDOV,HNW CALe 
CULATED at FIN CONTROL PINTS, 


TF (NDRAG,EQ.0) GU TO 513 
NOCPT RY 

yIst 

TF SNwap 

TECNOUT FQe1) wRITE (5,716) 
1) SOR Ist ,VPANLS 
XFLOP CQ axbaR( ys) 
VYELDOP (CJ SYCPT (J) 


“CALCULATE WING AND BONY PANEL INDUCED VELOCITIES AT THE CENTROTO 
POINTS AND PUTHUARD AFY CORNER OF FIN CONSTANT teVELNCITY PANELS 
ALSO Ap VELOCITIES DIE TO FIXED VORTICES ASO/O4 “OVING VORTICES, 


ONS 
DOM14 
OM14 
OMe 
Nu1S 
DmM1a 
Naja 
Omid 
Omnia 
OM1a 
DM1a 
Osta 
Oia 
OM14 
OM1G 
OMia 
OM14 


. OM 
/ OM du 


oMia 
DM{ta 
OM14 
OME 
DNJd 


Ba 0) 


Dei 
DMya 
OmM1i4 
OMiG 


/ OMT 


Orta 
Omid 
Onda 
OMi4 
Ovid 


“DMYG 


NMig 
DM14 


DOMia 


oye 
avy 


“pMta 


CMiG 
OMia 
‘MAG 
Nea 
OM1L4 


‘DMiaG 
“puta 


novia 
ais 
Ovid 


MiG 


Davia 
omt4 
nid 
QMid 
O41 
B4ta 
DM14 
oid 
omit 
Nata 


Sa 


Sa 
59 
40 
61 
62 


64 
65 
bo 
67 
6A 
69 
79 
71 

72 
74. 
Tu 
73 


77 
7A 
79 


ay 
441 
B2 
83 


85 
4b 
ar 
88 
ag 
90 
91 
92. 
93 
94 
95 
46 
7 
9a 
99 
106 
109 
102 
105 
{94 
105 
106 
107 
108 
pos 


“410 


Vii 
112 
115 
114 
115 
114 
117 


‘£18 


225 


226 


SO 


$09 
512 


519 


AaANAnAA 


607 


_ ott 


“one 


AQAAM 


9909 
925 


90A 


ZFLOPCIIsZCPT(3) 

NSTART=1 : : 

IF (BUIDY, AND, R84,E9,RB) CALL VELCAL (SPANLS ALF RZHETAR,NSTARI) 
09 S10 Szt,XPANLs : 

CALL VELNAR(KHAR(JSI+YCPT CJ), 28aR(5)) 

NC TeuChK : 

VC TsVvCHK a 

wOCTswCnK 

IFC JI.GT NMP) Gh Tu 500 

VNOR CJ) SCHR eh (JIOMVEL CUD eave TX) 

GU TO Sie 

VANR CJ) SVCHKOBADV( J) OVVEL (JD eVVRTK (J) 

CONTINUE 

Te CNOUT,NE,1) GO TN §10 : . 

ARTTE (H,79S) JoKBARC SVE YCPT( IS) L9AQC ID UCT VET sHCT,VAOR (I) 
CONTINUE . 


HERE Neteeeee MIGHT HOR, FIN 
No2eeeveetEFT HOR, FIN 
Nadeeee UPPER. VERT, FIN 
“aUseee gL OvER VERT, FIN 


IF ONOUT,E9,3) wRITE (€h,727) 
XE 23) : 

JSTARTA\ 

JTIPSNRP NCO! 

TIPCHNSXGCACMRP)OKREC STIPE) 

JEND2NRP 

NENG] : t ; 
IF CNLIUT, EDe LANDS CN FQ.1,0R,",EG031) GO TO 911 
IF CNOUT,EN,H) BRITE (00729) . 

GP T9 932 

#RIVTE (6,728) 

NG HOB JaSSTAVTZJEND 

TEM, 60,2, CPR.NF%.4) GU TO 908 

XFLOP( J) axRACJ) 

VELOP (J BYROC I). 

ZFLOP (J sLPHCJ) 

KRE JV SURAJ) 

YC(J)svRC(J) 

ZAC IISZRACI) 


SOR WINGS WITH SIDE ENGES! 
TF LeE, SWEEP OF CHURNKISE ROK NEAREST THE TIP 1S SUBSANIC, 
MUVE TRE QUTHOSRD CORNER OUT ONE PASEL PEOTH 


1F CTIPCHDALT,L00,0#TLRAC) GO TH 608 

IF ON EO LAND J eGE eT PIP. AND, SWPPLECITIOEY,GTHETA) 80 TA 909 
TE (NEO, 3, 4ND IGE pUTIPZ ANU, SHPPLECJTIP) GT,AETA) CO TO 925 
GY TO 680A : 
VCC SISYREC I) OL OFM IDTH CJ) 

60 TO 606 

ZBCIVBZABCJIO1L OaewfOTH(S) 

GO TO 608 

XFLOP CI ISXLACS) 

YFLDPCJISYLCCJ) 

ZFLOP CII sZUHCS) 

MBC SJ) SKLBOCI) 

YCCJISYLE CI) 

ZHCJ)SZL BCS) 

TF (CTIPCHOLT,190,0"T1 RNC) GA TN 608 


DéM1G 
Qt 
Heya 
OH4ta 
veLa 
N14 
QM 
aia 
Diia 
OMG 
OmMia 
OMtu 
Oa 
HAta 
Naja 
OMia 
Ota 
DMia 
omya 
O14 
Nw Le 
Omid 
OMia 
Naya 
OmM{a 
ovtd 
Omid 
OMta 
Duta 
OML4 
Mia 
Omi a 
OM{a 


omy: 


oMLa 
nia 
Oeia 
Haig 


pMya. 


ota 
Omid 
ota 
NM1o 
OM14 
OM1a 
OmM14 
Oma 
DMLa 
OM14 
Neia 
oie 
oM1i4 
Onta 
omia 
AM{a 
NMid 
OMta 
Mig 
ota 
NMY4 
neia 


TE ONE O, 2 SND eGR ITIP SAND, SHS (SHPPLECITIONYGTIABETA) 69 TO 926 outa 
IF CREM AND J GE ITIP g ANN, AES(SMPPLECSTIPIV GT GBETS) GN 10 926 Nia 


119 
120 
121 
tee 
1e$ 
1e4 
125 
12o 
12? 
124 
129 
139 
131 
182 
133 
134 
135 
156 
147 
138 
139 
140 
143 
142 
143 
14d 
145 
146 
{ur 
14A 
149 
150 
151 
152 
193 
154 
155 
1S6 
157 
15A- 
159 
164 
161 
162 
163$ 
1648 
165 
166 
to7 
1648 
109 
179 
171 
172 
174 
174 
175 
176 
177 
174 
179 
qy4o 
81 


aaa 


9248 


926 
SOA 


915 
913 


610 


elt 


612 


513 


aaaan 


Gil Tu. 408 

YCC J SviCCJIel Orn pota (Js) 

Gri TO wna 
TACIVSZANC IOV, VRE TOTH CID - - 
CONTINUE 

TR CANNY ANU GMASEQFA) CALL VELCALCJEUO, ALF 2, 2F TAP, ISTAWT) 
1 @19 JeJSTAQT, JEN) . 

COLL VELNOROXAC II, VCO) 6 ZACS)) 

UCTSUCHEK 

vCTtTevCeK 

af Tent wn met TAR eS baa 

TF CO,GT, VHP) GH! TN 915 : 

VANQNS (SSAC HK ORI ( I) OMVEL (CFV eeVR TX OI) 
Ga TN O13 
VNDROSEIISEVCHKESOVESIOVVEL CSD OVVRTX OS) 
TeCugur,s@.t) Go TT 610 7° ; 
MITE (6,705) JerxbCS, VCC SIA ZECI) SUCTVCT, *CT,VNOROS(J) 
COST TL wk 

TE (NAT SOSY4) GO Tu 513 

TF CN QNE,L) G1) TO ott 

USTARTSNQpel 

JENDS IMP 

JTLOs*inPenl rel 

TIPCHGSXLR (NMP OXLECJTIOC) 

BI-TN B07 

TE (NNEC 2 ,ORANHPLE I HRANLS) GU TH) 612 

UISTARTs Pol 

Jreiva ge 

ITT Osu seanf se] 


 TIPCHDSKRA( NSP YORE CITIPY . 


GO Th) 60? ae lie 
Te (MSF. $) GO TU S13 

JSTAQTS NSP 41 

TREN SUP ANLS 

JTTP ss Pb sit SanCwel 
TLFCHOSXLYC PALS DOLE C ITIP) 

GH TO &a7 

COTTE 


INITLACTZE VAREANLES 


CNREY, 

CyryHs0, 

C2BtPs0,0 
CYRTEsO,0 
CMEHTP SOA 
CLART Psu 0 
CLLM TP“ 
CLFIPSO,4 
COTATPE SN, 
CYwATPS0,0 
CMRTRP «20,0 
CLASP ws0,9 


ETFO HEGE FIG NIN, TNESR PRESSURE LOANT G3 
ENTRY SPECLY 
OTARAE T/T AU .O 


arb Aen. 
CLtAsn lo 


Ogg 
wpe 
nia 
oiypa 
Avia 
eta 
DVpa 
Oeia 
ta 
AM14 
“14 
OMp_a 
Ors 
Orta 
oMia 
deta 
Oia 
Aida 


Nata 
Divya’ 


OM EG 
QMgS 
ONta 
Mga 
Nuya 
Onga 
Onda 
fyaga 
Osta 
OMia 
NmMy4a 
OM4Aa 
bAL4 


‘pera 


QmMta 
N14 
Nia 
NMta 
Nata 
OMi4 
Neva 
mqa 
OMia 
D414. 
OMid 


OM1 4° 


OM dd 
OMda 
Ora 
OMY4 
Ovis 
OMd4 
DM14 
DMta 
Old 
nuda 
OM1a 
OMig 
ONia 
OM qa 
Mia 
nyata 
ieaga 


{ar 
145 
1h 
yRS 
aye) 
fa? 
1h4 
THO 
199 
19t 
$92 
193 
194 
195 
19% 
197 
198 
199 


200 
ant 
202 
205 
ang 
205 
204 
eur 
ana 
Png 
aiu 
Pit 
212 
213 
ela 
215 
216 
217 
21a 
219 
22a 
221 
222 
2c 
224 
225 
2e4 
2e7 
2eA 
229 
239 
est 
252 
253 
234 
23% 
234 
2s7 
234 
2539 
ean 
aut 
eu? 
243 
oud 


227 


228 


AaAnao 


Crvoaso,a ‘ be fe, 
Chpasa,o ; : os 
CLAN4e80,0 
CLLOASO,0 
CZF INUZO,O 


- CZEINDSOSO 


-aaaAA Ana: 


902 


CYFrvuso,0 
CYFINO 80,0 
CMF INUSO,O 
CMF INOSO,9 
CLNFU3s0,0 
CLNFOSN,0 
CLLEFUZ0,.0 
CLLFDS0,0 
cr'zo, 


- CYO#0, 


CT#RUZ0, 
CTHRNSO, 
cTHRe20,9 
CTHOL 30,0 
cLes0,4 
CLL80,0 
CLuso0,0 
CLOs0,0 
COIRBO,9 
COTL 29,9 
cOruso, 
COTHa0, 
COCLS80,9 
CYhGe0,0 
CY¥nt a0. 0 
CYwys0,0 
CY¥en20,0 
C*F Rina, 
C™FL>s0, 
C™FUwan, 
CF Nws0, 
CUNFRw20,0 
CLHFL#e9,0 
CUNFU420,9 
CLNFO4S0,9 
CNannve!et,o0 
CY¥anynz0,0 


RETAYs YETAR/OTOR 

ANYSN(ISY™M 

ANVHOS NOT ASYM 

PUT MOMENT CENTER IN WING COURDINATE SYSTEM, 


X4aBxmMoXwl & 


NOTES OLTPEG 1S DEL TAs UANING PRESSURE/Q G8 NEL TAeCP 


ON 902 fei,NPANLS 

IF (NPOESS,EQ,0) PLTPRCT) EDEL TPCT) 
IP (NPRESS,EQ.1) OLTORCI)S0L TPCT) 
CONTINUE 


eRITE MUTT BIP BANEL PAMPERTIES 


Omid 
DM}E4 
Oui 
OM14 
Omid 
Oa1a 
Omnia 
Nuya 
ova 
OM{4 
Oma 
OMia 
N4is 
Nauta 
D144 
OmMi4 
OnMLa 
Ota 
outa 
OMha 
OMiL4 


“pMja 


OmMia 
OmMga 
O18 


OMEa 


Omid 
onda 
oui 
Nata 
QMia 
N4i0 
Naga 
omits 
Omiya 


Orie 


N“iG 
OMG 
OMiu 
OMtG 
DMia 
Omg 
Omi 
Dees 
omMia 
OmMis 
Omiu 
Omnia 
Omnia 
OmM14 
OMiG 
OM1G 
OMpU 
OM{a 
omMt4 
DML 
OMta 
Nga 
OmMiG 
Ye1o 
Deya 
Oya 
Oia 


eas 
24h 
aur 
aua 
pug 
251 
251 
252 
25s 
254 
255 
254 
247 
248 
459 


eon 
26h 
262 
263 
264 
265 
266 
ae? 
268 
2h9 
279 
271 
272 
27s 
2743 
a7g 
276 
277 
e748 
279 
2an 
281 
262 
283 
284 
265 
256 
287 
264 
289 
290 
a1 
292 
293 
29g 
295 
296 
297 
298 
299 
309 
$01 
302 
303 
gna 
395 
305 
a7 


oan 


AAAAANAAAAAAANRRDMANANAAaAAAA: 


CONTRIBUTION FROM BODY INTERFERENCE PANFLS TN C7,..CNA 
CONTRIBUTION FROM BODY INTERFERENCE PANELS TO CY,..CYA 


TFCNBIP.EG.9) GU TO Lao 

TF (NPRESS,NE,9) GO TN tol 

TE (NOQUT,NEO) “RITE (6,707) 

00 140 Kel,NolP 

TBK4NPANLS 

FSDEL TPCT) #ARPNL(T) 

PRCT OF 

CALL BOTAWCO, Fp SFY (KY, APZ(K) GK) 
CNASCNREGFZ(K) 

Last 

CYR=CYASRFY(K) 
CIAC(LISu,SeDEL TPCT anx 
_ ARMBKCPT CT) extn 

oh Zs sehFZ (CK) RARM 

CMB IPSCMAlPeRF7Z™ 

RE YMseGFY (CK Yas QM 
CLNBTP SCL AIP oAF YM 
AIPOMmeBEZ(K)#YCPT(L) SHR Y(K) #CZCPT (LI 02M) 
CLLRIPSCLLBE IP +N [PRM 

TE CwguTy, sé ,9) 

1uaTTE (66710) LeYCPT(L), OX, WHIP, THTICK), RBFY(K),BFZ(K), FNCLI» 
-PUVELTP(LISCIRC(L) 


140 CONTINUE 


CZLZETPECNA/SREF 
CYRIPSCVYS/SYVEF 

CYR TPSCMALP/(3REF RREPL) 
CLNRTPSCLNHIPS(SREFaREFL) 
CLLALTORCLLGIPSCSREF @REFL 
IF (avy? GO TD tol 
CZ7BIPs2,O4rC LZBIe 

CyYRIP30,n 

CMATOSA NRCMHIP 

CLNKT 20,0 

CLLATESO,O 


$61 CONTINUE 
140 CONTINUE 


CALCULATE FURCESSOZFIN,GCYEIN, ACTING FN THE FINS, 
PITCHING “Ci4ENTSCMFIN, YAWING MOMENTSCLNE ROLLIN MOMENT,CLLF, 
-CTRR 19 THRUST FURCR, LAST LETTER ORSTGNATES FIN AS FOLLUWS, 
ReseeetOR, BIGHT FIN : 
Leeeeati!®, LEFT FIw 
NeoeeeeVERT, UPPER FIN 
DeeeeeVEST, LUKER FIN 
HIPs eeoe INTERFERENCE SHELL, 


ALSO3 . 
I’ «ING OR &NDY CunRDINATE SYSTEt!, ; 
FY THRUST FORCE ITN NEG, XellIR, TN PLANE QF WINGsQ 
FV eee ee SINE FURCE IN YeOTRECTION IN PLANE ME NINGSQ : 
Fleece PMANKDS FURCE FA ZetR, FY PLANE OF VERTICSL WING 

NOTE? AOPITIUNAL CONTRIBUTIONS TU I PLANE FORCES ARE CALCULATED 
TN Suyelurine SPNLN, 
PRESENTLY, IN@PLANE BORCES SUITABLE FUR CRUCTFORS OR PLANAR 
FINS OR AINGS FINLY, 


THE Soo LPUP TS USED FR THE Q@IGHT AND LEFT HORIZONTAL. PANELS 


ye ya 
DMLa 
OMia 
Nia 
oMis 
OM14 
OM1a 
Oia 
OM} 
Numq4 
DMy4 
Duta 
Deid 
OMd_a 
OMi4 
Oda 
OMia 
OKM98 
OM1i4 
Omid 
OM1a 


“Omi 


OM14 
paid 
OMtd 
OML4 


-OM14 


OME4 
Detia 
OMia 
OM14 
OM{4 
OMya 


-AMta 


DML 
OMta 
Ont 
DMi4d 


outa 


DME 
OM14 
omqa 
DM14 
O44 


OMLG 


OM14 
OMia 
OM 4 
ota 
NMLe 
DM14 
DM1a 
DMt4 
D414 
OMLY 
Mita 
DM14 


. OMI4 


yMia 
Ota 
OM14 
OMia 
NM{a 


soa 
309 
549 
311 
312 
313. 
314 
31S 
Bib 
317 
518 
319 


“Zan 


321 
522 
323 
324 
325 
$26 
327 
$28 
329 
$30 
33% 
332 
333 
$34 
335 
$30 
357 
333 
339 
340 
Su 
sua 
303 
g4a4q 
say 
346 
347 
$4un 
gag 
350 
$51 
352 
353 
$54 
355 
356 
357 
35a 
359 
$60 
Sot 
342 
363 
$04 
365 
366 
307 
368 
369 
37 


229 


230 


aaa 


Cc 


AANANMAN 


392 


TF) ONTUT 4NE,G) WRITE (6,701) 
JuLai 

Juaneae 

1L30 

A°GU BANGLA 

SINANGSSINCANGL ) 
PMIF ZENIT ER ADTOR 

CONTINUE 


_ CZF IN80,9 


CYFTNSO,9 

CAP Inzd,9 
CLNFINSO,O 

CLLE THish 0 

C'NNSO,0 

CTRP=n,0 

OU 309 JSsJleJi! 

AGE AGAREASAGPNL (J) 


IsJ 
Fs ARPONL CJSIVACL TPG) 
FNCT)SF 


YCHKe YCPTCIL) eCiuShE TeWRARCLIRSINBET 
TF CANYSA)D YOresYCOT(r) 
AQPMEKCOT( J) oXmw 

CALL ANTE H(0,9,F eCYPSCZP,PHIF) 
C¥™PseCZPeAaR% 

CLAPeelyPaare 
PRUSACZPEYCET (J) eC YPeCZOPT( J} e2™) 
CZFINaC7eEYNOCZP : 
CYFINMCYEINOC YP 

CHP INSCYFINOCMP 
CLPFINSCL VEIN OCELNP 

CLLEINBCLLE INOPRA 

Chen sc ines 


CIRC IS GAMMA/V (FT),HASED ON LINEAN PRESSURE, 


CTOC(JIS0,S*0ULTPG( JS) #PNLC (J) 
RLPMCE0,5#(SHPPLE (J) o¢SePPOTE(S)) 
SKPMCZATAN(SLPKC ) 057, 2957795 

IF (NNDROG,EN,0) GO TN 299 

EX( J) S2, eH IDTHCJIMCIAC CIV CSTNANGOVANNIACS)) 
FYCJ)SFX(S) eSLPMC 

CYANDHSCybiINHoFY (JY 

CT*WSCTrReOr KES) 


299 JF CNOUT,NE,0) 


300 


AWRITE (oe 70H) Se VCPTC IV SPNLEC I) ssIUTHC J), SWPMC eDLTPG (J) ,FNCJ) 
CAMTIANUE 


TF CIL.EO,1)9 GA TH 310 
CROECNNJSQEF 
CZFINWOCZFIs/SREF 
CYFINRaCyF IT U/SREF 

CUMPINR SCONE TES (SREP OREFL ) 
CLNFRECLNF ISSAC SREF REPL) 
CLEFRECLLEIN/(SREF ARE SL) 
CTRRRSCTHE/SSREF 


MOTE? SYMMETRY CONSIDEWATIUNS ARE USED IN OF FFERENT MANNER FOR 


THE CASE MF INTERDIGITATED TAIL FINS (THETIT,NE,0}, 


REFER T2 “MAIN PRIDGRAM CREABD FUR DESIGNATINNG OF INTERDIGITATED 


se THUS, 


TECAKRY) Git TN JO} 


O14 
DML 
Oia 
OMia 
Mia 
CMta 
OM1ta 
OmMta 
QOuiad 
DALE 
M14 
OM14 
ota 
Dm14 
OmM14 
OMtaG 
OMY4 
oMsa 
NM1G 
NM1G 
Nm14 
Om14a 
OM14 
Osta 
Onda 
OM{4 
Omir 
D444 
OM14 
OMi4 
OM1LG 
Om 1a 
Onis 
OMy4 
Na1a 
OM14 
vAtd 
0414 
Ouida 
OMi4 
Nig 
guya 
OMig 
Oefa 
Osa 
yMi4 
Duta 
OMG 
OmM1G 
Oviag 
OMia 
DM14 
Ota 
Omig 
OmM1G 
Onga 
OMta 
Owta 
OM) 
OM ya 
M14 
Nia 
OmMia 


871 
37? 
373 
$74 
S75 
376 
377 
§7A 
379 
$ao 
38! 
$82 
3A 
$84 
38S 
$86 
3a7 
38a 
349 
394 
341 
$92 
393 
69a 
395 
396 
397 
398 
399 
uo) 
ao! 
ana 
uo$ 
ada. 
aos, 
406° 
ao? 
aOR 
40a 
4ai4 
ait 
ay? 
ais 
aia 
ais 
416 
4i7 
ata 
419s 
gen 
uel 
422 
42s 
a2u 
42s 
u26 
4e7 
428 
B29 
aso 
asi 
43A 
as3 


aan 


3u3 


toa 


301 


319 


ana 


311 


325 


AYE Ase, O#AREA 
IF CTHETIT,NE,9.0) GU TH 303 
GPT goa 

CLF ENNSCZFINR 
CYF INN a eC VF INW 
CUPINOS CVE TNR 
CLNFDseCLNFR 
CLLFDSeCLLFER 
CTHENSCTHRR 
CYO0scver 

GO To 391 
CZFINULSCZFINR 
CYFINLseCVFINR 
CMFINLSCHFINR 
CUNFL aeCLNFR 
CLLELSeCLLFR 
CTHRL SC THAR 
CAL = CNR 
CYANNMAN,O 

GI Ta 344 
CONTINUE 


REENTER ABOVE LGOP FOR LEFT HORIZONTAL PANEL 
Teal 


JlaJsuet 
JUSNHP 


- ANGLEANGLL 


SINANGSSINCANGL) 

60 ™ 302 
CZFINLSCZFIN/SSREF 
CYFINLSCYFIN/SREF 
CMFINLSCHFIN/ (SREP OREFL ) 
CLNFLSECLNE INS (SREP OREFL) 
CLLFLSCLLEIN/CSREF eREFL): 
CTAHRLECTHR/SREF 
ChESCNN/SREF 

CONTINUE 

TF (NHP EG NPANLS) GU TO 350 


THE $20 LONP TS USED FUR TRE UPPER OND. LORER VERTICAL PANELS 


IF CNHUT ZNE,0) *RITE (CO0702) 
JLENHP ot 

JUSN 3P 

Thso 

ANGLSANGLU 
STNANGSST“CANGL) 

PATE SPHIFURNTIR 

CONT] Sue 

CLV INBO,O 

CYFINSO,4 

C™FIN®@O,0 

CUNFINSO,0 

CLLFINSO,C 

CYV=0,0 

CTHRSO Oo 

OM 320 JaJIledu 

TsJ , 

ts ARPULCIJIVAOLTEG(T) 
“ at 

eee LCPOT(T) eCOSALFexBAR( TI aSINALF 
Te CANYyMO) 2ZCMKELCPT CT) 


oma 
Atty 
Napa 


“Oya 


ovis 


-aMja 
UMta 
‘ oMia 


Omid 
O*la 
Orta 
OMia 
OM14 
Ota 
OmMia 
oMig 
DMia 
DMia 
OM14 
OmMta 
Oia 
Omiya 
OM1a 
Oxia 
NM1ia 
DM14 
Ov“ia 
OM1G 
nMia 
OMI 4 
neiag 
Naja 
aM1d 
ONta 
OmMia 
OMta 
O44 
OMLG 
D¥2G 
OMia 
OMLe 
DMya 
Oto 


“OMLa 


Nia 
PM1G 
Oya 
apa 
OM14 
OmMpO 
DvMia 
Oaia 
Org a 
pina a) 
OMia 
Orig 
OM} 4 
Ovta 


* OM1G 


NM yu 
OMi4 
OM{u 
O44a 


aya 
ass 
&36 
as? 
a3Rr 
a39 
aay 
aa 
442 
aay 
uuu 
was 
446 
au? 
aga 
aug 
450 
ost 
452 
453 
aga 
ass 
456 
us? 
usa 
459 
46 
uot 
dhe 
463 
464 
rh) 
Gbb 
uo7 
468 
469 
OTe 
a7 
u72 
ays 
ova 
a75 
UT& 
al? 
u7a 
47a 
4Ao 
wat 
862 
OAS 
uAd 
aas 
dab 
UR? 
G64 
aad 
ayo 
uQ{ 
uQe2 
ads 
aoa 
494 
496 


231 


232 


ARMEXCPT (J) ex4w 

CALL RATEWK(O,9,F »CYP,LZP,FHIF ) 
ChPseflZPadbn 

CLNPseCYP a ARM 
PRMEaCZPeVChTCIVeCyPa(ZCPT( Jp 0Z*) 
CLEYINSCZFEINOCZP 

CYFITNSCYFITMOC YP 

CMF INECME NECN 

CLF INSCLNEINOCLNP 

CLLEINSCLLF INSP RM : caer 
CYYSCYY=# mad, 
CTROOIIZO SeOL TOGO JIMPNLC CS) 
SLPMCS 0,54(S «PPLE (J) 4SNPPTECI)) 


S*PMCSATANCSLPRC) #97, 2957795 


TE (NNRAG,EN,9) GO 10 319 


PR(J)= gS CAA GTHL A yeC LAC LaywUsieaneannietaiys: 


FZCSVEFK CS) *#SLPHC 


“CNANNVECHADNVOFZ(S) 


CTHREC THOSE KCI) 


319 TF (NNUT,SE,0) 


320 


' 322 


321 


Aan 


Ann” 


330 


350 


1HPITE (0,706) Je ZCPT CE sPNLE OI) pe IDTH OS) SHPHE SOL TPG IDS FNGI) 


CONTINUE 

IF (IL,EG,1) GO TU 330 
C2FINUSCZFEIN/SSREF 
CYFINUSCYFIN/SREF 

CHE TNUSCMEINS (SREP OREFL ) 
CUNFUSCLSF IMs (SQRF RREEL) 
CLULFUBCLLEIN/S(CSREF &REFL) 
CTHRUSCTHR/SSREF 
CYUSCYY/SREF 

TFCANY) GO TO 32 

TE CTHETIT E040) GM TH $22 
Gi. TO 350 

CZFINLSCZFINU 
CYFINLSecyrINis 

CMP INLSCMFI NY 

CLUNEL SeCI SFU 

CLULFL Secu LFu 
CTHRLSCTHOL 

CNtLscyYu 

Gl! TO $50 

CONTINUE 


REENTE® aSGVE LOUP FOO LU*ER VENTICAL PANEL 


Ths} 

JLeJuet 

JUSNPANLS 

AGL EANGLD 
SINANGESIN(ANGL) 

GI TN $25 
CZFINNECZFIN/SSREF 
CYFINDSCYFIN/SREE ; 
CMF ITNOSCHFIMS (CSREF RREPL 
CLUNFOSCLNF INS (SREP eREEL ) 
CLLFOSCLLE INS (SREF @REFL) 
CTHRNSCTHR/SREF 
CYNSCYY/9REF 

CONTISUE 


nele 
peia 
Ola 
owed 
OMis 
NMya 
O14 
DMia 
OMia 
OM1a 
NK ia 
Nea 
avga 
OMqs 
OMia 
ovrid 
onta 
o1a 
ota 
OM1a 
DMYa 
Onia 
NMia 
Orta 
OM$4 
DMG 
Mga 
OMi4 
Omia 
OMiLG 
OMia 
Quid 
Omia 
OM14 
Ota 
Omid 
Oia 
DM14 
DM}a 
OMt4 
DMTsG 
OMtd 


“Aaya 


ow. 
Ova 
P4ta 
OMtG 
OMia 
Data 
AM14 
Own 
Nuia 
NMid 


. Osta 


Dmta 
DMia 
OMia 
OM14 
Data 
Omta 
N14 
Osta 


nia 


ao7 
aga 
499 


$09 
501 
S02 
503 
Stn 
595 
505 
507 
508 
yng 
Sia 
S11 
Sie 
S13 
si4 
515 
516 
517 
51a 
519 
520 
$21 
s2e 
$24 
S24 
525 
524 
$27 
$28 
$29 
550 
S$1 
532 
533 
Sta 
$55 
536 
437 
$33 
539 
$40 
sult 
542 
S43 
Suu 
545 
546 
sa7 
San 
5ud 
550 
551 
552 
553 
554 
555 
554 
557 
95a 
559 


anaananananaananaann 


ana 


OVERALL FORCE AND MOMBNTT COEFFICIE*“TS FOR FINS AND INTERFERENCE 
SMELL IN WING (GR AODY REFERNCE SYSTEM, | 


CTmRNA ACTS ALONG NEGATIVE XeAXTS 
CVA, peace s ACTS ALONG PNSTIIVE YeAxts 

CLUA cs eeeecALTS ALONG POSITIVE ZeAXIS 

CHIAL cee ee VECTOR ALUNG NEGATIVE YeAxTS,NUSF JP ONS, 
CLNOA cece e VECTOR ALONG PNSITIVE ZeAXTS,NOSE TN RIGHT ENS, 
CLLNDA,., ee VECTOR ALONG POSITIVE XeAXTS, RIGHT WItiG NNwN POS, 


CNANNV,CVADUM,, ,ADDITIONS Th CZO&+CYNA DUE TH IN PLANE FURCES,NNT 
SUCTION CONVERSION TO RURMAL FURCE, : 


FORCE COEFFICIENTS IN Xe¥,Z DIRECTIONS, 


CTHRIASCTMRROCTHRIOC THRUSCTHRD 
CZOASCZFINROCZFINL OCZFINUSCZFINDECZAIP 
CYC ASCYE INR*CYFINL OCYFINUSC YF IND SCYHIP 
CNADDVSCKANUV/SREF ‘ 
CYADDHECY APOM/ BREF 


PITCHING, YA*INGAZROLLING MOMENTS CUEFFICIENTS, 
CNHOASCME INROCMFINL OC MEI NUSCME INO *CMBIP 


CLNQASCLNFR*CLNEL *CLNFUSCLNFDSCLNBIP 
CLLOASCLLFR*CLLELS¢CLUFUSCLLEDSCLLBIP 


OVERALL FORCE AND MOMBNT COEFFICIENTS IN wIND@AXIS SYSTENCEXCEPT 


ROLLING MIMENT) 


CULs eee eACTS RACK ALONG FREE STREAM DIRECTION, XHINDW@AXTS 

CYw ACTS TO THE RIGHT NORMAL TO FREE STQFAM VECTUREHIDY 
CENTER LIME PLANE, Y*ITNODSOXIS 

ChLesee es Af TS UPWARNS TN FHER STREAM VECTOR@ANNY CENTERLINE 
PLAME NURMAL fl) FREE STREAM VECTOR, Zw I NDeAKTg 

CMMAW,, VECTOR ALUNG EGATIVE YHTNDSAXISSZNASE UP POS, 

CLNMAS,. VECTOR ALUNG POSITIVE Z¥IND@AXIS, NISRA TO RIGHT, POS, 


MRAGLATPIALOLIFT FORCE COEFFICIENTS 


COTRS@CTHRRACISALCOCYE I] SPRSINALCRSINPHTOCZF ING RSINALCHECISPHI 
COIL AML THRL RCUSALC@CYF INL *SINALC WSINPHIOCZE INE @SENALCECUSPHT 
COTUSSCTHRURCUSALC OC YF INURSINALCHSIMPHISCZFEINIIRSINALC SCOSPAT 
COLO SeCTHRNRCISALCOCYEIMOASINALCASINPHT OR ZETNN@SINALCRCNSPH] 
COIRIPR eCYRATORSTMALC &SINPHTSCZATPWSINALCACOSPHI 
COTACNIRACOILeCOLUeCNINeCNOLHTe 


CYWRECZEINRASINPHI¢CYFINW&CIiSPHI 

CYSLACZFINL *SINPMT OC YE] EL eCNSPHy , 
CYWUSCZEPVURSINEMT OC VET sua Ci SPH] 
CYRNSCZFIND#SINPMLSCYE IND RC NSP] 
CYWRYPSCZAITPeSTNPMT eCru TP eCNgPHy 

CY WeCYwReCV@LeoCYaueCYuneoC Yah lP 


CLRECTHRRASINALCOCYE INRACOSALCHSTNPHT OC ZE INT ALNSALC ACNSPH!] 
CLUSCTHPL @STNALCSC YE IVE #COSALC AST NPMISC7FIN eCSalCacnsPrt 


Nida 
OmMia 
Naga 
Ouy4 


7 OMia 
Neia 


OM ,a 
Omia 
Duta 
OM{u 
Asya 
Neia 
OmMta 
OmMta 
Ota 
OmMi4 


‘OM1G 


OML4 
DMta 


_ bata 


D4 
NmMia 
D4.4 


“OMga 
OMIA 


OMY 


OMS 


OmMia 
omaga 
DMi4 
OMta 
OMiua 
OMga 
OM4a 
Ouida 
NMya 


“OMta 


Nwia 
Mga 
Mad 
OMG 
NoMa 
OME 
Ne 14. 
OM14 
DE 
DM1a 
DM14 
Nuta 
OMT 
OM44 
Omid 
Mia 
M14 
Nga 
Orga 
NMis. 
ontae 
NAG 
Mia 


560 
Sol 
S62 
Sas 
So4 
So5 
Sob 
Sal 
56A 
S69 
570 
S71 
572 
573 
57a 
S75 
S7o 
S77 
578 
$79 
LT - 2) 
581 
Su2 
Sas 
5A4 
54S 
S86 
Se7 
Sea 
5a9 
590 


S91 


592 
593 
59a 
595 
596 
597 
598 
599 
600 
aol 
602 
A953 
604 
605 
604 
407 
608 
609 
619 
6i1t 
632 
615 
614 
515 
616 
617 
OIA 
419 


233 


234 


aan 


MAAN 


AaAnNaAA 


aAaAAND 


Overnegrewne 


CLUSCTHRLIRSINALCOCYFINURCOSALC&SINPHIOCZEINUSCOSALCeCNSPAT - 
CLOSCTHRORSINALCOCVFE IND &COSALCASINPMIOCZF INN eCOSALCECNSPHI 
CLBIPsS sCYBTPRCNSALCHSINPRKE OC ZHTP el NSaLC eCrigPHy 
CLECLReCLLeCLUeCLOeCLAIP 

CNCLSSCDOTZA(CLeCL) 


PITCHING, YA*SING MOMENTS 


CMP Rwotmb [HW eCOSPHITOCLNFReSINPHYI 
CMPLASCMP INL eCOSPHIeOCLAFPLASINPRI 
CKrh UW SCHEIN R®COSPHISClL NFUSSINPHT 
CMF DWSCME TAD AC OSPHTOCL MFOSSINPRI 
CHB TPwsC rn RIP RCOSPHISCLNBIPSSINPHI 
CMNASSCMERESCMELKOCYELUWOC ME DWOCMBIPH 


CLNFReseCLLER#SINALCOCMF INRA COSALCASINPMITOCL MER ACIS ALCACOSPHY 

CLUNFL *SOCLLELASINALCOCME EME OCOSALCeSINPHITOCLNFL @COSALCHCOSPRI 

CLNFUMS@CLLFURSINALC CMF INU#COSALC#SINPHIFCLNFIUMCIISALCACOSPH 

CLNFO*SCCLLFDRSINALC CME IND RCISSLCRSINPHTOCENFDSCOSALCAClSPH! 

CLNAPaeCLLBIPRSINALCOCHBIP*COSALCHS INPHI*CLNBIPRCOSALCAC(ISPHI 
CUNO AWSCL NES AeCUNFL VOCE NF UNOCLNFOROCLNBPR x 


“RITE ALL LOADING RESULTS, - 


SPANS2, Nee 

WRITE Che 717) FMACH,ALFASHETAY, ANEA,SREF,; REFL, SPAN, xm, 2M: 

IF (NPRFSS,EQ,0) “RITE (6,725) 

IF (NPRESS.EU.1) WRITE (60726) 

SRITE (66738) DELRAVELLDELU,DELDs 
CTHROA,CTHRR»CTHRL sCTHAU,CTHRD, 
CZNACZFITIN Re CZFIML se CLEINUsCZFIND SCZBIP, 
CVQASCYFINA,CYFINL oO CYFINUSCYFEINO SCYRIP, 
CMOA,CMET? Ro CMFINE CCHF INUSCHFIND,CHHIP, 
CLNMASCLNERSCLAFL sCLNFU,CLHFO,CLNOIP, 
CLEDACLEFROCLLFEL eCLLEUPCLLEOCCLLUIP, 
ChLeCLReCLELsCLUsCLOOCLBIP, 

CY ,CY*R CYL» CYUsCVMO,CYWAIP, 
COLT,COIR, COIL, COLU,CNID,COIBIP. 
COCLS, 
eOMNAW, CR Rap CMFL We CAF II CMENW  CYHIPH, 
*CLNOAW CLF Rap CLNFL Hp CLNFUW eS CLNEO*,CLNBPW 


CHECK ON SUPERSONIC LE. RASEO ON LE, SWEEP AF INBNARD 
CHORD“ITSE kUA . a : 


ARGTANS1 ,O/SAETA 
ANGMCHBCATAMCARGTAN) )057,2957795 
PSIMCHEIO CeANGHCH 
PSTPLES(ATAN(SwPPLE(1))2#57,2957795 
TF (CPSIMCH,GT,PSIPLE) “RITE CO,7 Su) 


IF CTHETYT TE 6000) RETURN 
C4LL SPALO 

RETURN 

€ND 


OM1a 
NOmM{a 
DM14 
Nqa 
OmMtyu 
QOM14 
Orta 
Duda 
DOmMfja 
OMta 
ONta 
oMia 
OmMia 
NMja 
OmMda 
Nata 
Ne pa 
OM1La 
Omnia 
OMG 
OM1G 
yea 
OMis 
Ota 
Oia 


“OMLa 


Omid 
OM 14 
Omga 
ED a] 
OM1G 
OM14 
OMdd 
Ne pa 
Omja 
DMiu 
NOmM1a 
OM14 
OM1L4 
Da16 
OM1G 
OMta 
OM14 
Data 
DMEU 
OMiad 
AMG 
Om 4 
Dey 
oga 
OMia 
Osta 
OM1LG 
OGa 
OmM1a 
NMia 
OMta 
OM1G 
OMia 
Deya 


62). 
sel 
422 
623 
aei 
ae5 
62n 
027 
628 
5?9 
640 
631 
o3e2 
035 
634 
655 
536 
o $7 
658 
639 
64 
64a} 
642 
643 
644 
645 
606 
6u7 
64A 
609 
654 
651 
4$e2- 
655 
654 
4655 
654 
697” 
658 
059 
bAD 
bol 
662 
ce 
664 
465 
666 
567 
68 
669 
679 
aTL 
o72 
673 
574 
675 
676 
477 
7A 
&79 


aaa 


NAAN AANA 


oan o 


aaa0 


ton 


SURAOUTI HE OUT CASS 
VERSIONS DEMONY 


OIMENSTON ACNeN) 
FORMATCIOCLX,b11,48)) 
FORMAT (1H )} 

QM 100 ITat,ss 

MRITE Chel) CACL oJ eJatyNn? 
WRITE (O02) 

RETURN 


END 


100 


101 


104 


SUBROUTINE ROTATECVIN, ZIN, VOUT, 20UT ,PHTE) 


VERSTONEOEMON2, 


THIS SUBROUTINE ROTATES LOCAL. CHORDINATES RELATIVE TO CONSTANT 
UOVELICICITY PANEL COQNERS AND PARALLEL TO. WING COORNINATE 
SYSTEM TO LiCAL COGROINATES IN THE PLANE OF TUE PANEL ITSELF AND 


VICE VERSA, 


COMMON NE /OUM1 (0400) 4 ae DUMZ(S) BETA, DUNS (6) EM, DUMUCG) »SLUPE, 


OMS 
nays 
Nats 
0415 
OM15 
OM15 
OmM15 
DMiS 
D418 
DLS 
OM1§ 
DM15 


OMib6 
0416 
OM16 
AM16 
OM16 
OM16 


OM{6. 


OM1e 
DM16 
OM16 


UTURNC eo TIOVe TUTLR oe Vy ip DUNS (UY) Xo VSeZSoMY eOUMA( 2) MS, DUMP CB) SMP, UM1h 
Z2HPR NUMA (2) eNOCP Te NUL INP » SOUT »NPANL S6NNO(2 1p ASYM, BODY, VEL TAs, SUSYMDMI 6 


COMMON/INTROT/PHIOIH, THETITs YRUDs 2810, PHIFRAPYTFU 


DATA PLOR?71,570796326795/ 


WING TO FIN 


EX TRY QNTwEF 


TF CAAS(PMITFOPTO2Z) LT. TLEAC) GO TN 100 


66 70 tt 

CO9PHT 20,0 

STNPHTs1,9 

G9? TO 1048 

CONTINUE 

CISPHTECUSCPNIF) 
STNPMTRSIN(PHITF) 

CONTINUE 
YOUTSYITN@CISPHTSZIN@STNPHT — 
ZOUTEZINSCOSPHT@YINGSTNOM] 


AR TURN 


192. 


193 


105 


FIN TO ING 


ENTRY. Brite 
TF (AAS(PHIF@PTU2).LT,TLRNC) GU TO 102 
Gu 79 103 ; 
CNSPHTaO,0 

Sts ewlat.o 

GF TO 105 

COMP TNE 

CUSPHISCNHS(PHTe ) 

SINPHTESIN(PHIE) 

CORT INGE : 

VIUTSYTNeCUSPMT eZINSSINPAT 

LMT AZINaCOSPHT OV ING STNPHT 

RE TYAN 

& EH 


DMA 
D116 
O16 
O4146 
OMis 
OM16 
OM1b 
OM tb 
NM16 
OMNs6 
OMib 
DONS6 
OM16 


OMlo | 


DM15 
OM1A 
NML6 
DM16 
OMI6 


DH16- 


NM16 


OM36— 
NM16 


M16 
DMit 
OMS6 
OM16 
OMte 
OMLo 
OM416 
DM16 
OM16 
OMta 
O16 
OMIA 
QMib 
N16 


oo 
Ver SC OBPstFrMNeweaw 


Poteet 
SOENF VSM DB OBwWSs HEMnNeK 


“& 


mo oOpmvruw wwe > 


wl iw 
rwty 


Eww www 
oO S~sr 


feerece 
D mee ee 


&ecs 
orm 


235 


236 


ao AAANAAaAN 


an 


SUBROUTINE SNLVE (8,4,%) . bvi? 


i Oe? 
VERSTOANS DEMONS N17 
NMiy 

OM17 

THIS SUBROUTINE TAKES IN THE TRIANGULATED “MATRIX 4, RIGKT HAND OM17 
SIME VECTOR 8B, IT IS NMPERATEN UA HY IP(300)9 o4wi7 
SOLUTION TREN PROCEEDS, ANSWER IS IN VECTOR A AGAIN O17 

: NM17 

OUMENSTAN BCL) OM17 
DINENSION A(CN,%) Ov1? 

‘ NMA? 
LOGIC AL ASYM, HOODY, DELTA sNUSYS OmM{7 
OM17 
COMMON INE JDU41 (0000) .FP 6300) ,DUMS(102) ,ALFR,DUNSCIAD, TITLE, 04417 
THUS (212 eNURAG, DUNS CU) eNOCPTZNOLINPeNNUT,NPANL SeNPRESSsNAHPZASYMe OMIT 
2HODY, NOEL TA, NOSYN Ong? 
i : OM4? 

. 0447 
“JFCK.EN,13GO To 9 OML7 
N¥ISNO OM¢7 
CO 7 Ke1,N*t UMt7 
KOLSKe] Nvy7 
MarP(K) D417 
TsH(™) nM{? 
ACM) sn(K) Om{7 
R(K)sT ie nat? 
ON 7 TaKPleN : ; : Dei? 
F-ACTYSSCTISACI KI AT : Ont? 
‘ : nwi7 

Nut? 

~09 B Khai,n4t 447 
_KMYSNOKE OM{7 
KS Y Oe] : eee ; omy? 
“SCK) BACK IZA CK, K) QML? 
Tee8(K) . DML7 
IF (T,E9.9.9) GO TO 9 . OM? 
AOA Tsi,ekel ; oy? 

A ACTISICT) ACI AK) ST O437 
9. RC1)S3ICII/aC1e1) : Dw17 
RETIIRG : OME? 
E“D Duy? 
>  "SUAROUTINE SuURCECJ) O18 
-VERSTONS EMON af ‘ Duta 
“VERSTONG NEMONY : OMi8 
: OMLA 

SUBROUTINE TO CALCULATE THE VELUCITIES DUE TO A LINEAR LINE SOURCE OF OH14 
UNTET SLMOK wyfrn GRIGIN AT TXCJ), - OMds 


ANAAAANANAANA 


an 


SOLUTIONS GIVEN BY 4UDDWARD AND LARSEN CHNING RFOT, NbefO7U1)},EQUATIONDOIA 
(5$) AR ANTONIO FERRI o “ELEMENTS OF AERODYNAMICS MF SUPERSONIC FLAS, "OMER 


EQUATION (374), De a) 
a ayn 
INTEGER BCONE NMta 
COMMONS THN/TX(101969U41 01113) -ACODERETASO, RSD, PANTUS WF TELC, ANOSENMY A 

Lp leVeV Ty xXAg tC XD, BETA, XFIFLDN, X20 X8eNKAIQDY : N18 

“ N48 

‘ a : 41a 
190 FORMAT(1HO,SOWETELD POINT TS WITmMIN TATL “ACH CONE, WU 4vO.v SET ToOM14 


OG2nNOV Sw tur 


- 
— 


~— oe oe 
eww 


OeEneMewve 


10 2ERO,) : p44a 


Cc . DM1A 
KESXFTELDOTXCS) ; OMpR 
HRSAETAwwETELD 2418 
TECKY.LE, HM) 60 TH 10 OMia 
TIF OCK2,LE, BR IGM TH) 11 ‘ M14 
WRITE (6,100) : Oat 
GO TH 10 ; . . CMta 

Dt XLSXT/AR. Om 
N23 SGRTCXLeXL@t,) , Ota 
UZeALNGOxL e025) OMAR 
VEHETARO2$ DM18 
RETURN : OMAR 

Ct ; OM1Aa 

C FIELD POINT £S 4HEAD OF MACH CONE FROM SOURTE ORIGIN, OMB 

Cc. : ‘ . OMga 

10 Yao, : OMB 
VEN, DMIR 
RETURN : OLA 
ENN DMs 
SUBRQUTINE SPECPR M19 

c . DIA K:) 

c VERSION? DEMON! M19 

C OM19 

Cc THIS SUARQUTINE CUMPUTES BERNOULLI PRESSURES ay CONTROL POINTS OM19 

(ol OF THE CONSTANT USVELACTTY PANELS : OmM19 

Cc ON. THE WING OR FIN SURFACES . OMI9: 

c : : . OMY9 

c 44g 

Cc ’ OomMi9 
DIMENSION PRPESSA(150),P4ESSR(150),PRESSR(150) ,PRESSL (150) nMya 

Cc : OML9 

LOGICAL 300%, ASYM, DEL TA,NOSYM OMA 

Cc OM19 

. COMMA JIE JUL C250) MEL TEC 250) 0UN2C1750),xCPT (2509, CPT C250), Oet9 
LZCPT( 250), GUMS (34021, 4L FX sARWING/DUMG(2), RETA, BETAR,CONST,COSALF, OMI 

2COSBET, CN DXeEMeFMACH,RCIRG DMLa 
2 SINALF pSINBET.OUMS (3). TOTLR,OUMO($) ,UCHK »0M19 
SVGHK WOHK DUMTC4) po EF ole Ke DUMA( 4) eNRIP,NCRXZNCWPNDRAG HHP YUP, DME 
GNRP ANSP NICE TS NOLINESNIWIT pNPANLS,NPRESS,NWRP,ASYM,ANNY TEL TA,NOSYMOMLY 
COMME ZA VEL ZBOUCLSO) » ADVCLS0),HOW(150),xXFLNP C150) ,YFLDP (159), D4t9 
1 ZFLOPC159) n4qq 
CUMMAN/SPCPRS/DLTPC159) | OMA 
COMMON /SPSANG/SINALCCOSALC »SINPHT »COSPHI ; 7 OM19 
CUMMONSVRTXV/VIRTXCLSOD, WVRIX CELSO) VRTPL pNVATKeVRIMAX OMLS 
COMMONS THKEATSNTOATS NCAT ANTPRMSHT(H) NRPTSSHPTyNSPTZNTHPZASYMT, M19 
1 MVERTSSMLET( 20,4) ¢SWTETC20, UAL ca Re Gt a — buys 
COMMOANSICVEL/UTCHK pVICHK  ATCHK LIT, TPT, MJ  OM19 
COMMANJVETHVL/AVVEL (500) pYVEL (S00) eUCPTSSCPOUT, »NVLAN ; DM19 

o COMMON SELLIPS/ RAJRB,ERATIO ; ; DM19 

c: : DM19 

i OMIG 

C . OM19 

720 FNRMATCIK, TSe tt 11,5) DHL9 
724 FORMAT CIX,T3sOF 116,11 X0 SF 11,60) DMA9 
732 FORMATOCS/S//1 0, LOUHVELOCITIES AND HERNOULLI PRESSURES AT CONTROL POM19 
AMINSTS YY“EOLATELY AYOVE ALD HELOW HORTZUNTAL SING: SURFACE SS Pha 
22M LHS OP UEX CTV oe MEAGHV CI) e TK OUML (Sp SK eGHUTNTAs OK, SHVTNT AS oma 
JOXxeSHATOTA, OX sHHPRESSA, SKPSMUTOTH OX, SHVTIITE phx, SHATOTN, Dera 
Ub ks GHPQESSHS) ae 


fa 
19 
a) 
el 
ap. 
23 
24 
es 
20. 
27 
24 
ea 
34 
31 
32 
38 
su 
35 
$4 
37 


SOBnNFNE ww 


237 


238 


aaaan nNoaanaan 


Anan 


aan 


Ths 


GeRPPESSLS) 
ENRMAT C47775%5 S5HPRESSURE LOAGINGS AT CONTAQL PULNTS/s 


LP 2X MHD TY, IHKC TI) oe IM GHY (SJ) 6 TU, GRZ( SJ), OX, I OHNELTPoL Ting a 1 Xo 


J LIHMELTP,HERN,/) 


780 FORMATO S///1L0OX,LO7THYELOCITIES AND BERNOILLE PRESSURES AT CUNTRUL PAMI19 
{OINTS ITMKECTATELY TO RIGHT AND LEFT OF VERTICAL: «ING SURFACESS/ 
PAK IHS Ae GHA Se TK GY (Sie TK eo GHLC TI, SK ASHIINIR OL, SHVIOTR, 
SOX ,SHNTOTR Oke OMPRESSR SK, SHUTOTL OF eg SHVTUTE pH xp SHRTITL poke 


DM19 
OMy9 
O19 
O19 
gaqg 
OM19 
D419 


737 FORMAT (CiMt,77RPRESSUDE LOADINGS EXCLUDE VORTEX INDIICEN COMPONENTSO"19 


1 PARALLEL fA wJtG SURFACES//) 


OM19 


738 FURMAT CEML,7IHPRESSURE LOADINGS INCLUDE VOOTEX FNDUCED CUMPUMENTSOMI9 


Ags 


1 PARALLEL TU ®ING SURFACES//) 


NOCOTRY 

MMPYENNP el 

NPNUStLSNPORLS OL . 

TF (MVR TX NE O,AND NVRTPL,EO,0) “PITE (6,737) 
TF (NVRTX NESO,AND NVATPL,EG,1) “RITE (6,738) 


PNINTS T¥MEDTATELY ARNVE 4ND BELOW *ING SURFACE TREATED 
SEPARATELY YUE TA OLSCONTINUITY IN INFLUENCE FUNCTIONS 
WHEN 2 EQUALS ZERQ, 


aRITE (6,732) 


WING SURBACES ANDO BLOY INTERFERENCE PANELS CONTRIBUTION 


FOCTRLat 42H571M29/ (EMACH RE MACH) 
FAC TR2s0 CaF MACH RPM ACH 


NM AOS Jat, vMe 

XELOP (SI BXCPT( J) 

YFL OPC TISYCPT(S) 

ZFLOPCSIRZCPTCS) © 

NSTARTSI ; 

TF CBIDY,ANORALED. AB) CALL VELCAL(CNHP,ALER,RETARSNSTART) 
(1 BOT Kal,nnP 

VADVRTSVVQTX(K) 

IF (UVR TEMES AND NVRTPL,EY,0) VADVRTS,9 


DISCONTINAUS CONTRIBUTION 
409 TM CONTRIBUTIONS FROM EXTERYAL VORTICES, 


*Jtaw 


IF aK 
“CALL VELNUIROXCOTCK De VCPT CK) ZCPT CK) 


bos gABNVE eee FELD 


UTOTASUCHKeADU CK) ; 
VTOTAZVCHKe4HUVCK ) OVADVRTOVVEL (K) 
wfOTas ADACK OwVRPX CKD O4VEL CK} 


UTATRsetiCnK eHDU(K ) 

VTUTAseVCHA CHDV(RDOVAAVATOVVEL (4) 
WIATBS HOW(S J OAVOTHX(K DOwVEL (CK) 
TF (CNOUT. %EQU) 


WRITE (6,721) KeXCOT (KY, YCPT(K) SLEPT (KY ,UTOTA,VIOTA,«TOTA,UTUTR, 


D449 
DMV 
DMig9 
OML9 
OM19 
O49 
DUK) 
OM49 
DM19 
OM19 
OM1g 
QMi9 
natq 
OMA 
OM{g 
OM19 
Oia 
OnML9 
OM19 


DM19. 
OM19 


DML9 
O™M19 
O“s9 
Om19 
0™“19 
OmM19 
Oonqg 
pMt9 
OM1g9 
OM19 
OM19 
OM19 
OM19 
OML9 
OM19 
O¥19 
N19 
oO“ La 
Qearg 
419 
DM19 
919 
OMt9 
OMig9 
Neig 
Ov19 
OMga 
N49 
OM19 
oMig 
O419 


t VTOTA,ATATB 


CONTINOUS CONTRIBUTION FROM HORIZONTAL FINS 


aan 


~YTat 
TF anne 
CALL VELNORCXCPT(K DS MCP TERI CCR TORDD 
KTOTAZWTNT A SHC 
w TATA awTOTAeaCHK 
TF (NOUT NEO) 
PWRITE (6,721) ReACPT ORD) VCPT CAD LEPT (HD ,UTOTA,VTOTE, wUTA,UTUTB, 
{ VINTA,WTOTH 
IF (SHRP OEQ. WAP) GU TA 691 


CANTRTBMUTTUN FRIM VERTICAL FINS AND KADY INTERFERENCE PANELS, 


aan 


TIL annPy 

TF snwhP 

CALL VECAUIRCXCPTCKI + YCPTCK),LZCPTCK)) 
UTOTAaNTOTA SUCHE 

VIUTASVTUTASVCRA 

wWTOTASWTINT A eaCHnK 


UTOTRAUTOTHEUCHA 
VIOTREVTOTEHOVERS 
WTOThK EH TATH eH CHK 
TR (NOUT NE SU) 
Lorre (o,721) Kae XCPT (CK), VEPTCH Ds LCPT ERI SUTOTA,VTOT A, wWOTS,UTOTH, 
t VINTA,WTOTA 
Ao. CONTINUE 


c 
c SNURCE PANEL CONTRIBUTION 
e ; 


TECNTOAT.ED,0) GO TH A300 
Tttat 
[FPF TanTHe 
Jan 
CALL THKVELCKCOETC KYA YEPT (CK), LZCPT(K)S 
UTOTASUTOTASUTCNA 
VTOTASVINTACVTCHK 
wTOTASATOT ASW TC MK 
HTOTKBUTATHR OUT CRA 
VINTREVINTHOVICRK 
wTQTHaWTNT Raw T CHAK 
TF ONT SEO) 
LHRITE Coe TAL) Ke KCPT (KI, YCPT (CK) oZCPT(K)D,ZUTOTA,VTUTA,WTNTA,UTIITB, 
1 VTOTA,»TNTY8 
ASO CONTINUE 
c 
BNUSQSUTOTARUT(ITA 
HOVSNEVIOTARVITNTS 
HOwSQswTOTAewINTAa 
UBARBUTOTAaCISALC@VIUTASSINRE Ten TIT ARSINALF 
AXGOL Deb ACTRP a (2, MHAR+HNUSIFHNVSA +R OwWAQ) 
PREGSACK ser ACTH 
TF CARR GE TTL) PURE SGA(K)BFACTRIa(ANGaa3, 504,90) 
wDUSOSUTATHeNtyTB 
ROVSOsvINTeavIntsE 
BNwSQewTToeeToTs 
UHAREUTOTIACNSALCeVIOTHaSINAF TonTUTAeSINALF 
ARGS) NMP AC Trea ( eH elIRAReHDUINOHOVSNENDwSH) 
PIPESGR( HI SHFACTRI 
TF CARG GE, TOTLRIPRESSA(KIBFACTSI (ARG 083, 501,9) 


Omi1g9 
OMe? 
O19 
OM19 
QMta 
OM19 
OMA 
NM19 
Or19 
py 
O19 
9"19 
vs19a 
OMTS 
yMyg 
O”19 
OMI? 
OMig9 
OM19 
A419 
OM9 
OM Ld 
O49 
DM19 
OM19 
DM19 
OM19 
UML9 
19 
OmM19 
OM19 
ONV9 
OM19 
O19 
AML 
OmM19 
OMt{9 
vM1i9 
N19 
O19 
oMia9 


“OMY 
_ O49 


OM Aa 
0419 
DM19 
p19 
Lele ied 
Nee 
O19 
oMy9 
m4? 
N419 
ose) 
OM19 
OM19 
orig 
OMAg 
NMi9 
oMia 
etd 
nig 
p19 


10a 
105: 
104 
17 
10a 
109 
110 
11t 
1)? 
115 
114 
115 
Tie 
117 
114 
119 
teu 
$21. 
1e2 
1°75 
12% 
125° 
126 
1e7 
128! 
129 
130 
131 
132° 
133.- 
1$4 
135 
136 
137 
{34 
139 
{40 
144 
142 
144 
,aa 
145 
146 
147 
148 
149 
159 
15t 
1S2 
1558 
154 
155 
156 
157 
15H 
159 
1690 
161 
162 
105 
Toa 
16S 
164 


239 


240 


ARTTECH,7TAU)K XCOTEK)D, YCPT (HD, Z2COT(CK),UTITA,VINTA,WINTA, 
1 PRESSA(K) VIOTA,VINTY, w TNTH pPRESSH(K) 
A097 CONTINUE 


c 
c OUISTS TMMPOTATELY TH TRE @3GRT ANU THE LEFT OF VERTICAL 
c wIhG SURFACE TREATED SEPARATELY DUE TO PISCONTJHULTY IN 
c INFLUENCE FUXCTIONS Ween VY EGUALS ZERN, 
c ADD IN CONTRIAUTIINS FROM EXTERNAL VORTICES, 
c ; : 
Cc : : 
TF CHCRK ENG) GT) RG) 
wQITE (6,734) 
c 
c 


00 ROK Js hPL ,NPANLS 
KFLORPC J erCPOT(S) 
YVEULNOCTYSVCOPTC I) 

BOA ZELMPCJIBLZCPTCY) 
NSTARTENMP] 


IF CHNDY AKO,RAZEO RH) CALL VELCAL(MPANL Ss ALFR,HETAR, Ne tanh? 
NO ALS KONRP 1 @NPANLS 

WANVRTRWRITX(KS 

TE CNVRTW FEO AND NVR PRL LC E0,0) wAUVRI3Z0 G6 


TiaK 
TFaK 
CALL. VELNUMCXCPT (KDC YCPT(K),ZCPT(K)) 
“OAT RaeICnk eBDUCK ) ' 
VINTes BNVCK DevVRTX (HD OVVEL CK) 
WTOTRaSHEHR OND D(H ONANVRTOWVEL (nH) 
UTOT( StiCHn ehOUCK ) ‘ 
“vtTotta RUV(K) ¢VYRTX(NDOVVEL (CK) 
aTUTL SWCHKOOUW OK) CWANVAT OavEL (KH) 
LF CNT Ne 0) 
THREE (,721) neACPT(K),YCPT(K) »ZCPT(K) UTOTR, VTTRwIOTR,UTOTL » 
4 VINE ee PCTL 


LI aNnnRy 

TESUPANLS 

CALL VELMORCXCPTOCK De YCPOT (KD, 2CPT(K)) 

VTNTRaVINTwoVCnn 

VTOTLaAvTiTLevC Hn 

TF (NNUT,E.0) 
LWRITE (6,721) Ke XCPT (KIS VOCPT(KIsZCPT(K) ,UTOTR,VINTR WINTRSITOTL,» 
1 VTOTL TTL 


{lat 

IF sNHP 

CALL VELSARCKECPT(K),YCPT(K).ZCPT(K)) 

UTOUTRAUTIATReEUCHK 

VINTRAVINTROVERK 

WTOTR aw INT Nealon 

VIATL BUTOTL OUCHK 

VTIOTL SVTNITL eVCHK 

wTOTLS+TOTL eeCHK 

Te CNOUT, NE, 9) 
(WRITE (6,721) KeKCPTCK IS YCPT CKD A LEPT CK) STAT RE VTOTH, ATATRGITITL y 
1 VINE es TOL : ; 
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TF eNw4e 

CALL VELAORCKCOTCKIOYEOT( KV, ZCOTIC)) 
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OM19 
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OmM19 
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1oA 
1469 
wr 
171 
172 
173 
174 
175 
174 
177 
{7A 
179 
140 
64 
182 
145 
Ba, 
185 
146 
147 
144, 
189, 
199 
191; 
192° 
193 
194° 
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any 
210 
eit 
A12 
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aan 
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! VTOTL wtTote 
CONTINUE 
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VINTLSVTOTLevIChs 
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TF CNQUT SSE.) 


PaNITE (my 7P1) KeACOT(KY, VEPT (4a) ZCPTCK) pV TITR, VILTne STATRGUTNTL, 


© YP OVATE Ss TOTL 
B8§ CHOST Dg 


AGCUSQSUTATE RUT OTR 
ANVSVSVTOTWaVIATR 

ANB SNseTNTReaTHTK 

Wa ARSUTOATR ae Cis ACs ulitwesiNaeieotataeaquae 

O2Get Nek SCIReele, AeA AIAVUS TOHIVS LOADTEAD 
PURSSACK ser ACYTOEY oe 

TE (Cana, See eae ein TBE CUR ESE INGE SN, Set, ») 
ANYSQEUTETL euTAre 

HOVSOSVTNTE evVtnte 

ADeSQSwTIT ea FOE 

UBAQSUTOTL oCISAlCevrarL aSInn&TewleteaSphal & 

ANGEV OPP AC TRA w lA DAiddReHNUSQe4OVEIHNASN) 
PRESSL(<) ser acTRy 

TF CANG GF TTL OYPYE SSI (KAP ALT HL eC ARGARS Set 1) 
WHITE Cog FAV G KCPT CRY YC POTORD ZCPTCKY TOTO, VPP RTT, 
{ PRESSH( mR) UTIL es vTETL STOLE pPRESSLOK) ; 
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Ol ASL wat, PAALS 

TF CK ALE NMP) GO TH B22 © 

6) TO) wey 

OLTP(K)SPRESSREK DwOWE SSa(K) 

60 Th Rau 

DL TP (CK) SOCESSR(K) OAPHESSL (Hu) 

CONTINGE 

APITE (6.720) KeMCPT CD, VCPT ERD ZCOT ERD MEL TBEK) SDL TPCK) 


CALCULATE © ING LUADINGS PCE TD GERALD LOADTAG PRESSURES 
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oe e a) 
Otte 
img 
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19 
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yyy 
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Ae19 
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N49 
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Pun 
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24a 
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264 
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269 
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Cail SPECLO : : D419 
. 0M19 

: _ - os O19 

RETURN : wor nya 
END ; as nv19 
SUBROUTINE SPNLD pale bones - D200 
aa a os Dean 

VERSTONS DEMOMY , arn : B20 
te 920 

THTS SUBROUTINE CHMPUTES SPAN LOAD AISTRIAYTINNS - : O20 
THTS SUBROUTINE COMPUTES SPAN LIAN HISTRIHUTIONS FOR MOROPLANE nen 
OR CRUCTFORS WING OR FIN CONFIGURATIONS ONLY, NMen 
NOTES INTERDIGITATEN FINS PRESENTLY EXCLUDED, So cage 0429 
ALSN AMNI TIONAL LNePLANE FURCES+F Y2eFZ2, oreo 
AND SIICTION DISTRIBUTIONS ALONG THE LEADTNG ERGE AND STRE kOGES oven 
SING THIS INFORMATION, FIN LEADING AnD SIDE ENGE VORTICITY . Ore20 
DISTRIBUTTUNS Ake CALCULATED, Dv2o 
IN ADDITION, FIN TRAILING E0GE VORTEX STRENGTH AND apace {se OMed 
LUCATION ARE OF TERMINED FRON THE LU4D OISTRTRNTTINS, OmM20 
_ DM 29 

OIMENSTUM SLOAN (20) ,CHOROS(150) eFY2CLSOV,FZ2C159),F T2201, DéM2n 
1 YCR(20), ECG (ZO) AVALHARI ET ANCOR CSO MALNUNCSY Bom ear len 9420 
2 CIRNET(CH0) »G44MA(29) Ned 
. 3 OMen 

LOGICAL asy™, ANYMO, SSLE : pen 
O20 

COMMON SONE SET RCO C250) HEL TE C250) FC 250) ,PHLE( ASD D6 SUPPLE (250), Oreo 


TS“PPTE (250) eVINH( 2507, XHAR (250), ZHAN (250). XCPT(259) ,YCPT (250), L2CPTOMN2N 
26256) KLE (250) XL B (25005 ERE C250) XHH (2959) VIC C250V, YRC( 250) LLP (250M29 
$0) 6 ZRE C250) 6 ZL H( 250), ZRBC 250) »SNT C125) pCST(125) »SVT2A(125) CSTAC1 250429 
Gy oTP C300) oe RFRIPCI00) poe ALFA ALF IFAS IPG, H2,RPAV,HETA,BETARSCUNST, O20 
SCOSALF ,COSKHET (CN, OX es Es FMACH, RCL Re SINALF y SINHET, SLOPE STI ANC, TIPY, DM20 
OTNTL Att oV om GUC oe VCHK  HCHK MHIP XV eo Lolo TF et Le le S4Re Sah se “SWUZ MAN 
TMSWINATPNCRK NCW, DIAG ZNHP,NPR,NHO US EP,NOCPT,MILINP SNOUT, NP ANLS,DN20 


BNPWESS,NHAP ASYM sKIIDY, DEL TA,NUSY™ O20 
COMMONS THREE JANGLR FANGLL sp ANGLUs ANGLD NELRODFLL DELULNELN, SHEF »REFLOMCO 
COMMON S3R2FEPSAVSMLER (20), VSATER( 20) sVSHLEL (20), VSYTEL (29), 0420 

1 VSwLEUC2Z0), VSMTEUCZ9) eVSMLEN(20 DV, VINTED (20) sLVSHPSLEFT, i ca D420 

2p 4RPNL (250) -4INTH( 250) Nnvu2dg 
CUMMON/ERCDIS/VNURIS (150) oF XC150) oFYCISVVSFICISOD, OL TPGCLSO)» ANYM(ID YAN 
COMMONSVETXV/AVVRIX (150) oe AVRTX(150 2, NVATPL NVA TX VITMAX N20 

COMMON /SVPTHVL/VVEL (500) e4VEL (S009) eJCPT,NCPOUT,NVLIN : Oman 

. COMMONSETNLE /KXLE C80) -CGLUC (89), GAMLE (ADV, FK( B,NEDGYV, BEEN MLENKs oman 

1 MLEVU,MLEVD OMan 
COMMONSFINSE/XSE (80) ,CGSELC (80) »GO¥SE (80) ,FXSE,NSIOGE .NSEV ‘DM20 
CUMMOYJELLIPS/NA SPR, EQATIO ; Dean 

: nM29 

: : 3 4. wee OM20 

702 FORMATOS///51X,22HSPANWISE DISTRIBUTINNS/S/) aD M20 
703 FURMAT C2X6T2,2X,8CF 10,5 e2K)sFIO,Sol xe, 2F10,5) DM20 
TOU FURMAT ( Axe TP, 2KoF1N Se 2X ep FUN e Ss 74K, 10,5) ak ; : nan 
TIO FORMAT (UXe TSAI KsF 19,9) re SCAN SF10,S)) . NM20 
TOT FORMAT CSA//L0% Fe 22MSTNE EQGE BISTRIBUTIONS JAN, UNITIP, 2X, ; Naen 

1 SHISE s2KeRHDT STANCE, TX ,1SMSUCTION FNREE, IX, AHKGAMMA, SE, HN, DM20 

2 GRZAAR TK, SHXSESI SKS THEQTIM LE eAXSLSHPER HINTT- LENGTH, SY, omen 

3S SMSVIME SL SX, IHSTIPCHIBD OX st SHS CIRTIP CURDS) nm24 

TOK FORMAT C/S//AAIL9Xe22HSINE EDGE PISTRIRUT TOMS say, ANITIP, ake - Nea 
Y SHISE SAX, SHOTSTANCE, TKeISHSUCTION FEOROEE TX, RMGAIMA, SE OK, N40 


2 AHYRAR, FTX, SHXYSESESX, TMEHOM LE, EN e 1SMPER LINTT LENGTH,S¥, ‘ pen 


ead 
29s 
2% 
297 
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ea 
PODRDNTF LE wwH 
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N= 


15 
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an 
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3 SHSVINE SI 3X PHSTIPCHORD OX, LSMSCURTIECHOENIS) 
TOD ENOMAT CEs TRUK oT2e Leb Le Se SXob 10,5, OXF IN, S,4KoFIO,S, 1K oF 10,5) 
FIO FIRMAT (4n-T5,9012,F19,5)) 
712 FUR\4T (4777 
1 UGH, OWSUMEX B CELA Se/JISGKSIMSUMFYE B CEL2,S,/1UX29HSUMFYS 2 , 
LEIS] .Se/71ax,AeSuUeFPT2 s ,bt2.5) 
T21 FORMAT EME, 2OCI HM) SAIN eet ClHe)) 
FAD FUMMATOC Suet Te Ske IMZ/(4/2) 2X s1 OMENS (20H), 2X, 10KCTHC/ (ORK), 
LUXS PLHCZL ACSC 298) AX, LSHCZTOTAC/(22B) IX, LOHCSAC/ (20h) She 
PO SHCSING , 5M _ 4H LZRAR, 7K IHGAMBE T(E pe, t SHGAMYA,LESVINE OKs SAXLES) 
TAM FURMATOC Broly Sho TMV SC K/S2) gp AXP LOHENACS(ARRI,AXeLUHCTEC/ COR), © 
LEM LLHOCVU aC SC etd, UK, 1 SHOCYTUTACS(C ARB) GLX, LOHCSRCS (SHH) SK, 
CO SHCSINT See GHVN AM, TX, IMGAMNE T(E) 6 20, tSHGAMMA,LESVINE soko SXLES) 
T3L FORMAT (S///10K eo FHSUMEK & GE 12,5/19X,9HSUMFZ1 = ,EI2,5/10K, 
1 QRSUMFZ2 & ,ELA.S/LOX,IHSUMF TS 3s ,EL2,%/) . 
733 FORMAT (C477 ¢25XKeLTHATHG PANEL FURCE SS SAX ANS, SX,THYCPT OCI) 6 Sky ° 
LAHNEL TACP OKs HhHGAMMAS, OK GAHF KN, LOX, SHE YI, Dx, SHFY?S 
2 32K, UHVINE Ss /) . - : 
T$h FORMAT C//EX TMD SK eo SHOLT OX e SHSLP DUK, UHISEN, SX, GKYCHK,SX, 
1 GHVALINTs LX) OMNUMme Sp HHVALMAK » 3X y OSMVALNUM, SX ep UHYMAX/S1X, SHEXT) 
TES FURMAT CTX L2,ACUM PAU pAX ep Losi Xo2lixsFA SU), AXrTAV1X, 
1 SCtx,FA,d)/) 
T36 FARMAT C////SOWaRaeeT ES, FIN VORTEX INF Oaewees) 
T3H FORMAT CLM, UMYVRT GLX, | OHGAMMASVINE » 3X, HH 2C.G./) 
739 FORMAT (//725K,ATHWL iG PANEL FUNRCE SS SAK LHS 05%, THZCE TCI) yo SKy 
1 BHDELTA@CP , OX, OHGANMSS oS Kp QHFX, 10K, SHO7Z1 ZINK, SHFZ2,S 
2 LAX, WL Te LOX eo GHVINE, S/) 
T42 FYRMAT CLK SMIVRT 1X, 1 OMGAMMASVINE , Sx ,6H26C,6,/) 
TUZ FORMAT CHSAK IHL oe 3K yo SHOLT oO, SHSLP SUX, ANTSE Ig SK, 4MZCKK SX, 
“A GHVALINT, 1X) GHNUMay Sx, OHVALMAX, SX pOHHVALNUM, 8X, GHZMAX/SEX» SHEXT) 


DATA ARW/IOMRIGHT MING/>ALW/LOM LEFT WING/,AUS/IDHUPPER WING/, 
1 ADW/TOHL JER wINGS ; 
INETTALIZE 
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WRITE COe7T21) Ana 
WRITE (6,792) , 
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TLel 
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Nwen 
Oven 
Need 
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M20 
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Nan 
D420 
#24 
DMeo 
oM20 
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Dven 
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bM20 
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DM20 
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O20 
DAed 
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o“en 
DM20 
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nea 
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Omen 
N20 
N420 
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Omen 
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oven 
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Om20 
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Onen 
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ned 
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Nee 


100 

15) 
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108 
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KUL SMSWRP 

ISTARTS! 

SERN SNRP 
JTTPSNRPeti(f vet 
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reveo 

CONTINUE 
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NPH 
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péen 
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DEST-al) 
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Ome) 
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HERED UWUSU ese ee IGNT FIN 
TLBbeeeeshEFT FIN 


‘aN $42 Kaa,nu 
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TE vsTeVel 

SCSMXK=0,0 

scs“viso,” 

sCSmyesn,9 

Se PANGEAHSCATAN(SHPPLE(J))) 


_COSS*P=CN8(S4PANG) 


PSIPLESSWRANG&S7 2957795 
SSLESPSIMCH, GT, PSIPLE 

Suri~s2o,9 . 
VCHKRYCPT (J) @CSHE Texan (J) @SINBET 

TF CANYMO) VYCHKBYCPT(T) 

YLOCRBYCHK aT 

TPysres 

IF CTL.EQ,3) GO TU 4HO 

NFRSTS] 

1TSPNETP! 

ICs] 
XLECTEVISXLE (JOC VCPTCSIOVLC (CS) DOS4FOLE (CS) 
G0 TO bbl : 

NFRSTSMSaRP el 

TSPNSIP{O4GeRP 

ICSTe“SureP 

KLE CTF V}SXRE(JIOCYCET CSI OYRO (CJ) I eSHPPLE CJ) 
CONTINUE 
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MU Sat Late Ce» 
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0429 
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oman 
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{et 
122 
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152 
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147 
16a 
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walOLel saTeTH(s) 
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CIRNETCNERSTISECIRPMET(NFRST)@OL IRE (Je SIGN 
JANISIJONC a 
TF (K,EQ,*UL) GU TO 916 
GC Ta 917 
CIRME TC MSPANP) RCIRNETCNSPANP)SCIRC (J) *SIGN 
GO Tr B13 
CIRNETCISPRIBCTRNET(TSPNIS(CT RCI) @CIRC(JADS) )@SIGN 
CONTINUE 
TF (NORAG,EN,0) GO TO A1S 
TFCIL,EA,1) GO TO Bun 
CHORDS (I) 3XAB( J) XRF (J) 

GO TO aa 
CHNRAS(JIAXLBC J) ALF CS) 
CONTINUE 

IF (CLEQ NC*) CHURDS(.1)80,5#CHORDS( J) 
FY2A( J) S2, On CHORDS( JISC RNETCISPN) &(SINANGSVNOROS(J)) 
IF CRMC JI ALTE UI, SSLE} 60 TO 6148 
SCSMXESCSMAEFKCS) 

SCSMYLSSCSHVIGFEY (J) 

Cunt IMue 

IF (K,ER KUL) GC TO B16 
SCSMVeRSrsmveervecs) 
GO TN &@ts 
FTACLISFYACJ) 
SUYFT@eSuvh TA2eFTACL) 
CONTINUE : 
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.0M20 


D420 
Ded 
ban 
DM20 
nyen 
OMe0 
uMen 
oma”) 
OM20 
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CSINT, cee eS CCUMUILATED VALUE OF THE del (CSC72*A) s0ELY OVER 


THE SPANwISE DIRECTION, 


SLOADCTISSUMEAWTOT ACRE 

VALINTSVAL IVTO(SLEAD (CT aDELY) 

IF CNORAG,NE,.O) GO TO She 

WRITE (6,703) ICeYLOC,SLIADCIeCIRNETCIC) 

IF (4 NE QWUL) 69. TO Su2 

YLUCS((824¢RA)/B2) #SIGM 

SLOTIPBO,O ; 
wPITE (6,704) NSPANP,YLOC,SLOTIP,CIRNET(NSPANP) 
GQ ™ 542 

CONTTA UE 

IF (SSLE3 69 Tn S54 

SECEXXSSC SMX REACTOR 

SECFYESCSMYIwFACTiIR 
SECEVAR(SCS'Y2+SCSMVI RFACTOR 

SECSUCRSECF XA/CUSS AP 

CSINTSCSE!TeCSECSUCENELY) 
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Omen 
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pan 
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206 
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YEXP=CGLOC CIF VJ e(RHeSTIGN) 

GAMLE CIF V)SFRLE RCO CSINT# THOH) SC 2,08 YEXPIIRCUSANG 
60 To 5S2 

SECFxx20,0 

SECFYs0,4 

SECF Y2sSCSMY2RF ACTOR 

SeEcsucso,9 

CGLUC CIE Vel, 0 

GAMLE (TF VAG, 

CONT TILE 


WRITE (Oe793) TCeYLUIC,SLUAOCT 1, SECKKX,SECFY.SECFY2,SECSIICSCSINT, 


t CELOCCIEVI,CIRNETCIC) »GAMLE CIFV)»xXLE(IPV) 

IF (CK NE,KIL) GG TO 525 

YLOCS((H2¢kSd) /R2)*SIGN 

SLOTTIASO,9 

WRITE (6,704) NSPANP,YLUC,SLOTIP,CIRMNETCNSPANP) 
CONTINUE 

IF (€1,€R,1) GO TL 645 

IM{stel 

OL TEAASCYCHK @YCHKBF ) 

SLPCI) 3C(SL9A0(T)@SLOADCIM1))/0LT 
REFSLPSARSESLIAD(1I/0610,9482)) 

IF CABS(CSLPCI)DLEREFSLP) SLPCI)=0,0 

TF (1,&Q2,2) GO TO 6446 

IF (KEN, KIL) GO TD St 

G0 TT) S22 

SLPCNSPANP)SeSLOADCLY/S(OLT/2,0) 

IF CARSCSLPCNSPANP)) IEREFSLP) GO TO 646 
SLPCHKESLP(T) 

TF CSLOCHK,EQ,0,0) SLPCHASSLP(I@]) 

TF (SLPCHK GT e002 AND, SLAC NSPANPI,LT,0,9) GN Th 64§ 
TE CSLPCHK,LT,0,0, AND, SLP(NSPANP),.6T,0,9) GN TM A453 
CUNTINUE 

IF (CSLPCT),EQ,0.0) GN TH 646 

TF (CSLPHF LED, 0, 0-44, 166.4) SLPHFSSLP(T #2) 

TP CSLPHE GTO, VeANUD, SLPCIVL 729.9) GO TM 643 
TE (SLPBE LT. 0,0eANO,SLP(T) GT.9,0) GN TN wud 
GN TN 646 : 


VALMAX TS THE EXTREME VALUE OF CAC /20A8 


ITS vALUE TS TAKEN ENUAL TO THE (Tet)tH Value AF CNC/28 


LIKE#ISE YuAX ; 
VALMAX(1) IS THE VALUE OF CNC/25 NEAREST THE wont 


NUMEYTSENtUMe XT oO) 

TSEGSNUMEXT41 

VALKAX(EIESLUADCI) 

YYax())sP9eSIGN 

VALMAK(ISEQ IsSLOAD(Y¥}) 

YMOX(ISEQ )RBYCHKBE 

TF CIL,EN.9)} YOUTSDOSYRE(JeleNnCr) 

TF CIL.EO,3) YOUTSOEYLC (Jelena) 
RSINTSSLOANCIMY ) @CYUUTSO@CYMAX (1569) 1eSIGN 
VALINTERSINTe(SLOAN(CT@NELY) 
VALNUM(ISEQ) SVL INGE eRSINT 

SLPARFSSLP(T) 

YCHWAF BYCHK 

VLINBFevaLINt 

IF CK ER KUL AND NIMBY T.EG,0) GC Tl S26 
GO’ Tr) S27 

VAaLMax(1)2SL04D61) 


He 20 
yes 
he an 
D120 
DM29 
yen 
ns20 
0”20 
N20 
Dan 
O20 
nie) 
owed 
Deeo 
nad 
Oven 
DM20 
20 
0¥24 


Oxnen 


Ov2an 
Dw20 
OMe 
Nveo 
NMAy 
p4e4 
OMe0 
Neen 
Mey 
omen 
OMed 
Nm20 
nan 
DM20 
DMen 
bveo 
oMen 
OM20 
0429 


OMAN 
N29 
Omen 
OM20 
DmM20 
M20 
Need 
OM20 
DM20 
OM20 
N20 
NmM2n 
Omen 
OMe) 
Heed 
Dan 
Omen 
oven 
D“20 
ben 
DM2e 
oM2a 
DMen 
Den 


euu 
2us 
eue 
2a7y 
eas 
2ag 
esa 
edi 
252 
eos 
25u 


255° 


256 
°s7 
esa 
259 
2nd 
261 
ere 
2o$ 
264 


265. 


296 
267 


268! 


269 
e270 


227i. 
272: 


273 
274 
275 
275 
277 
278 
279 
284 
2a 
242 
283 
2adq 
285 
ets 
287 
268 
PAQ 
290 
Pa 
292 
293 
29 
29s 
246 
eq7 
29a 
e999 
300 
301 
302 


‘30s 


yna 
$05 
$0 


c 


aan 


Aaa 


AAANAAAD 


527 


542 


918A 


919 


914g 
600 


550 
Sua 


YYaxcyys¥ChK O20 
VALNUIMOCLISVALINT OMe 
MOEXTe1 . DN20 
CONTINUE Duz0 
TE CLEQ LP eAND,NUUT.NE 9) »RITE (6,734) AM2n 
TF CNAUTNE,O) WRITE (65735) FeOLTsSLOCT) ISB, YOK VALINT, SUMEXT,DH20 
1 VALMAXCYSER Y,VALNUMC(TSEQ J,YMAXCTSEQ } OmM2e0 
TE CNOUT NEG O,AND,K,ENKUL) WOITE (6,735) IPI, OLT,SLPCsSPANP), DM20 
t ISEQ, CHK VAL INTeNUMFXT, VALMAX(TSED),VALNUM(TSEQ). VMAX CT SED) Omen 
CONTINUE OMed 
Oman 

SUME XAGUMEX/SREF Dei) 
SUMEY1SS5UMFYI/SREF gar M20 
SUMF V2sSU46 Y2/SQEF : OMe20 
SUMF T2cSUMF TA /SREF Dan 
WRITE (h,7L2) SUMF Xe SIIMFYL SUE YS,SUMETO M24 
— OMen 

SIDE FORCE PER UNIT TIPCHORD/S(QaC) DH20 
. D420 
TF (NOR4G,E0,0) GN TO 000 O20 
IF (TTPCHALLT.100,08TLANC) GE TN abo 0M20 
TIPEPL ETIPCHOS/NCW Oman 
PENOMSTIOCHNATITPEPL DM2n 
WRITE (6,708) DM20 
JSES0 OMe 
FACTRKE LLO/SCFKLE®TWOR) : NM20 
FACTRISLOSFACTRI DH20 
NO 94a JTIPLL NCW DM20 
4NTyPssTrToS : ON26 
XLOCEASTIPHTIPEPL DM20 
XLOCNCSXLOC/TIECHD DM2n 
FYSETACITIPYSNENOM ; OM20 
JSESISES( Omen 
IF (TL,FA,1) Gu TO 9A - 9M20 
JENRPONCHE ITIP : DM2n 
XSECSSEVBKRF CS) DM20 
GO TT 919 DM20 
JENHPONCHS ITIP M20 
KSECJSE)SXLF CJ) DM20 
CSMOMECSMOMSAHS( (RE+R2) RE ACTRKMFT2(JTIP) eFKSE) OM20 
CSINTACSINT+AHS(FACTRkwFTP(JTIP) @FRSE) DM20 
CGSELC CJSEJBCCSMNM/SCSINT) ASTGN ON20 
VEXPECGSELCCUSE © CRU RSIGN) DM20 
GOMSE CISEVRC(CSINTRFACTRID/(2,08YEX®) )&CNSANG DM29 
WRITE (6,709) JTIP,JISE eXLUCUC,F ToGAMSE (USE) .CGSELCCJSE)»XSE(JSE) O0M29 
CONTINUE been 
Deeu 

: N20 

PRINT INDIVIDUAL PANEL FORCES OM20 
: NM20 

IF (NOUT,‘E,L) GO TU 548 DM20 
WRITE (6,733) N20 
DN $590 JaJSTART,JEND oven 
WRITE (COe706) Je YCPT(JISOLTPGC I) CIRO CII SECS SEV (JF YAS) 020 
CONTINUE : DM20 
Den 

nen 

o¥e2a 

: Or20 

FIN TRAILING EDGE VORTICES CALCULATED NEYT, Dara) 
GAMMA gg gg GAMMASVINE sPUISTTIVE CHUNTERELOCKWISE, NM2an 
YOGe cece ee YRAR, MEASURED FOIM RNY CENTEQLING, ; D¢20 
Oreo 


307 
$048 
309 
310 
$41 
3le 
313 
314 
$15 
314 
iy 
318 
419 
$20 
321 
322 
323 
324 
325 
326 
3e7 
$04 
329 
350 
$31 
332 
353 
$34 
3$5 
336 
337 
33a 
339 
Bun 
3u4 
$42 
343 
sug 
348 
$46 
$47 
3ua 
3u9 
$50 
351 
$52 
353 
354 
355 
356 
3$7 
356 
359 
$60 
361 
yo2 
363 
864 
365 
S64 
307 
3608 - 
369 


247 


IF (aiNWAG,ED,0) GO TO 531 Den $70 


WRITE (a, 756) ; OMe) $71 

WRITE (4,738) : OM2N 372 

TE (NOEXT,E9,0) GO TO S28 D420 373 
IVRTSTVRTO} He20 37a 
GAMMAC(TVRT JE(SLOAD(E)*#Talbs2,0)*#SIGN OM20 375 
YCGCIVRT I S(RBOCVALNUM(T)/SLOAD(1))2*#S57TGR M20 376 

WRITE (6,710) YVRT,GAMMACTVRT),YCGCIVRT) N420 3877 

Gu TO $51 ; OM20 378 

. 592A CONTINUE OM20 379 
NLSTSNUME XT) O“20 480 

NN 650 SFIZI,NLST Oued 38t 

- [YVRTSIVRTe¢l OM20 362 
TSFOPILSISEQS1 N20 3az 

IF CISEG,EQ.NLST) GO TU S34 DM20 $R4 
NOIPMAXSVALMAXCTSENPL@VALMAK(TSEQ) OM20 385 

. GAMMACTVPT)8@(T%QB/2,0) *UITFHAX®SIGN OH20 346 
YCGCTVRT)& CCYMAXC(TSENPL) @VALMAX(ISENPS JeYMAX(ITSED) mVALMAX(ISEI)) OM20 SAT 

1 SOTFMaxXye(VALNUM(CTSEQPII/DIF MAXI *SIGN OM20 388 

GO TO $33 OM20 389 

— S30 GAMMACTVRT)B(TWORK/2, 0) 8VALMAXCISED) «SIGN : Nuen $90 
YCGCIVRTYSYMAK(CISEQI OCVALINTI/SVALMAX(TSEQ) DOSIGN OM20 $91 

533 CONTINUE Ms O20 392 
aRITE (6,710) TVRT,GAMMACIVRT),YCGCIVRT) OM20 $93 

650 CONTINUE : ‘ DM20 494 
531 CONTINUE DM20 395 

c _ OM20 596 
Cc : : : ; DM20 397 
IF (“SWL,E@,9) GO TO S49 OMed 398 
IFCIL,NE,O) GO TU 5438 Oven $99 

c Omen uno 
c RESENTER ABUVE LOUP FOG LEFT WORTZONTAL ING OM29 aot 
r. : . ° D420 402 
ILat OM20 UO§$ 

KUL aaSalP ae OM20 4o4a 
USTARTaENOP el DM20 40S 

JEND SNMP OM2G 406 

JT LO suHPenCnel . é DM20 407 
TIPCHO aE BCEMPOALICSTIP) OM20 40a 

WRITE COsP21) dou nmed aug 
_ARITE (@, 7029 . DM2en Utd 
wRITE (CO, V2@) . OM20 Att 

ANGL BANGLE Omen aye 
SINANGSSI* (ANG) : OM20 u1$ 

COS ANGECIS (ANGEL) ; ‘ OmM20 ata 
NSPANP BGP ANP OMS at p DM2n u15° 
SIRNwe1 0 : ‘ , 0M20 416 

JENRB +] . NM20 W117 

GN Tho $46 : ; C426 418 

S43 TE (MS$wU,E0.4) GO TN Sua” : OM20 419 

c OM20 420 
C LOOP Sé6 18 FOR UPPER AND LOWER FINS OM20) a2} 
c HERE 1LE0eg5, UPPER FIN DM20 422 
c ILSteeeeelOwER FIN D420 U2y 
Cc. NM20 424 
Cc OMAN 425 
aTwel,o/A2V OM20 426 
TYAS Oenh2V M20 et 
APITECH, 721) ain OmM20 UPA 

wAITE (6,792) . : OMe) 429 

wRITE (6,723) DM20 430 

MUBMS AUP . Omen a3 

1.30 - ; Dae 432 


248 


ANAAANHA 


Saag 


560 


$61 


ANGLSANGLU 
SINANGESTYCANGL) 
COSANGSCNSCANGL ) 
NSP ANP BUGWUPeONGPAND 
SIGNz¢1,0 

JANHD OY 
JSTARTahwpel 
JENDaN3P 
JTIOstsOanCvel 
TIPCHOBXRA(VIPPOXRE(JPTIP) 
CONTINUE 
CIRMETCNSPANP)&0,0 
Tsy 

SUMFXS0.0 

SUMP 2129 0 
SUMFZ286,6 
SUMFT2n0,0 

SLP( 1380.0 

OL T30,0 

VALINTSO,0 
CSINT20,0 
CSMOMa0,0 

NUMEXT30 

1S3tQs0 

NNEXTSO 

ON $46 K22,KU 
Tale) 

IFvslFyey 
8CSMX20,0 


‘8CS84Z189,0 


8C3¥7220,0 
sué{20,0 
SYPANGSARS(ATAN(SWPPLE(J))) 
COSSwPSCN§(SwPAKG) 

OSTPLE SQuPANG EST, 2957795 
SSLESOSIMCH, GT PSIPLE 
ZCHKSZCPT (J MCOSALF OMHARC J) RSINALF 
IF ¢anyMn ) ZCHKEZCPTCJ) 

ZLOC 22CHK an Te 


-TPistel 


IF (TLeEQ.1) GO TO San 

NFRSTSMGsRAPe4GuLPos 

L3PNATPL eMGwRPeMSeLP 

TCATOMSwRp eng P 

KLE CIFV axLECJVOCZCPT CSI @ZLE CS) DOSHOPLE CS). 
60 TO $61 

SERS SMSwRPOMGwLPeNSWiP ol 
TSPNSTPLeMGuRPonSwy PemguisP 
ICETEMSHRPeHMS HL PeMgnuP 

MLE CTF V axkF (J) O(ZCPT(JIMZRE CI) ASHPPLE CJ) 
CONTINUE 


CTQNET(T SPN) 80 —4% 


NOTEs IN Plane FORCE FZ2 ACTS AN QUTENARD AFT CORNER UF FACH PANEL 


HERE? IL#0,,,,UPPER FIN 


IL Pte esol UwEH FIN 


DO 545 LatynCw 

Sum iagunt shu J) 

SIDI B14 TOOTH) 

TF CENE.4) GU TO at2 
CIRNETCNORST)SCIRNETC(NERST)@CIREC JI *SIGN 


OM20 
nean 
D420 
Neon 
OMe 
Omen 
DMa0 
OM20 
OM20 
naen 
bse 
N20 
DMeD 
M20 
DM2e9 
N20 
vméen 
OMe0 
DmM20 
D420 
DM20 
DM20 
NMen 
d¥20 
OM20 
OmMe0 
OMe0 
DMan 
DM20 
Oman 
UN20 
neM20 
omM20 
020 
O20 
bM20 
920 
DM20 
OmMed 
May 
Ov2d0 
9420 
Neen 
eed 
Omen 
oM20 
n1e0 
N20 
OnM20 
0“ 20 
NmMed 
pen 
oven 
med 
OM20 
né20 
029 
O20 
Oreo 
omen 
Né20 


mea 


OmMed 


a$3 
aga 
a3s 
u%36 
as? 
438 
439. 
gan; 
aati: 
au2 
aus 
uuu 
aas 
uub 
ua? 
gua 
4aag 
450 
45! 
ase 
453 
asd 
455 
uSe - 
457 
uSA 
459 
460 
wal 
bbe 
bo3 
464 
265 
N66 
46? 
468 
469 
u70 
a7t 
uTt2 
a7s 
474 
375 
476 
a77 
47a 
ara 
ako 
uRi 
482 
Gas 
UBb4 
BAS 
uBe 
e67 
488 
4Aag 
49) 
ayvt 
492 
aos 
aga 
495 


249 


ata JeOJsJeNCew OMA 494 


TE CKEQ, KU) GO TO 216 i One 497 

GO nM 2i7 i : NH20 49a 

21h Crane +i apiupleCkeuetinebaMeaCINECIS STEN oxen 499 
6o To 213 oM2a0 S00, 

217 CIRNETCTSPN)BCTRNET (ISPD S(CIRC(J=CIRC (JAD) 1 #SIGN OM2e0d SOT 
213 CONTINUE DNM20 592 
TF (NOWRAG,EQ,0) GO fo 31? N20 503 

IF CTLAFQ,1) GO TU $40 : : b4w2n 4594 
CHORDS (J) SxXRB( J) OXRE CI) M20 505 

GU To 341 N20 S06 

349 CHORDS(CS)RXYLBCJIOXLFE (J) A420 SOT 
343 CONTINUE 0429 SOA 
; IF (LEQ NCH) CHORDS(J)E0, SaCHOROS( J), -.. y¥20 509 
FZe( Jae, SECHARUSCALSC TORE Tea spl eUsTwaKkevannoetays : 0420 514 

TF COXCT) LT.G,0,ORSSLE) GO TU 342 : ; O420 St! 
SCSMKESCSNYeFYCJ) 0425 512 
SCS“ZisSCS"ZisFZ(3) : ; OMe 513 

3a2 CONTINUE =F de oMen $14 
IF (KEN KUL) GO TO 314 : OM20 S15 
SCSMZ2sSCSKZ2eF22( 3) é M20 Silo 

GO Ta 337 "S Oued $17 

S16 FTACLISFZ20J) . DM20 S18 
SUMFT2SSUNFT2eF T2(L) : OM20 519 

317 CONTINUE : . 0420 $29 
Sas JaJet : . : 9420 Sei 
DELZSwIDTH( Jot) . 7 O20 S22. 
SUMP XBSUMEXOSTONK “OM29 S23 
SUMFZ1BSUMFZE4SCSMZ1 ’ pM29 Se4a 
SUMFZ2e3uUMF Z2¢SC3MZ2 ; 3 ON20 S25 

¢C : 0420 525 
FACTORaWIDIaCKC OM2n S27 
SLOAD(C TI sSU41 FACTOR - 420 S2A 
VALINTMVALINT@(SLOAD(T) #DELZ) : : 0420 529 

IF (ANRAG,NE.O) GO TO 563 : : OM2u 550 
WRITE (6,704) £C,ZLUC,SLUOAOCT) oCIRNETCIC) DM20 $31 

TF CK ME,KUY GO TO Sus NnM20 532 
ZLOCS((B2VERA) /B2V) @STGN : DM20 435 
SLOTIPs0,9 omM20 S34 
WRITE (6,704) NSPANP,ZLUC,SLOAD(I)sCIRNET(NSPANP) OM20 535 

GO TO S46 NH20 S36 

$63 CONTINUE ; M29 537 
IF (SSLE) GO TH 851 ‘ OmM20 538 
StECFXXSSCSMKeF ACTOR D420 539 
SECFZS8SCSMZieF ACTOR O20 S40 
SECF Zea(SCSMZ24¢SCSMZj)aFACTAR : OM20 Sat 
SECSUCESECFXK/COSSwP . P OM20 542 
CSINTECSINT*(SECSUCRDELZ) : : OM20 Say 
CSHNV aC §ense ABS (ZCHK eSECSUCENELZ) ; Nu20 Sau 
CGLOCCIFV)S(CSMOM/C3INT) #SIGN DM@a 545 
ZEXPACGLUCCIPV)@(RASSTGN) DM20 San. 
GOMLECIFV)EFRKLES((CSINTeTaQB)/(C2,08ZEXP) )OCNSANG OM20 SUT 

GN TA A852 OM20 Saa 

651 SECFKXKa0,0 . 0420 $49 
SECKZ30,0 OM20 $50 
SECFZ2cSCS*ZeRF ACTON i OM20 S51 
stcsuCs0,9 Ses OmM20 552 
CGLOCCIFV)80,0 : OM20 553 

: GAMLE CIF V)S0,0 NM29 SS4 
BS2 CONTINUE OM20 555 
»RITE (6,705) ICoZLC SLADE Ls SECF ax, SECFZ,9ECFL2y SECSUC, CSINT, - D¥20 $56 

1 CGLOCCIEVIeCIRNETCIC sG4MLECIFVISKLECIFEV) An20 S57 

Te (KNE,“UL) GO TN Saag é Nw2n 644 
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NAAN 


56a 


Bt 


822 


ZLACS(CRAVERAIsP2) a3 IGN 


SLOTTPS0,0 

wARTTE (6,704) NAP ENE LUC ESLOT EM e CINE TCUAC ANE) 
CONTINUE . 

re CI,F9,1) GO 0 645 

IMisrej 


DLT RARE CAGNSTCHRERS 

SLECL) 2¢SLOADCT)@SLOADCIM3))I/0LT 
PEFSLOSARSISLOAD(197°10,08B2V)) 

TF COBSCSLPCLT)) LEREFSLE) SLOCI) 30,0 i 

TF C€7,&9,2) GO Tt Ada: 

TF (xcea. ku) GO TO Bat 

£0 TO B22 

GLOCNSPanP)SeSLOANCIV/(OLT/2,0). .- 

TF CARSCSLPCNSP'ANP) IEE REFSLP) GO TO 846 

SLPCHKsS1 PCT) d 

te psec eee 0,0) SLPCNKS SLPCI« el). 

TF (SULPCHK GT, 00,400, SLECNSPANP) LT.0,0) GM TO B43 
IF (SLPCHK SLT .0,0,4ND.SLP(NSPANP) .GT.060) GO! YO B43 
CONTINUE ; 

TF (SLPCI).E9.0,0) GO TN Ado 

IP CSLPHF,EQ,0.0,4ND,7,G6E,4) SLPYFZSLP(To2) 

It CSLPBF,GT,9,0,ANO,SLFCI).LT,0,0) GO TN Bus 

TF CSLPRFLT.O,0,AN0,3LP(1),67,0,0) GO TN Bes 


“60 TQ Ads 


aay 


NUMEXTSNLIMEXTo4 
TSEQSNUME XT So] 
VALMAX(CY)SSLUADCL) 


*- PMAXCLYSRARSIGN 


S VALMAXCTSEWVISSLUADCIMED » 
~ ZMAXCTSEQ)SZCHKAF 


Auh 


Rus 


IF CYL EG, 0) ZOUTSOBZRACJelenCu) 

Te CILJEQ,1) ZOUTSNSZLB(JaetLence) 

-RSINTS SLOAD C1419 @( ZOUTSD|Z4AXC1SE9) ) #SIGN 
VALINT&RSINT+(SLOANCTIAMELZ) : 
VALNUMC I SEQ) SVLINBFeRSINT 

SLPAFSSLPCT) 

ZCHKBFS7OHK 

VLINBFSVALINT 


TF OK ER KU AND NUMEXT,ZER,0) GO TO B2e. 


82h 


G0 TN Be 
VALMAX( 1) SSLOAD(1) 


 ZMAXCL)EZCHKK 


827 


VALNUMCLYSVALINT 

NOEXTS! 

CONTINUE 

IF CY,EQ LAND NUUT,NE,0) #RITE (6,743) 


OMAN 
0M“20 
NéM20 
0420 
OM2a 
NM2Nn 
OMen 
420 
Oven 
D420 
0420 
Naan 
O20 
neo 
nMand 
ned 
Dv20 
N20 
DM20 
M20 
0420 
0420 
M20 
OMen 
Nmen 
Du20 
OMe0 
OM20 
Omen 
DM20 
OM20 
o420 
O20 
oM20 
M20 
0420 
0M20 
DMe0 
DM20 
DL Ya?) 
DM20 
DM2!0 
DH20 
0420 
DM20 
OM20 
020 


IF (NOUTNE,O) “RITE (6,735) TeOLT, SLPCT Pe TIEN, ZCHK, VALINTsNUMEXT,DMON 


1 VALMAXCTSED) » VALNUMOCTSEQ) pZMAX(CISEN), 


TF (NUT ME Ue AND KEI .KU ) ARITE (4,755) IPS, NLT, SLE CNSPARP) » 
“HP ISE QD, ZOD VALINT » NUME XT» VALMAX(ISER) PVALMIMCISEQ) »2MAX(ISER) 
mT) : 


CONTINUE 


SUMFXSSUMEX/SSREF 

SUMFZ1SSUMEZE/SSEP 

SUMP Z2BSIiMFZ2/SKEF 

SUMFTASSIIME TA/SREF 

WRITE (6,731) SUMP x, SIMFZ1 »SUMFZ2,SUMFTA 


SIDE FORCE..PER. UNIT. TIPCHRDS(Q8C) 


I® (NNRAG,EG.0) GO TN ane 


DM20 
D420 
DM2n 
DMR20 
DMe0 
DM24 
OmMe0d 
020 
oven 
oan 
onan 
Amen 
M20 
Nmen 
neao 


559 
569 
S61 
S62 
Sats 
Soa 
56S 
S66 
S67 
564 
549 
579 
S71 
572 
573 
5746 
575 
S76 
S77 
57a 
s79q9 
5&9 
Sst 
568A 
SA3 

SAu 

585 
58o 
S87 
Ska 
SAO 
590 

591 

592 
593 
59a 
595 
5964 
597 
598 
599 
400 
oot 
692 
603 
6048 
605 
604 
607 
60A 
409 
619 
oi! 
at? 
615 
614 
615 
bia 
617 
ais 
619 
424 
621 


251 


252 


AAA 


ANAANAA 


9290 


92t 


O14 
4oo 


asa 
Qué 


62a 


634 
633 


653 


TE CTIPCHO,LT,100,9*TLRAC) GM TH 499 
TIPEPLSTIECHUD/NGw 
DEnNMS TIOCHOaTIPEPL 
WRITE (6,707) 

FACTAKS 1,0/(FKLE@TanP) 
FACTRISI, A/F ACTRK 

NO uid JTLPSi,NCw 
AJTYPSITIP 
XLUCSAITTTPeTTPEPL 
XLOCOC axXxLAC/TIOCHO 
FISETACSTIP)/ORNUM 
JSESISE +! 

IF CILEO,1) GH TO 920 
JEN SPeNCK SIT IP 
XSECJSE)SxXRF CJ) 

GO TO 921 
JENPANL Sor Cwo ITIP 
XSECJSEYSXLF CI) 
CSMOMSCSMEMOARS( (RACH?) eFACTRKOFTAC ITIP ab KSE ) 
CSINTECSINTOAAS (FACT HKSFT OC ITIP VOR KSE ) 

COSFLCC USE SEC CSMOUM/CSINTIeSIGN 

ZEKESCCSELC (USE e(R4ag IGN) 

GOMSE (USE VECCCSINTOEARTHID (C2, UsZEXP) ) eC NSane 

WRITE €65709) JTIP, JSF, XLOCOC FIT, GAMSF (JSE).COSELC(ISEY, XSECJSE) 
CONTINUE 


ro 


ORINT [NDEVIDUAL PANEL FORCES 


IF (NOUT,E0,0) GO 1) uae 

WRITE (6,759) 

NO 450 JeISTART,JEND ; 
ARTTE Coe7TOG) JeZCPTC1) eOLTPGCIISCIRC( I) EXC SY SFZESY,FZ20I) 
CONTINUE : 


FIN TRAILING ENGE VIRTICES CALCULATED NFYT,. 
GAMMA og gp GAMMASVINE SPUST TIVE COUNTERCLOCKSTSE, 
2OCeceweegltAe, PESSUBED FROM BODY CENTERLINE, 


IF (4NDR4G,EQ0,0) én ™ 631 

ARITE (60754) 

wQTTe® (6,742) 

IF (NOEXT,EQ.0) GO TO 628 

IVRTSIVRT4! 

GAMMACTVRETIS CSLOADCLI®T4NH/2,0)*eSIGN 
ZOGOEIVRIVSERASCVALNUMET )SSLUADCT)) )aSIGN 

WRITE (Oe719) TVRT,GAMMACIVRT),2OGCIVQT) 

GO TN A314 

CONTINUE 

NLSTSNUME KTO) 

00 65) TSEGZL,NLST , ss % 
TVRTsSIvRTel g 
ISEQPLSTISEGQ41 

IF CISEN,EG,NLST) GU TO 644 

NLP MAX aval AX (TSEQP) YeVALMAX (TSF) 
GAMMACTVPT)Re(THOK/2 NY eDIFMALHSIGN 


ZCGCIVETIS COZMAKCTSEQPLI wv aL MAX(ISEQE1 Pe ZMAX(ISED) eVALMAXCT3EQ)) 


1 SOTFMAX @(VALNUM(CTSENO]D/NTF MAX) @SIGN 

GO TH 653 

GAMMACTVRTISCTWOK/S2Z 0 wVALMAX(T SEG) &SIGN 

LOEGCTVaTy= ERE Eso CEN BEM ELIE CS Dee ER este 
CONTINUE 

wRITE (6,710) vleeidendnrperaeean 

CONTINUE 


N12) 
Yeo 
Nb“en 


42) 


D429 
A-aA 
n“20 
AMaA 
Duan 
0420 
Duan 
Quan 
Deen 
men 
Nuon 
ned 
N20 
OM20 
Nemec 
Med 
Amon 
N4en 
DMet 
Onpa 
4209 
nun 
920 
pven 
DMen 
DMev 
D426 
Nen 
ysed 
N20 


‘Duan 


Neen 


- 020 


DMean 
Oan 
D“20 
O29 
Ouei 
NM24 
29 
neg 
O42 
DM24 
nen 
O29 
OM20 
OmMeo 
Hee 
pan 
O4en 
oM¢20 
N20 
OMe0 
OM20 
Omen 
OéMe0 
QMaYd 
Nan 
Deen 


hea 
b23 
ae 
625 
ber 
ho? 
42A 
629 
A434 
n3i 
632 
633 
534 
555 
S35 
437 
038 
639 
64) 
oul 
hue 
aug 
bau 
US 
aus 
eu? 
544 
Or) 
650 
oS1 
442 
n5$ 
454 
655 
656 
657 
658 
659 
660 
bol 
662 
463 
bee 
665 
465 
s67 
£648 
669 
H70 
671 
HT2 
ors 
ava 
675 
67h 
avy 
675 
679 
480 
O81 
65 
588 
aBu 


Aaagn 


AanNaAaoaoa 


o3! 


549 


“§00 


CONTINUE 


RESENTER ABOVE LOOP FoR LOWER wING 


TF CIL,NE.0) GO TQ 549 
WRITE (60721) ADH 
WRITE (6,702) 

WRITE (6,725) 

TLat 

KUSHSHNe] 
JSTARTah3Po] 
JENDENPANLSG 
ANGLSANGILA 
SINANGSSINCANGL) 
NSPANPENSPANPOMSWOD 
S1GNs01,0 

JEN3PO1 

JTIPSNPANL SenCwel 
TIPCHOSXLA(NPANLSIOXLECJTIP) 
GO TO S44 

CONTINUE 


RETURN 
END 


SUBROUTINE THETINCMSW,hT) 


VERSTOM: NEMONI 


THIS ROUTINE READS THICKNESS SLOPES FUR AN ARATTRARY WING, 


COMMONS THKUATSNIVATONCHT »NTOR, MSWT(4),NRPT, HPT, K3PT/NTHDDASYMT, 
4 NVEPT »p SWLET( 29,4) oSWTET( 2064) o¥YTH( 20,4), THETAL (400) 


COMMONSTHTASSNINIS, FHET (490) 
FORMAT(RE 10,0) 


MI BSNCWTe#Mgw 

TF CNUNTS,NE.0) GU THU § 

“na0 

NO ¢ JINwaLeT, newT 

UNBMNONCWT 

BEADN(S,5SO0) CTHETC SI, SaunngMny 
RE TURN 

READ(S,500) CTHETC JS), Jaleo vCwr) 
DO @ Jtee*Sw 

IIa (Jet ecw 

DO & KS4,NCuT” 

KKS TIO“ 

TMET (KM) THET(K) 

QETURN 

ENY 


omMed 
NmMea 
OM20 
Meo 
bird) 
O420 
OM20 
NM20 
0r20 
omen 
NM20 
N20 
pveo 
420 
NMan 
OM20 
OM20 
O20. 
OM20 
OM20 
O29 


~ OM20 


omen 
DM20 
DM29 
O29 


Nnet 
DM2\ 
O™Met 
OMal 
omMet 
OMe 1 
pve! 
O™Me2\ 
“Oat 
OMe1 
nM2et 
Omal 
OMaL 
Nmet 
NMet 
DMA 4 
NMOL 
UMet 
bDMet 
Dek 
omMet 
pMp 
OMeL 
OM21 
D214 
nuei 
Dred 


685! 
684 
667 
66 
489 
490 
691 
692 
693 
694 
695 
696 
697 
694 
699 
700 
701 
702 


703° 
70a 
705 
70% 
707 
708 
709 
714 


SENN ET UN 


253 


254 


AaAnNoOn 


Aan AAA 


AAAAN 


aAaAN 


aac 


AANA 


500 
S510 


a 


10 


1s 


2a 


25 


SUBROUTINE THKIN 
VERSIONS NFMONY 
SUBROUTINE TO) INPUT THICKNESS OATA, 


LOGIC4L AaSyey 
COMMON/STHKDAT/NTDAT A NCHTNTPP,MSMT( UY ,NAPT, HPT, N3PT,NTHD, ‘Syn, 


1 NVERT,SALETC 20,4) ¢SWTET(C2054),YTH( 20,41, THETAL (400) 
COMMON /TSPANS/SPANR, SPANL » SPANUsSPAMD, SHPLEG, SHPLEL, SEPLELYy 
1 S*#PLED,SWPTER, SYPTEL ,SWOTEI SZ S*PTED,RBAN 


COMYONSTHTASSNUMNIS, THEFT (400) 


FORMAT(10TS) 
FORMAT(3F10,0) 


INITIALIZE INDICES 


NLPay 
NUP 30 
NDPs0 


INPUT RIGHT WING DATA, 


REAN(5,500) “Se TCL) -LVS*T,NUNTS 
MSWPEMSWY( 1) 41 , 


IF SIVESLIP IS NON®ZERD 18 TF LVSWYs0, SPANWISE SPACINGS 
ARE WOT READ TN, THEY MUST BE CALCULATED ANDO EQUALLY 
SPACED, SO BREAKS IN SWEEP ARE ALLOWER, 


1F (ASYMT OR, LVSHT,EQ,9) GO TOS 

READ(5,510) CYTHCT, LD y SHEE TELS Le SHTETCL, Y),fet,Sap) 

62 TO 40 

CALL ENGES(“Swb,SPANR, QB, SwPLERsSaPTER,VTH( 1 e1)/S4LET(Le bdo 
SaTEVCIe1)) 

TOR CLNUE 


SUBROUTINE THETIN REALS THICKNESS SLOPES, 


CALL THETINCMSw TCL) eNRPT) 
OMY AS Tet, sRPT 

THE TAL CY ATMETCI) 
TECNTOAT,EG.1) GU TO 40 


INPUT LEFT WING MATA TF SIDESLIP ITS NON@ZEROs, WING ALONE, 


TFC,NNY,ASYMT) GU TA) 25 
RESD(5,500) *SaT C2) eLVSHTeNUNIS 

“SuPomgwt(2)o! 

CALL EDGES (#8uOpeS@ANL p@WAOD,@S4PLEL»<S4PTEL, ¥THE1e2)¢ 

1 SHLETC1» 2) ,8eTET(1,2)) : 
CALL THETING4SWT(2) NLP) 

00 20 Tet,NtP 

THETALCI@NKPT )STHETCT) 


INPUT UPPER wING DATA ITF VERTICAL wINGS ARE PRESENT 
7 AND THETR GEOMETRY IS NIFFERENT FRAIM WORIZO.TAL WINGS, 
NOTE THAT NICAT 18 ANw NE I, 


COMTTNUE 
TFCNVERT.FQ,9) Gi) TU So 
REAN(5,500) 49@T(3),L VST, NUNIS 


D422 
O22 
N22 
N22 
Nee2 
DM22 
022 
DM22 
D422 
QM22 
D122 
nurs 
D422 
M22 
QM22 
0422 
Nee 
NM22 
OMee2 
D422 
N22 
OM22 
Nue2 
OM22 
DN22 
M22 

D422. 
DM22 

Nu2e2 

DM22 

DOM22 

D422 

OM22 

On22 

On22 

One? 


M22 


N22 
On2A 
On22 
oN22 
422 
ONe2 
OMe? 
One2 
DM22 
OM22 
One2 
Ove 
422 
NM22, 
)¥22 
N22 
Ome 
OM22 
nne2 
N22 
D422 
DM22 
N22 
D422 
DRI -r4 
0422 
oNee2 


- 
PORVMELSywWe 


i! 


-aan 


Oan AaNAaIaaa 


AaAAaa 


o 


27 CALL EDGESCHS4Ps SPANU, RHIC, SHPLEUs S*PTEU,YTY CY, Sd eSHLETCI,3)y 


1 


MSwP=nMSuT(3)el 


TF CASYMT OR LVSHT,EG 9) GO TO 27 
REAN(S,919} CVTMCT SY,SMLETCT  SPeSHTETCT eS) 61 ate 4Sar) 


GQ Ye QA 


SeTET (1,539 


28 CONTINUE 


30 


35 


. 4 


4s 


46 


50 


1 


CALL THETING SWIC S$) ,NP) 
00 30 ts1,NuP 


THE TAL (NQPTONLPSO] SINETCT) 


TNOUT LUYER KING MATA TF STVESLIP 1S NON@ZERU, WING ALUNE, 


TEC NNT ,ASYYT) GU FU §9 


READ(S,500) HSWT CUS eLVS*TeNUNTS 


MSwPeVQuT(s)eot 


CALL EDGESCY4S#P, @SPAND, @RHOD, oS¥PLED peSuPTEN,VTH( LU)» SMLETC 154) 6 


SATET(I.0)9 
CALL THETINCMSWT CO) ,NnP) 
90 35 tai,hhP 


THETAL (MROTOALPONUPS] PSTHETC(T) 


69 To $0 


“ALL DSTA INPUT at THI§ PUINT, 


SET UPPER WING EQUAL 1M BIGHT WING IN SyMMETRIC 
CASE (NTNATE] AND NVERT NE 0) 


CONTINUE 

IFCNVERT.E0,0) GO Tl 50 
“3wTC3BISMSwT(1) 
MSWOsMGwt(t)ol1 

OO 45 Yai, Sap 
YTR(Ts3GYTHCI,1) 
SYLETCI»3)SS*LETCI,L) 
SWTETCTs S)SSNTETCIAL) 
NUPENRPT 

0 46 [1 eNkPT 
THETALCNRPT OLD STHETAL (1) 


CALCULATE INDICES, 
CONTINUE : 
MBE TANDOTSNLP 
N3PTANRPTENUP 
NTWPENSPTS+NOP 


PETURN 
EAN) 


SUBPNUTINE THKLYT(C2P, IL) 


VERSTONG REMUNE 


THIS RNUTINE LAYS QUT SUURCE PANELS «IN A SINGLE WING SURFACE, 


NIMENS TAN 40P (5) 


COMMON ZONE SCI RC (2500, 9EL TOC 259) p FNC 250), PNLE (250), S4PPLE (250), 
PS*PPTE (250) pVNOR(251), KIAR(C 250), LHAR (250), AL PT (250), YCPT (259) ,2CPTIN2S 


0422 
D“22 
OMe? 
DN22 
DMe2 
DM22 
D422 
Nap 
Due2 
DM2e2 
OM22 
Deae 
N42? 
nue? 
Dea 
Mee 
DM22 
On22 
pis] 
DMee 
N22 


OM22 
Nmue2 
OMe22 
OM22 
Q“e2 
QM22 
OM22 
oM22 
DM2e2 
N22 
DM22 
QM22 
DM22 
OM22 
ON22 
DM22 
OM22 
nuee 
Nae 
DHe2 
QM22 
NM2e2 
QéM2e 
NMPe 
OM2e 
422 
N22 
NH22 


D423 
OM23 
Mes 
OMes 
OM25 
Meg 
D423 
OM23 
423 


2FORPwNS HREwW~ 


— 


255 


es 


256 


aan 


ANANHAAN 


aan 


AAAAN 


(26259), LF C250), XL (250) 6 XRF C250), KKB (250), V1.6 (250), YRO (250), 2LF (250125 


30), ZRF (250) ZLB(250),Z2R85(250),5"T (C125) ,CST0125) -SNT2(5 25) CST2(1250%23 
GVeTOCSONIA KFRIPCIOO) ,a, ALFA, ALER,ARWINGSHA,AQV, RE TA,RETARSCONST, M23 
SCUSALF ,COSBET, CN» OX LEM, FMACH, QB, SINALF,SINAFET, SLUPE,TLRNC,TIPY, D423 
OTOTLR Us Vere UCHK yp VOCHK, WCHK WHIPS Ke DUMY ZT eTE pe Tle So MSHRyMSHL pMSWU, DQG 
TYSWD pNBIPSNCRKX NCH, NRAG HHP, LPR,NRP ZN SP ,NOCPTZNOL INP ONQUT es NPANL Ss DN23 


BNPRESS,NeAP, ASYM sBOIDY, DELTA NOS YM O23 
COMMONS THKDATSNTOAT ONCWT NIPR,H SHI (a) ,NRPT,HHPT,NSPT,NTHPSASYMT, 425 

-t NVERT»SHLETC20 41, 54TET(29,4),YTH( 20,4), THE TAL CONG) OMe 
COMMON /THKPAN/XRET (400) XLET (G00) XFATCUCH), XLAT(YO0), 424 

! YRCOT(COO eo YLET( 400)» ZRET(C G00) ,Z2LET( 400), Z7RBT (400), OM23 

2 ZLAT( 409) + SLLET (490), SLTET( 409) 0423 
LOGICAL LEFT OM2§ 
O4Ta OTORZ,0174552925,/ Oey 
Nay 

FORMAY STATEMENTS N23 
0423 

700 FORMATCIH1,50X,4OHPANEL CORNER CUQRDINATES FOR wI'G PANELS) 54243 
70S FORMAT ES/SK AHS ep ISX es QHLE 1S Hes, LAX ,AHLHGISX, LHe ep lex, 2HRE sg 1SX, D423 
1 PHaslLeXpAHRE/LAV, SHU, IK MeV es IX LHZ, SK, 1 Hw, SK pLHXeIXG INV, 023 

2 OM, LHZ SK a bHe se SK LHX WK LHVO IK, IHZ SK afb Shy LHrs WK, LHY, 0423 

3 GH pAUAZ  SSBK eo Lrw, 29K LH wee LHesL SOC RHA) S D424 

a BAe LN, SIK er Leta, 2IXe tHe) bras 
TLQ FORMATCS/IN SOC LHm) ,LTHRIGNT WING PANELS, S7 (tHe) /)} OM23 
TAL FORMAT C/IX,STCIHOD,LOHLEFT WING PANELS,S7CiHe)/) ‘DM23 
T12 FURMATOC/IX s96( 1 He), LTHUPPER wi iG PANELS ,5S7(1He)/) OM23 
TUS FORMATOC/IX,SOC1He) ALPHLOWER WING PAWELSSS7(1He)/) DM25 
-T20 FORMATS oT Se SK oF Dag IKK Vg Wo LX oF AA y HME OI Ue IK PFO Ue IXsFUU, NM2% 
1 Loaf Deb I KPI dei Ke FO Ur THRO U,IN,FO,U,IX,F9,U) OMéZ23 
OM23 

VERTICAL “ING COORDINATES AWE CALCULATED IN THE SAMF ®AY M23 

AS RURITZONTAL CONRUINATES, Y AND Z CONROINATES ARE oes 

THEM INTERCHANGEN FOR VERTICAL WING, " OM23 

LEFT STANDS FOR EITHEW LEFY HORIZONTAL WING DM23 

OR LOSER VERTICAL #IMG, NM23 

: ON23 

LEE TSIL EN,1ORVIL EQ,3 DM23 
NSRILot D¥23 

NDP (CL) SNePT DH23 

NOP (2) ENHPT nMes 

NOP (3VSN3PT 0423 
VMSWPseguT(NS) +4 OmM23 

: nM2§ 

SET CONSTANT SWEEP INDICATOR, oM2a3 
OMe 5 

LYSxTs0 D423 

TF (4SwP,60,2) GU TD 15 Dé23 

NO $0 Ya3ehSwP NM23 

_ YMelef ; . 0423 

190 TFCSHLETCIeNS) NE GSHLETCIMe NSD CORGSHTFTC IANS) VES SHTETCINSNS)).  WM2S 
1 LvSwfal O23 

16 SLPWLESTANCSHLE TC MSHP NS) AO TOK) OMe3 
SLPwWTESTAN(SWTET(MSNP,NS) AUTOR) DM2$ 
CSTOEPSCRE OMes 
ANCARNCHT OM23 
“LEXS0,0 mas 
OM23 

LAY Nut PANELS, INDEX I RUNS SPANWISF, K CHIISNAISE, O23 
02 $ 

CALCULATE QUTADARM SIDE FOGE FOR A CHORHAISE ROW, nMe3 

DM23 

0 60 TaAe*Swe 0423 
I“‘atet N424 
TECLVSWT,FO,0) GO TH 20 Dues 


anoaa 


aaa 


aan 


20 


SLOw_ESTANCSWLETCT,NSIRNTOR) 
SLEETESTANCSWTET(I, 9) SCO TNR) 
SLPOTFSSLOaLEeSLPWTE 

CSIVESCSIME Oe (VTH(TsNSG)MYTHOIM, NS) ) #SLPOTE 
TE(T.E9,2) GU TU 30 

JLESCTe3ONCHTol 

TFONS,GT.1) JLESJLESNDP(NS@1) 


ALE XaKRPTCJLE) 


3n 


IFCLEFT) WLEXSXLETCJLE? 

CONTINUE 5 : 

te) 

CALCULATE PANEL LEADING AND TRAILING EDGE 
; SLOPES aNp CURNER COORDINATES, 


DC SO KBL,NCHT 
ISCT 2S anCaten 


“ TPO'S,G67,1) JayenDO(agei) 


AKMaKe 


AK gk 


EclesiseuUbul cain weaLenie ance 
SLTETCJISSLOEwLE AK SSLPDIF SANC 
TF CABSCSLLETOCS))eLE.9,001) SLLET(JI50,0 


TF CABSCSLTETCS)) LE gg 001) SLTETCJI80,0 


-WRET(J)s AKMWCSTDE/ANC WHC YTHCI,NS) OV INCIM, NS))*SLPWLE+*LEX 


"INTERCHANGE LEFT ANID RIGHT COORDINATES FOR Lerr wING, 


XLET (J) SAKMRCSIOLP/ONC HO ALEX 
XLBTCSPBXLETCUPOCSIDESZANCH 


XPBT(SISEXRE TCS) 4CSTVE JANC H 
YLETCJa¥TRCIN,NS) 

YEO TCS BvVTHCI,NS) 

IFC WOT LEFT) GO TO ao 


“TEMperL etd) 


XLET CT) axKQP rc gy 
XRETCSSTEMD 
TEMPSXLAT(J) 
YLBT (J) SxRBT(J) 
XQHT CS} RTEMP 


_TEMORYLETOT) 
-YLOTCS)EVRET(S) 


a0 


VOC TCS) aTEMp 
TF CSLLET(CJ),EQ,0,0) SLLETC UI SeTLRNC 
TF (CSLTETCUD EQ e000) SLTETC JI SETLANC 


CONTINUE 


_ ZLETCS)80,9 
-ZRETCS)20,0 


ZLBT(J)80,0 
ZRBT( SISO, 


TINTEPCHANGE ¥ ahi 2 COMAKOINATES FOR VERTICAL 


TF CMS,LE.2) GO TO 50 
ZLETOMYSYLCTOS) 
ZLBTCIVSYLE TOS) 
YLCT(JS)50,9 
ZRETCSPSYROT OS) 
ZRKTCSVAVoCT CS) 


“ wWROTCJ)a0,0 


50 


COMT Tue 
CSINMEPaCSIOE 


PANELS, 


yes 
Mey 
“D423 
Ov?A$ 
OM2$ 
HM23 
OM2$ 
Nu23 
N23 
D425 
OMe 
0“23 


“OM23 
"D423 


Oma 
“omas 
oma’ 


DmM2s” 


oves 
O23 
OMe3 
DM23 
OnMe3 
nMes 
OMe 
nes 
DM25 
Q423 
DMe$ 
Nes 
D423 
OM23 
“23 
OM23 
OMe2$ 
OmM23 


“ pM2as 


DM2% 
O23 
DM23 
DM2$ 
M2 $ 
DMa$ 
NH23 
OMe $ 


- OM23 


DN2% 
N23 
OM23 


DM! 


DM23 


- pm2y 
“M23 
- OM23 


OM2$ 
Omes 
Dée3 
dMeas 
ges 
OM25 
Hues 


“pm23 


OMe$ 


11e 
vii 
ile 
t13 
114 
115 
114 
417) 
114, 
11% 
920 
12t 
122 
123 
leu 
125 
126 
127 
128 
129 
t3a 
131 
132 
134 
154 
155 
134 
137 


257 


258 


AON 


TAAAHOAN 


on 


Ta 


75 


80 


90 WRITE (H.720) CJeKLET CI) 0 VE CTCJVeZLET 
1 


i 


COMTT NUE 


DEBUG PRINT GF PARNELL CNRNER COURDINATES, 


IF (NTOR,LEQ,9O) RETURN 
TPCIL.GT.9) GO TO 79 
ARITE (6,700) 

WRITE (6,795) 

WRITE CO4710) 

Nita 

HF SNRPT 

6M TO 90 

IFCIL.GT,1) GO TO 75 
WHITE (CO,711) 
“SBMRPT oS 

NPENHPT 

60 TN 90 

IFCIL.EG.3) GO TO 80 
WRITE (6,712) 
NISNHPT 44 

FAN 3PT 

6) ™ 90 

WRITE (6,715) 

NIBN GPT 461 

NFSNTHD 


RETURN 
ENO 


SUBROUTINE THKQUT 


VERSTONE NEMONG 


THIS QNUTINE PRINTS QUT THICKNESS Data, 
THICKNESS SLOPES ARE PRINTED, 


LOGICAL asyet 


COMMONS THKDAT/NTIDATONEHT ONIPR»MSYT (UO) NPPTSNHPT SNSPTNTHO,ASYMT, 
NVERT Ss SHLET C20, 4) - SHTETL20 + YI,YTH( 20,4), THETAL (400) 


DATA PI/$, 1415920547 


(Je XLBTCS), 


VECTOI) 6 ZL4T 
LRET CSD Oo VRET CID, ZRET(S) -XRYT CS YHCT OS) CUd,ZL9T(S), 


eZRBT(J) pJENI, NF) 


THEY 4RE MIVIDED HY PT, 


O¥23 
es 
DM23 
Om23 
023 
DNQZ 
OMe$ 
425 
0423 
0423 
Ones 
DM23 
DM23 
yMes 
DM23 
0423 
0423 
0423 
DM23 
M23 
OMP$ 
DE T-2 
OM23 
0423 
ONM253 
M23 
NMe3 
DMAS 
OMeas 
425 


nad 
Dé24 
oMea 
On24 
oM24 
DM24 
OmMed 
ves 
OM2u 


OMe 


OM2a 
DvM2a 


600 FORMATC( 141, SOX,SOHTNPUT VALUES fF THE LOCAL SIRF ACE store OF THE. ToMea 


610 
620 
630 
640 
650 
440 
AT 


675 FORMAT (SAX, TS,4%s SF10,5) 
630 FORMATC/164¢13,300 THICKNESS PANELS ARE TN BF LAID NUT/1 ee TS. 
20% CRORNWISE ROWS s[TH,I3,12H IN EACH Bia) 


1 
2 
5 
a 


{ 


LHICKNESS/32X oe S2HUISTRIBUTITIN, 

2UEZ3TIX, GIHIS FOR THE PANEL MEAREST THE LEADING EDGE) 

FORMAT( //5X,1AHRIGHT wING SURFACES) 

FORMATE S/SYZATHLEPT SING SURFACES) 

FORMATO SASK e1BKUPPER WING SURFANES) 

FORMATE S/SXZLAMLOWER WING SUPEACES/) 

FURMATCLLX, SHRI, SOX, 4HSLOPES) 

FIIRMATCAX, TSe Seal /14o, 27K se AF 19,5) ) 

BORMATOLH1, 26H WING THICKNESS INPUT DATASS/IGX, 
SSHSPANATSE LUCATTONS OF PANEL. SIPE ENGES AND SHEED ANGLES/ 
ZOKs2THNE wING SECTION TO THE LEFT, //26%, 

TE SWEFO/20K HT, SX ep BHLOCATIUNS 

24K UHFER TSX 6 PHNEGHEFS, 3X5 THOEGREES) 


29HSPANWISE 


FOR EACH CHOROWISE Kw THE FIRST VALOM24G 


Ome 
OM2a 
OM2u 
QéM24 
DM24 
OMed 
QM2a 
OMe 
OmMe4 
OmM2u 
OMe 


Maa: 


Ones 
Naa 
OM24a 


134 
149 
140 
161 
{42 
143 
fag 
16s 
146 
147 
1403 
149 
150 
tS1 
152 
15$ 
154 
{$55 
1Se: 
157: 
154; 
159: 
169° 
lol 
162 
163 
the 
165 
Lhe: 
167| 


Senet KREUWNH— 


fake ks ee aanano. 


aaa ana 


ann aaa 


aan 


eeccencron (UTPUT THICKNESS PANEL GFOMETRY aomncccane 
HEADING ANU RIGHE wING DATA 


ARITE (6,670) 
wRITE (6,610) 

NSPenSnT(1)ol 

HRITE (6,675) CLeVTHCT Ls SALEPCl olds SwTE TCI, ti, tat ,gP) 


— aRITE (6,680) NQPT»NSar(i)sNCwe 


LERT WING RATA IF NUN@ZERM SIDESLIP ANN WING ALONE, 


TEC NIT, ,ASY'T) Gu Th 2 

wRITE(C6e620) 

nNSPamSwt(2)e} 

WRIVE (606075) (Ie VYHC1 92) oSALET (102) oSWTETCT 29, TS1,NS8P) 
NLETaNHPTeNRPT 

WRITE (67660) NLFETeMSwt(2),NCWT. 


UPPER WING D4TA IF VERTICAL AINGS PRESENT 


CONTI UE 


“YF CNVERT.FO,0) GO TO 4 


WRITE (6,650) 

NSPamguT(3)el 

WRITE CH0679) CLeYTHCI, ieee hsaigeutenewaiaeinaes 
MIPP AN ZO TenHPyT 

WRITE (6,690) NUPP,WSwT($) pNCWT 


LUWER WING DATA IF NON@ZERO STOESLIP AND WING ALONE, 


IFC,NOT,ASYMT) GU TN g 


eR TTE (60h49) 


NSPamQuilCajet 

WRITE (69675) CLOYTHC LU) sSHLET(I,4) SWwrET(T, 42,121 »NSP) 
NDP SNTMPa@N SPT 

ARITECOsOKU) NOPSOMSHT CU) ENCAT 


ewwewscosom SUTRIT THICKNESS SLOPES aeuseeswes 


CONTINUE - 


MEADING 4N0 RIGHT 4ING DATA 


wARITE (Ah, 600) 

ARITE (6,610) 

WRITE (6,650) 

MNEQ 

T=0 

010 S Jawate RPT eNCwT 

MNSMNONCHT 

Tsfet 

WRITE (He650) TeCTHETAL CI)» Ja ginny 


> CUNTINUE 


LEFT “fNG DATA ITF NONaZE 8) STDESL TP AND “WING “BLONE 


IFC.NOT,4SYMT) GU TO an. 

#RITE (66620) ‘ a 
“OTTE (00050) 

Teo 

NPPOBNRPT Se] ; : wae 


NM2a 
Hwea 
Om24u 
Ds28 
0424 


“oraa 
“-OMe24a 


OM24a 
0428 
Owed 
bag 
OMe4 
OM2a4a 
QM2u 
OM2a 


“DMe24a 


OmM2u 
DmM2a. 
DmMaa 
OmM2u 
ONed 
O24 
O24 
M24 
Dea 
Ove 
424 
DmM2a 
OMaa 
OmMea 
OM24 
Amueu 
DM2Qa 
Onga 
OmM24 
QM2a 
Q424 
Nmea 
Omeu 
OmMea4 
OmM24 
QMeu 


. OM2a 


Nau 
D424 
Mea 
nu2u 
OmM24 
DM24 
DM2a 
DM24. 


Need, 


\Maa 


OMed. 


DM24, 
DM24 
NMea 
M24 
QM2a 
Oreu 
Nv2ad 


.oMed 


DMed 


35) 


ae 


260 


Oana 


a AAAARAAHAAN 


AAD 


“ANA - ..- 


19 


20 


AN 10 JdeasRPP MBPT eNCwe 
MREMNONCHT : aye a : . 
IstTeot 

4RITE (6,600) qv CTMETAL CI» JSuNe MN) 
CONTINUE 


UPPER WING DATA IF -VEOTICAL WINGS POESENT : : 


CONTINUE 


_TFCNVERT.E€0,0) GU TO uO 


wRITE (65450) 

w RITE (6,650) 

rz0 

NHPPSVHPTs{ 

00 25 JNWBNHPPAN3PToNCAT 


. MNSMHONC wT 


25 


34 


18141 
ARITE (.660) IT, CTHETALCJ) »JasNw,MNn) 
CONTINUE 


LUER wI%G DATA IF NON@ZER() SIDESLIP AND WING ALONE, 


IF(,NOT, ASYMT) GO TO ao 
WRITE (65640) 


“wRITE (6,650) 


1sv 

N3SPPENSPTe]L 

OO 30 JNeen3PP, NT MP,NCHWT 
MUSMNONC WT 

TSIet 

WRTTE (65660) 1, CTHETAL GJ) edegnm, HN) 
CONTINUE 


DIVIDE INPUT SLOPES BY PI rf 


ag 


4s 


CONTINUE 
- OF 4S Jai,nTHe 


THETAL CJ) STHETAL (JI /PY 


“PETURY 


EXO 


“SUBROUTINE THKVEL OCXX,VY,ZZ) 


“THIS SUARANUTTEE CALCULATES PERTURBATION VELOCTTIES INDUCED BY, 


VERSTUsS DEMON 


TRE wING THICKNESS PANELS, 

SUPERPOSTITION NF 4 CORPVER SOLUTIONS 18 USEN, 
TMKVEL RETURNS VELOCITIES UTH,VTHe¥ TH IN wag 
REFERENCE FRAME, 


“COGTCAL “PR, SHSLIP,VERPNL 


1 


1 
2 


SCOMMONSTHKDAT/S'UTNAT ONG HT gM TPR MSHI (UC) ,NQPT,NHPT,NSPT,* THRs SISLIP, 


NVERT,SALETC 20,8) -SHTETC2004) sp VTN( 20,49, THETAL (UCD) 
COMMON STRKOANSKMET(CUNN) ALE TC 49) eKRATCUNOY, XLHTCOUN), 

YRCT(4OO) e YLCT (408) JeERETCAUC) » CLET CANT ZRUT CACO Ds 

ZLHT(G00),SLLET (G90) ,SLTET(IU0) ; 


D424 
nea 
OM2u 


- 042g 


DM2a 
OM2a 
Ovau 
OM24 
N¥2a 
Mau 
O“24 


_ oM2a 


DM2s8 
Qe 
Dea 
DMea 
0424 
OMeu 
Neeu 
OMed 
NM24 
O4e4 
OmMea 
OMeaa 
OM2a 


- NM2G 


OM24 
OmMea 
yMea 
DM26 
OMe 
DM2u 
OM28 
OM24 
DMeu4 
DMe4 
OM28 
O20 


.D424 
OM2a 
M24 


oes 
D425 
OmMas5 
nmas 
oMas 
nM2s 
HMeS 
N25 
0425 
O25 
OM25 
D425 


D425. 


M25 
O25 
42S 
OM2S5 
NMe5 


115 
{to 
117 
116 
119 
1290 
tet 


122 


123 
$24 
125 
126 
127 
128 
129 
150 
131 
152 
135 


eornoN tune 


COMMUNSICVEL SUPT VET, sPT TIT, TFs Mag 
CUMMANSTHVARG/ KO V a LeU Ve ae EM eVERONL ,NOPRQ 4ay 

C- D¥25 
4g FORMATS, SHPAMEL ( T4, 4x, 6HCOQNERST2, 02s 
1 bu, UHC, Dy o TS, $x, uux z 242, S,3u,ghy & ,612,50"25 

1 ,3,dM2 & E12, S/6k,GnU 2 sE125 SB eOX,GHV & LE12,45, 6X, UHH B F12,5/ NM2S 

— 2 Sh, SHTH S GELS TpIK,SHTV ZF 2E12,505¥,SHfw = F12,5) ~  -bMa5 

2 FORMATOCS//om DT B,E12,5,5K,5HVTP B.b12,5,592,5HNOT 8,612.5) DM25 
O4Hes 

MIJPRENTPO VE .0 OMeS 

Cc DM25 
, UPT30,0 Das 
veTs0,0 DM245 
“PT=0,0 Deas 

X[ sxx OMes 

visyv OmMeS 

21522 DM2as 

c DM2a 
C . cf 18 INDEX OF INFLUENCING BANEL Omes 
Cc. . OM2S 
- 00 100 talIt, IFT : Nts OM25 
VERPNLGI GT eNHPT OM24 

ate] M25 

Tso, DM25 

Tve0, DMes 

Twso, DM25 
EMISSLLET(I) OmMes 
FM2SSLTEV(I} NMe5 

c Mas 
Cewernataaaazeennenaee CORNER } snaannceunsnesscesesasanonsanacennsneeeDUes 
C - OvMes 
. Mas” 
. TFCEME,LT,0,0) GO TO 15 D425 
EMSEML DM25 
“WaMTexLFTCT) OM2S5 
vsvreviC?¢r) O25. 
ZBZTOZLE TCL) .° OmMes 

CALL VELOTR - M25 
“TUsSTUSL DM24 
“tVatvev Mas 
‘Twatwow D425 
TCmRal 0425 

MN Jems N25 

TF (NOPR) WRITE CGS19 AT ep ICNReINI MV Zolla Ve Xe TUS TV, TY O425 
IF(SOSLIP) GU TO 10. . OM2S 

TF (VERPHL) GO TO $1 OMe2S 
Vae(VIeYLCT(1)) OMeas 

CALt VELOTH DM25 
Tustuev OM2s 
TVstvey 425 
Taslwow i DM25 

69 1 82 O4M2s 

‘BL Zee(ZTeZLeIed)) Meas 
CALL VELOTH O25 
TusTliely Nas 
TVsTVev O25 
TwsTwew OM25 

$2 CONTIAUE 0425 
MNJEeM! se ; oe: : D425 

TR (NNER) MRITE (O01) MLoICrRaMNI eM Vel odeVe Me TieVVetw OM2S 

Gf TO 10 ‘ : : OMes 

c : op ANS NM2s 
c COQNER $ OR 4 LTL.0,0 M25 


262 


ee ae DMA 
-tS CONTINUE Nes 
EMSeEME D42Ss 
MExXToxp FCT) MAS 
VSYLCT(Tjevt MPS 
ZaZTeZd_Fr(l) DM25 
IFCVERPNL) GU TH SI O25 
C4LL VELOTH OM25 
TUstyey D42y 
TVsTveVv Oé25 
TiaTwew Nees 

60 TH $2 O¥esS 

51 vsey N25 
7se2 OM2S 
C4LL VELOTR Q425 
TUsTUSU ovas 
TysTvev NH25 
Tustlwonw D425 

$2 CONTINUE 5942S 
ICNR3St OM25 
MNJoMS OM25S 

ITF (NNPR) WOITE(Ogt) MIs TIONG MND eX Vol oUeVe he Tp TVeT p425 

LIF CSpSLiP) GO Tl 17 . : OmMesS 
TFCVERPNL) GO TO a4 oes 
YRYLCTCIT) ov? OvMes 
CALL VELATH p25 
TUSTUeU OMes 
TvsTVev DHeS 
Tustwew NMaS 

GO Tn &e Des 

c ON25 
49 ZSZLETC(IT)e21 OmM2S 
, CALL VELOTH p25 
TusTijaly D426 
TVsTvey Ones 

2 TwsTwew D425 
82 CONTINUE DM2S 
MNJseMs N25 

IF CNAPRY WRITE (M91D MT eTONROMNS Xe Vo Zon Vag TU, TV, TW Dare) 

GO ™0 17 0425 

19 CONTINUE DNeS 
Cc D425 
Crarakwkateranaaneanee CORNER 2 RAREEAORARHAHEREE RARE EKER EH HARARRAIMAS 
c D425 
XEXTeXPF T(J) D425 
YRYTSeVYRCT(]) DM25 
ZEZTeLRE TCI) OM2es 
CALL VELOTH OMe5 
TUsTUet D425 
TVsTVeVv DM2S 
Teetwenw Nees 
ICNRs2 NMes 
MNJSMJ ; F OM25 

Te CNNPR) WATTE (Oot) MT eICMReMNI KV Zo Vywo Tite TV, Td OM25 

IF (SOSLIP) Gu TU 20 DN25 

T® (VEQ@PNL) GN TU 35 OMes 
Yea(VIeovVRCT(I)) bres 
C4LL VELOTA MAS 
TUSsTUeU N42y 
TVstfvev 0425 
Testwew D425 

Gli ™ 3a 425 

$3 Zee(ZL+ZAFT(1)) OM2S 
QvMe5 


C4LL VELATH 


82 
BS 
aa 
AS 
As 
a7 
543 
89 
94 
91 
92 
9$ 
94 
95 
94 
97 
93 
99 
1094 
191 
192 
103 
104 
105 
106 
107 
104 
109 
110 
914 
112, 
413 
114 
115 
116 
117 
118 
119 
129 
1et 
122 
123 
12a 
125 
126 
127 
12A 
129 
130 
131 
132 
133 
13a 
135 
136 
137 
138 
139 
144 
144 
142 
1a$ 
1ua 
145 


Teeluell OM2S Lan 


Tvafvev n#2eS 14? 
Tectwow Nees 148 

34 CONTINUE OMes 149 
Mu gsews be25 950 

IF ONOPR) aARITE (661) AL er TONR MND Me Vo lalla Vo Me Tie IVE TH oes 1914 

GN TN 20 N425 152 

C } é DM25 153 
¢ CURNER 2 FUR M ALT, 0 : O¥2s 154 
Cc bM25.955 
17? CONTISUE Ones 154 
- ¥SXTexRFT(T) D425 457 
YevRCTcryert OMeS 158 
LETLeLRE TCT) OMeS 152 
TFC VERPNL) GO TO S35 Ores 1460 
CALL VELOTH DM25 161 
TusTuey nMes 162 
TysTveVv M25 163 
TwzeTwow , ; DM2S 168 

GO TT $4 D¥25 165. 

53 Youry eh 7 OM25 16h 
ZsaZ p : OM25 167 
CALL VELOTH et . 2425 108 
TusTuseu * ON2S 169 
TvsTVev . - : “DMA5 179 

. Twstwew OmMesS 171 
34 CONTINUE ; DM2S 172 
ICNRoE2 OM25 173 - 
MNJaMJ ; OMeS 174 

. TF ENOPR) WRITE (CORY) MIpICURe INS MV eZ elle Ve mo TU oe TV, TH ; ; OM25 175. 
JFCSNSLIP) GO TO 20 F ; 0425 175 
TFCVERPNL) Gt) TO 4S N25 177 
YsYQCT(I)ovE NM25 217A 
COLL VELATH . O425 179 
Tustiuets ; , ; OM25 180 
TysTvev ‘ : OMAS 161 
Test wow 0425 182 

60) TNO aa O4M25 143 

U3 ZSZRETC(T)+Z7 : t : NAS pda, 
CALL VELOTH . ‘ : , 3 Nees 1S 
THetilet OM25 166. 
TysTvev ; : NM2S 147 
TusTaow ; DM2S 188 

aa CONTINUE : ; yee5 189 
MuJae4J . NM25 190: 

Se CNNOR) ARITEC O01) MEG IGNRe MNT Ke Vo lee Vee TUnTVe TA ves 191 

20 CONTINUE . DN25 192! 
C DM2S 393 
Cerrantetranaacenenane CORNER § ERRERRRARERERHEREARARRERRERHHARAAHARARENNAS [Fy 
C ones 195 
TECEM2,.L729.9) GO 10 49 : M25 196 
EmseEme ; ON25 197 
XexTextAT(l) . A425 194 
yavrevicCTcl) : : - DM25 199 
ZEZTeZ7LRTCT} 0“25 260 
C4LtL VELOTH Dees 201 
TUsTUeY : Ones 202 
Tyatvev OM25 293 
TenTwew : DM25 20d 

bis pilise: OmM25 205 
MNJsM) ‘ NM28S 20a 
TFC RNOR) MATTE CO 1) “Up lONR MNS eX eVo lee Varo Tin TVs TH ON2S 207 

IF (S3SO0SLIP) GO Tu $A NM25 208 


263 


264 


TE (VERPNL) GH TU 35 DM2S 
Yoe(VIoYLOT(1)) neg 

CALL VELOT™ OM25 
THstilell OMe 
tvstvev DMAS 
TesTwew M25 

GO TW bea OM 25 

35 Zee(ZTeZ_Ar(r)) O25 
Call VELATH » May 
TUsTUuey DM25 
Tvetvev oMes 

. Trelwow N25 

36 CONTINUE M25 

MN JeeYJ : NM25 

TE CNMIPE) : a#RITE (0,1) MIG ICNROMN Se Xe VoZelig Vy ae TUeT Ve TH N25 

69 Ta 30 ; ; NMaS 
Cc 0425. 
¢c CURNER 3 FOR M ALT, O nM2y 
c O25 
~ 99 CUNTYNVE D25, 
EMBeEMO Omes 
XSXTOKLST(T) DM25 
YSYLCTC(IVeVE 0425 
ZSZTeoZ2LbT(1) O25 

IF CVERPNL) GO TO $5 OMas 

CALL VELOTF DM!5 
TUaTueY OM“2s 
TvsTvey OM25 
Taslaew _OMeS 

60 TO %6 OMes 

5S ysev OMes 
Z==2 D425 

. CALL VELOTH OM25 
TUsfiey -NH2S 
TvsTtvev NMes 
TesTwew, OMaS 

56 CONTI “ue OMeas 
TCMRa$ OMas 
Matam : ; ; : : ; Nemes 

TE CNOPAY MRITECOO1) MLV TONReMNS Ko Vo loa Vamp Tidy TV 9TH . Nh 2s 
IFCSDSLI°) GU TO at : ; O25 
TECVERPM ) GO TO 4S Des 
VEYLCTCI) OYE » Ames 

CALL VELIITN oH2as 
TusTieu Dves 
Tvstvev NuMes 
Teslweow DK¢25 

G2 TN 46 Om25 

UY ZSZ7LATC(L)e2z! DM25 
CALL VELOTH 0425 
TusTueL Ones 
Tyatvev Ores 

- Twatwow _OsMeS 

G6 CUNT ENE Ome25 
MRI weM) : O25 

IF CNPR) WRITE CO,t) MI eg TCNMOMNS KV Zolig Va, ae TU,TV, TH Drees 

60 Th 23 Oras 

30 CONTINUE ores 
Cc nas 
Comentenneregenrenten CONNER 4 SaeeetetananaatanharenteasannentekeneeRDlAd 
Cc: . Ores 
: yEXTeryRAT(]) nas 
VevTevect(y) OH25 
2sllocrprrers Away 


209 
Aid. 
aii 
2\2 
ay 
1g 
21s 
elb 
217 
ata 
219 
220 
22. 
222 
223 
eeu 
2es 
ees 
2e7 
228 
229 
230 
251 
232 
235 
2$4. 
235 
236 
237 
23a 
239 
24) 
2a) 
242 
2us 
eua: 
eas 
246 
eu? 
248 
2u9 
250 
eS}. 
eSe: 
255 
25u 
255 
eS6 
257 
258 
259 
eed 
261 
262 
2s 
aha 
265 
256 
267 
268 
269 
279 
ey 
27e 


aaa 


37 


3a 


57 


56 


C4LL VELOTH 
Tus TUS 
Tvatvev 

Tr alwon 
ICNRaG 


CIA E LA 
IF CNOPR) WRITE COg1) MIP LCNR MND OK Ve Zo UeVo We Tig TVe Th 


IFCSOSLTP) GO TO 49 
TF CVE@PAL) Ge FO 37 
vee(Vfeyror(l)) 

CALL VELAT 

Tis titer! 

TV2TVev 

Tastwow 

GO In 3K 
Zew(ZJeZQaAt(T)) © sot 
CALL VELOTH 

TUsTueyU 

Yvsetvev 


'TausTwew 


CORTINUE 
MN Jset) 
TE CNNPR) WRITE COeL) MZ eICNReMNS ek VoZoUrVare Ts TVe TW 
GQ TO 406 


CURNER & FOR MOLTO 


CONTINUE 
XOXTeXRHICT) 
YSYRCTCI)@vVI 
ZEZTeZRATCI) 
IFCVERPNL) GO TO 57 
c4aul VELOT» 

TursTisett 

TveTVeV 

Two lwew 

6o tn §8 

YseY¥ 

Ze0ol 

C4LL VELOTH 

TusTheuy bp RE ae The 
TvsTvev 

TasTwow 

CONTINUE 

ICNRse 


MN SSMS 


IF (NNPR) WRITE CM 1) 4LeLONR MNS KV a Zolis Vere TUT Ve Tw 


‘TECSDSLIP) GO Th 40 


“ JECVERPNL) GO TH 47 


yavlevrertct) 
Cah VELOTH 
TusTiiel) 
Tve%VeVv 
T-sluew 


" 60 Th oB 


a7 


ZBZRATCTIOZI- 
CALL VELMTH 
Tysatheu 
TvetTVayv 


Tap lwen 


ones 
Ores 
nes 
nes 
OM25 
N25 
Dees 
O25 
DMeS 


D425" 


NM2as 
04e5 
DMe25 
Nes 
Ores 
OvMes 
Ones 
OMeS 
Ones 


“omMeS 
O25 


M25 
DM25 
Mes 


‘0425 


bM25 
OM25 
N25 
Ds25 
DM25 
OmMeS 
D425 


D425 


pas 
DM25 


; 0425 
Mas 


DM2s 
pM2s 
G425 
Nes 
AM25 
DM25 


AMS 
* pmas 


oM25 
OM25 
oMas 
OM25 


_ M25 


N425 


DM25 
Dm2s 


OM2S 
OM25 
omMes 
oM25 
oes 


OM25_ 


ONeS 


273 
e7a 
275 
276 
o77 
278 
279 
280 
28! 
282 
ens 
2au 
2865 
286 
2a7 
288 
289. 
290. 
29ot . 
2o2 
298 
294 
295 
29% 
297 
298 
299 
300 
593 
302 
363 
304: 
305: 
306 
$a7 
30a 
309: 
319 
311 
$12 
314 
Sia 
315 
$14 
317 
313 
319 
$20 
$2t 
322 


‘325 


324 
325 
$26 


327 


328 
329 
340 
331 
332 


265 


266 


aa 


1 oan 


aaa: 


aan 


uA 


un 


100 


on AaAaANaAanN 


* 10 


CONT NUE 
MN Ise] 


IF (NOPRY WRITE CO51) MIZICNROMNS  XeVoZellgVaWy tilg TV, TS 


CONTINUE 

UPTSUPTeTUSTRETAL(T) 
VPTSVPTOfTVelHETAL (1) 
KPTswPToTwwThHE TAL CY) 

CONT TANUE 

TF (NOOR) WRITE(O,2) UPT,YPT, «PT 


RETURN 
eID 


-SUBROUTINE TRAIPwCYI,Z1e¥,Z2051) 


VERSION? OEMONY 


THI§ SUBROUIINE TRANSFORMS COORDINATES AND VELOCITIES FROM WING 
COORDINATE SYSTEM THO INTERFERENCE PANEL COORDINATE SYSTEM AND 


VICE VERSA, 
LUGICAL ASY“,8NDYe/DEL TA,NOSYM 


COMMON SONE/0UM1 (65500) ,SSF(1259 CST (125) o8NT2(125) CST2CI25) o. 
1170300), UF HTPC 100) ,2UN2012) MX PUNSCE) RA DUMUCL2) e*HTP,0UNSCIL), 
2NBIP, DUMO(10) pNPAMLSsNPRESS»N*BP ASYM, BIIDY NEL TA,NOSY™ 


DIMENSION YLCC250),2LF (250) : aan 
EQUIVALENCE CYLC CE) oNIM1 C4001) ), CZLEC1)..PUM1 C4501)) 


TFANSFURM FROM BIP TO WING CONRDINATES ra 


LNPSTONPANLS 

YORV{SeCST2ci) « ZTeINTA2C(T) © YLCCINE) 
ZNSZIMCST2CI) = YIRSNT2CIY © ZLE CINE) 
ME TUQ’ : F 


TRANSFORM FRUM WING TO BIP CONRDINATES 


FS TRY TRWHIP 

INPSLenPAaNLS 

ZOSZIeZ_F (INP) 
YCEVYI@YLCCINP) 
YOSYCelSTetl) «© ZOaeSnT2(ys 
ZleZCeCST2CI) « YCR3ENTACTI) 
RETURN 


VELOCITY TRANSFORM e% SIP TO wING 


ENTRY ROTH 

ViweYTaCSTACI) # LZI#Snrecl) 
ZOe/yecST2(l) © YIeSNT2(1) 
QETURN 


WING TO AIP VELOCITY TRANSFORM 
ENTRY ROTA 


zCezr 
yCsvy 


N“2s 
a4a5 
D¥25 
nas 
0425 
Dé™25 
O25 
025 
DMe5 
o“as 
oMes 
Dees 
OMe25 
N425 


Nneb 
O26 
DM2n 
DM26 
D426 
OM26 
DM26 
O26 
OM2h 
N26 
O26 
0426 
026 
MOA 
D426 
NMA 
D256 
0426 
O“26 


M26 


OM24 
D2 
DM™26 
0426 
[426 
DM26 
D42h 
DM246 


PM26 


QM26 
N4%26 
DM24 
O%2n 
C26 
D426 
OMe 
M26 
OM2h 
OM26 
N26 
D™26 
D424 
NM26 
O26 
N26 
OM2h 


333 
334 
355 
33h 
337 
338 
339 
346 
Bay 
Sua 
343 
$44 
345 
Suu 


a we oe 
WM DoOBNF VEG ayn 


14 


oe ee ee pe 
oewuno Ss 


2) 


why 
w= 


VnN~w 
WE ww 


iw Py te te 
—-ocSUNG 


hed Soh Lt we 
Sewn 


AMANANAN 


an 


an 


“ananaa 


aan 


an AIaanrrnaanan 


SIPROUTINE TO CALCULATE THE VELUCITIES FO® THE FIELD POINTS xXe¥oZ DUE 


™# 


50 


Cat 


51 
5? 


“AL. 


MOTE? Fre & BILLED CONFIGURATION, AS IbLE THPLPH FOALS ROLL ANGLE PHT 


P 
3 


60 TO 10 
Esu 


SUBRANTINE VELCALCNDI4, ALPHA, HETASNSTARTS 


VERSTUNS NEM 
Tre BNDOY SINGULAWITIES, 


MIMENSTON XCLSOSYVC1S0) 67202850) 
CGICal 2SYMZBNDY, DEL TA,NOSYM 


CUMMAM SONNE SCT RC 0250), 94S (500) pPNLE C250) ,01M 2 (500), VYNOR( 250), 
TXPAM (C2507 ,ZHARCAS0I MINA ( 750), OUNS C2500) Mueaeday, 
AKA pHAV MUMS (5) CN, DIME (24) p4*SWREMSHL gMSWI, MSWIDZDUMI C2), eC we NDNALS 
SUM NOW NAP, NSP PNUMB (HK), ASYMZAINY SNELL TA, UISYM ; 

COMM ZTEOSTXOELOL) 04906595) Nur Z2ZC4O3I,7C190V, TO C190), COEFF (S), 


TREODE -BETASOsBSO RADIUS RE IEL Oe RNOSE, Uy V,VI XA ,XB XC ,XDeXFIFL,X 2% 


AL BUDY,NXATIOY 
CUMMONJAVELJULCESOVOVECISOV , wi C150), xF LEP C150), YEFLOP (150), 
1 ZFLGRC1SO) 

Cem swRATR/THTIT (0129), xX#LE 


PEAL LANNY 
UT TEGER RCOLIDE 


TRONSENP™ XeCONRADINATES INTO THE BODY SYSTE™ 


0) SO wsnSTART, NDI 4 
XCKPSMELOOCK POXALE 
YYVCKYSVELOP CK) 
ZZCKVSZFLOP CK) 
NENXANNHYeL 


CULATION FF COORDINATE ROTATION ANGLE, 


TF CAKSCALPHAD LT 1.0F ena) Gi TO Of 
PrISaTan(RETA/SALPHA) 

6H TH $2 

PRTZ0,0 

CUNT TWF 


CULATION MF VELOCITIES, 


LUS ANGLE TRETACZH TU YH) oSSNCI&TED 4TTh THE SNDY CONROINATE 
YST&M, ; . ; 


ACE TOD TsrxSTast,NCy4 


YFYELNSx(T) 
BETELDSSIATCVY( TI eeeez7( 1) ee) 
TMETAsaTana(VV(]),72¢01)) 

TeP| PHSTHETAOP MT 


hades 
Nab 


N427 
NWOT 
vM27 
Me? 
nMe? 
HA27 
AMO, 
Qé27 
OM27 
A427 
27 
427 
D427 
Oe? 
QM?A? 


OMe7 


QuQ7 
O“27 
OQ“27 
M27 
O27 
OMT 
“ea? 
a2? 
oe? 
Dne7 
M27 
OM27 
Me? 
Nu27 
OM27 
07 
OM27 
“27 
027 
OMaT 
O27 
Nu? 
ONT 
N27) 
M27 
OMT 
Nu4e7 
Ne? 
M27 
DM27 
Nie? 
me? 
OMe? 
427 
O27 
Dee 
eae7 
NMe7 
N27 
Dmo7 
N42? 
nuer 


a? 
a 


Ne Down JTI MEAN = 


268 


AAO 


AAANOH 


QA nanaanaan 


ASQZRE TASH AKFIELD SQ TEL D 


| CESXFIELD eLBUDY 


uSs0, 

vVSao, 

ubsa, 

yoso, 

VTOSO, 

AC £30 Sater 
CAL SNURCECS) 


7 USsSUSe¢T (J) ot 


VSsvSset(J)av 

CALL ONVEL TCS) 
UNsliNeuetTC(J) 
VOsVNeVETC(S) 


119 VTosVTINevTetC(s) 


TRANSENRMATION OF VELOCITIES INTO BQUY CONRDINATE SYSTEM, 


UsVens, RATHER THAN US VReVTHETA, 


COSTHECOS(THPLPH) 


ULC sUSeuDRCOSTH 


1006 


VReVDaCOgTHevs 
VTCEVTOaSIN(THPLPH) 


_ SUTNTHABINCTHETA) 


AT TMTS STAGE UEeVO,VTD ARE THE LONGITUOTNAL,RADTAL AND TANGENTIAL 
VELOCITY COMPUNENTS IN THE BODY CYLINDRICAL COGRNINATE SYSTEM, 
NEXT+TRANSFORY INTO RECTANGULAR BULY COODINATE SYSTEM, 


CIUSTHACNSCTKETA) 
VICTISVRASINT HSV TU eCUQTH 
WECTYSVQeCG3THevTOaSINTH 

TF CASSCULCT) UT ste Ob 06) UWICT) 80,0 
TF (COBSCVICIDI LTP. OF eM) VICI3A0,0 
TF  CAASCHEOSIICL Tt OF eo) w1¢0) 80,0 
CONTINUE 

RETURN 


ra) 


— SURRQUT INE VELNOR (KX, VVe22) 


3 


_VERSTONG OE MUN 


TITS SUBROUTINE CALCULATES PERTURBATION VELNCTTIES INDUCED RY 
THE wING AMD BODY INTPRFERENCE PANELS LISTNG SUPERPOSI TION SCHEME 
— SUPERPASTT IAN HF 4 CN@NFR SOLUTIONS 18 USED 

“VELNAG RETURNS VELUCITIES UP, VP.wP IN WING PEPERENCE FRAME sce: 


LOGICAL ASYM, ASYMT, DEL TAs AUDY sNOSYM IGTNP,NOPR 


CUMMONSONE/CIRE (250) NEL TPC 250) oFNC250),PNLC (250) »SHPPLE(250)y 
13#PPTE (250) DUM (10909, YCPT( 250) LCPT (250. ott (259, XLB(250)> -. 
2URFE (250), xHH( 2593, VLC (250) ,YRC( 2500 52LF (259), ERE CASA VOLLS LEROY 


$ZARC250), 9N7(125)-6CST(125) -9UN2(950), 

TERIO C100) shy ALF AGALFR, AUWING ) H2,B2V.HETAy 
ahETAg, COAST eCORALE CASKET e Ci, DK EMD FMACK HY, SINALF ,STNKET + SLUPE, 
STLANC op TEP VA TOTER We Ve ag tiPy VP, ePy atl Og Kay Zee lhe Tipit, 494RyMSat, 
ANS, Gare SIP, ICR AONE &,NDHAG, VHP, SPR,NOD NSP YNOCPT, NIL IVP o SD) ul, 
TNPANLS, “PRE SS,NAUP, ASYM, RONY,OELTANOSYM 


QM27 
N27 
One? 
427 
O27 
ose7 
OM27 
OM27 
QMe7 


_ neat 


Nez 
427 
fe? 
OMe? 
427 
DMay 
OM27 
427 
OMe7 
OM27 
N27 
ONe7 
NM27 
D427 
D627 
0é27 


LY ws 
“ M27 


"27 
OMeT 
OuMeT 


oMa7 


Dae? 
O27 
N27 
Dee? 
OMAaT 
O27 
On~27 


OM2R 
OMe2A 
need 
DM2R 
M28 
naa 
42a 


LAT As) 


om28 
D28 
DM2A 


2423 


yea 
D268 
Nm2a 
Nees 
nvesw 
Mea 
neon 


. O24 


nMaa 


LANNAMGAAMNNA., 


COMMANSWHIR/THTI C1259, x"LE 


COMMON JINTSDTS PHIDIM, THETIT, YRDD, 28ND, PHIFR, PHIFI) 


DATA ©1/3,.141592653590/ 


1 FIRNATI(SE + SHPANEL SIU, AK, OMCURNER, LA, 


4s 
D428 
0428 
ON2B 
AMOK 
Onuea 


OX GHE Pee lLSe3X,GHY B@ ZELA,5¢3NeUHY B ZE12,S5DM28 


{ 
1 3K ,MHZ @ ELS], 5/OxX,GHU &B sEL2e5 OX UHV S&S oF 12.506X%,4HW @ 
2 


FOR PANELS “ITH POSITIVE SwFEP,SUPERPNSITINN 19 CORMFR Leceseu, Neer 


1E12,5/7 On2A 


? Sx,SHfu s 2€12,.5,5X,5HTV & 2612,.5-5X,5HT™ = ,F£12,.5) N28 
2 FIRMATCIX,THASY™ & ot 3) : D428 
: OHQA 

ASYMs NOgQYY QM28 

~ NOPRs (NPR, NE,O) N28 
- DTORSPY/180,0 OM2A 
: OM28 
P20, 0424 
vPs0, DMA 
aPsd, 9428 
XT BXX OmM28 
YIsvy Deed 
Z2122Z DM28 
OM28 

. LT 18 INDEX OF TNFLUENCING PANEL M28 
OM28 

00 199 TRItelF DOMeA 
IGTNPe T.GT,NPANLS nM2a 
KmTenOany § ; DM2A8 
yer naa 
Tlied, DM28 

- TVs0, DM2a 
' Twao, OM28 
EMisS+PPLEC(I} DM28 
EM2eS#pPTe(1) O28 
ON28 

Che eaedhbenkeenkketehe CORNER ft ARRWERERRERERERAERARERER PANERA RAR A RE RE RDMZS 
NMa@AR 

OM25 

OM28 

IF INFLUENCER FS A BONY INTERFERENCE PANEL, SUPERPOSTTION [8 QM28 
PERFORMED IN THE WING SYSTEM , SAME FOR INTERAIGITATED FINS, © h428 
NOTES ANDY INTERFERENCE PANELS IN @ND, ANC 47H, QUARTERS ACT LIKE OM24 
wING Panels WITM NEGATIVE SWEEP OM2K 

. D428 
44 CT,LEeNPANLS) Gt TN 60 : _  OM28 

; COTHTIOCK) GT 90g OgAND, THTT IRD LE 1B ,0) G(R, _ -OM28 
aeons GT,270,0,AND, THIZOK), LE. $60, 0) GO IN 15 DM2A 
60 CUINTINUE ‘0428 
IF CY,LE NRF) PMIFSPHTFRAOTUR puaa 
TF CI,GT NMP LAND, ILE NPANLS) PHIP RSPR T RID TNA OM28 
oF CENT LT ,0,03 GO Ty 45 OM28 
“SLOPERFMI OM26 
-MBEME OmM26 
MSXTOxL F(T) aL 4) 
VTRYIeVLC(I) OM28 
ZIsZTe7_e CT) . O28 
IF (CARS(XK),LE, TLRAC) xan,0 M28 
1F (ABSC(YT), LE, TLRANC) Ta, c OnM28 
TF CAR8CZT) 6LE, TLPNC) 2789.0 _ M28 
vosvT 0425 
“.Zaezy Ouas 
TF OC QNOT,YGEINP) CALL ROTHE CYT) ZT) Vy Ze PHIF) ipaea 


270 


MAAAAAN 


AANaAnaAA 


1% 


TF INFLUENCER 1S 4 YOY TNELUENCESG PANEL, TRANSFOR KING Y,2 
COURNINATES INTO GIP CORD NATE SYSTE“ ONLY NEED TO ROTATE SINCE 


ORIGIN IS ALREADY af AIP CURNER 


THEN TRANSFURM VELOCITIES FROM HIP FRAME SaCKk TN «ING, SAME FOR 


INTEROIGITATED FINS, 


TF CIGTVE) CALL ROTSHCV>,2n,¥,25K) 

c4tl velo 

vaev ee ais 

wow 

v¥sv 

aTsw 

TF CNUTLIGTNP) CALL GATE R( VE, WIV, 4, PMIF) 
TE CIGTSP) COLL KROTSACYN, sev ewe K) 

TusTuey 

TVsTvev 

Tralhow 

ICNRet 

MNJSMs ; 
TF (NOPRY WRITE (O01) MIG ICNRoMNJ Xe Va ZoUoVewo TUsTV,T 
IF CNOPR) - WRITE(0,2) ASYM . 
IF (ASY%) GO TO ly 

YTse(VES¥L CCl) 

YweYt 


TF CQNOT,IGTNP) CALL RUTHECYT.ZTsV eZ ,PHIF) 


TF CIGING) CALL ROTH CV ag Zoe V eZ gh? 

Catt veELO 

vAsv 

wAse 

vIav 

aTow 

TF CNOT,IGTINE) CALL RNTEX(VTeHTeVensPHIF) 

TE CYIGINO) CALL ROTOWEIVE, HH Vere} 

TUETUSU 

TVeTVev 

TasTwenw 

MNJ DeOMY ; 
TECNEPRY WRITE COOL) MT oTONR MND e Ke Vo Zalis Vow y Tie TVy Th 
GO TO 10 


FOR PANELS WITH NEGATIVE SWEEP, SUPERPNSTTINN 18 CORNER wle2esed 


CURYER 1 FOR M QLT,060 


CONTINUE 

SLUPE See] 

FMawFAY 

KEXTexLe cr) 

YTSVTeyLc(l) 

ZTsZTeZ_F CT) 

IF (CABS(X),LE,TLRNC) ¥a0,0 
IF CASSCVT)LE,TLANC) YT80,9 
IF (aS38(2Z2T), LE, TERNC) Z780,0 
vasvT 


ee al 


TF CyOTLIGINP) CALL RUTHECYT,ZTeVoZ,PHIF) 
TE CIGT!PY CALL ROTHBC Ym, 2h, V5 20K) 

yaeY 

C4LL VEL 

vVisev 

wlswu 


nea 
NM2A 
26 
DMR 


M24 
. OMAR 


M28 
DM26 
M28 
0¢2a 
OM28 


DMeB 


D428 


“psMea 


N28 
DM2A 
OM2A 
D426 
D428 
OMAR 
DM28 
nag 
OMea 
D428 
NAAR 


.DM2A 


DMR 
0426 
O28 
OMeR 
OMe 
DMea 
hal £3 
ONaK 
DL I-4.) 
ON2A 
OmMAS 
OMeA 
NM2aa 
nMea 
OM2A 
Dinar.) 
Drea 
Pp hal-4) 
428A 
O28 
NM2aR 
Mea 
ONaA 
Ores 
OmMeaA 
0428 
OmeA 
N428 
omMes 
OMey 
DMPA 
OM2@A 
Oven 


‘Oman 


oMaa 
Omer 
omen 


a5 
Ab 
ar 
83 
ag 
90 
a 
92 
93 
94 
95 
% 
q? 
98 


109 
tel 
102 
103 
194 
tu5 
104% 
107 
10a 
199 
{to 
ine! 
t12. 
113. 
11a: 
115’ 
114. 
417 
114 
119 
1290 
{al 
122 
123 
{ea 
125 
te 
1e7 
124 
1e9 
1$9 
13% 
132 
153 
134 
135 
1$s 
137 
13a 
139 
yaa 
14) 
fu2 
{u§ 
jou 
gas 
1465 
1a? 


varev , open Ave 


“wae , ; : yeK28 149 
“yk (Nay, IGTNP) CALL QUTRACVT ante ve s4BHTE) : - ON2A 14) 

: UU (IGTNP) CALL RUTBWE VR, VA, Vy eK) : . . OMB 351 

; TUxTiel : ee OM2AR 152 — 
ee  Tvatveyv : ; Dees 155 
{ nk Twetwew : OM28 154 
7 ‘TCNR8} ; ; : ‘ ,  DM2B 155 

& MNJSMJ j : OM28 156 
. “TE CNOPRY WRITE COst) MIpICNWeMNS oMaVaZolio Vere Tio Ve TH NM2a 157 
{¢ TFCASYM) GU TU 17 - o428 158 
vTee(VTevec(l)) ao OM28 159 
i _YasyvyT . 3 OnM2B8 160 
\ TE CQNOT LTGTNP) CALL ROTWEC YT, ZTO Ve le PHIF) 7 9428 161 
TE CEGTNDY CALL ROTMACY eZ 4p Vole K) : ; DM2B 162. 
C¥zeY . ; OMeR 163 

“CALL VELO ‘ OM28a 164 

vVisey : DM2A [465 

wlsw : 4 3 ae . t i ; ; DM28 164 

‘VBmev ; ‘ bk sone DM2A 167 

whew é es DM24% 168 

. {6 t. NNT eTGING) CALL ROTF HOUT Lake Vers OHtE) / on -OM28 169 

‘Ye CIGTNP) CALL SOUR EARN 9 O48) . OM2R 170 

* TUsTUeU a Ss AEE oe @ ; OM28 171 
TVSTVeV : Re a : fay DM28 72 
‘TesTWwew : "4 OM2B 173 

aN Jsendy Bes : re ome’ 174 

TE CINPR) WRITE C O91) MEP SCNROMNI OMG Ve lolioVore te TVe TH of OM28 375 

Gu Yn 17 , : . Ao, OM2AR 1745 

10 CONTINUE : ~  oMes 177 

G 2. ; ; ae OM28 178 
Canesontansaazesnanne CORNER 2 AAA Na ann Nnanaenananananesenneate ners anDNan 179 
c- : ay 2 ean’ 28 pian ie ; 0428 160 
XBXTOxRE IT) eo : NM2A 1B4 
yTevpeyRC(T) * ; a _  OM2K YAP 
ZtaZreZAF(T) rar . : _  OM2R 185 

“JF CARSC KYLE, TLPNC) ¥e0,0 nr _DM2B 184 

IF (CABSCYTIGLESTLEAC) 1305, t) .  OM2B 185 

TF CARSCZTI ALE, TLAAC) 2720, p Ole i I ad 7 + re WM2A Kb 

Yeavy - ite Ge Pah : OM2A 187 
Zes7ZT. srs ne MAB 188. 

Tk (,SOT,IGTSP) CALL OTHE (VE, Zt, Vale PHIF) eis OM28 189 

1F (IGTNP) CALL ROTHACY*elmoVe dom) ue 4 at " OM24 4190 

CALL VELO PEP ore, pS nes |) omea 191 

vaav ~. : —OMea 192 

wRaw ae : : . oM2a 193 

viav . ee : , ; — -OM28 194 

wlew | : : a é OmM28 195 

IF (,NOT,IGTNP) CALL RUTFa(VT aT, Vie PHTF). : DM2A 196 

re (1GTNP) CALL ae Veron) : OM2AR 197 
TisTuey - ‘ . ey ee eee on : DM28 194 
TVsTVey Fog, ghee ‘ Sse aye : “  pMea 199 
TwaTwos ; : decor «UI Sh atten oS : _OM28 209 
TCNRa2 a a, “ pM28 201 

MNJEMT DM2A 202 

TF (*OPR) MRITEC ON) Mle LOWRe MSM a Ve Zoe Vom TU TV, Tw OM28 203 

‘IF (asy~) GU TO 20° i>; ; , OM2AR 204 

VT me(VIOYRE(T)) . ; ‘ eR fe 4 ik 5828 205 

Yway? . : : NM2AR 204% 

IF (,NAT eIGTNP) CALL OnTwK CYT, 1%, Vole PHIF) : Nw2A 207 

TF (1578) CALL KOTAAC YH Lu, Vetowd “ OM2R 208 

CALL VELM . si, ents » DM28 209 


vViasv ey ed o428 219 


271 


272 


ann 


¢ 
C 


wag 

vTav 

wThaw : 

IF CANOT,IGTNP) CALL RIITFACVT ee Te ve ,PHIF) 
IF CIGINP) CALL RNTHWEVH, A8,V, 45K) 

TusTuel) 


. TvaTvey 


TweTwow 
ANJseJ 


LIF (MOPRY WAITE COL) MTeTOMW oe MNT Ky Vg LeUeVe ne Tig TV eT A 


GU Tn 20 


 CORMER 2 FOR 4 QLT, 0. 


17. 


_ ¥zoY 


CONTINUE 
XEBXTexRF(T) 
YTSYTeYRC(T) 


2TaZ1TeZRE CT) 


TF (CABSC HE) LESTLRAC) 109,06 
IF (CABSCVT) LE, TLRNC) YISC,0 
TF CARSCZ7T) LE, TLRNC) ZT80,0 


_Yasyt 


ZsZT 
IF (NOT, IGTNE) CALL ROTHFCVYT,ZT, Ve Z,PHTF) 
TE CIGTNM) CALL RATHAC KH ZH eV, lyk} 


? 


COLL VELA 


_VTgeVv 


wlaw 

VAsey 

woaw 

TF OC NOT,IGINP) CALL RITEW(VTwT, VeasentKs 
TE CIGTNGE) CALL ROTHYW(VA,*HyV,WyK) 

Tuakye’ 


_ Tvstyvev 


" TaRstwow 


ICNR&2 

MNJamMJ ; ; 

TECH MPR) WRITE (O01) MY eI CURAMND sXe Ve ZeUe Vee TUg TV, Tw 
TF casvay GO TO 20 : 
VTs@(virevRe(l)) 

veayvt , 

yF CNOT IGTNP) CALL POTHFE CYT, ZT, Y¥eZ,PHIF) 

IF CIGTNPY CALL AOTHR(VagZe gt, Zen): 


“Yaa 
“C4tL VELA 


visey 
wise. 


VReev 


wARma 


TP CQNIT,IGTNP) CALL RTE ACVT oH Ty Vp my PHIR) 


UF C1GTNP)- CALL RUTHM (VB) SHo Vy eK) 
. TeaTuey 


Sue, COTMTT CM) OT, ITO SAND, THTT(K) LED IA0,0) ON, 


TvVaTvev 


Tasteow 


MM JBOMS : 
IF (NQPR) WRITE C Sot) MIEsICNR MNS N,Y, ZollaVe%s TU, TV, Te 


20 CONTINUE 


TF CIALESNPANLS) GO TN et 


‘ 


042A 
om24 
uM28 
uM2B 
D428 
OM28 
04248 
DNQA 
QM28 
0428 
OmMe2s 
9428 
0428 
D428 
OMe4 
0428 
NM2B 
OM2A 
0428 
OM24 
D¥2a 
DM2B 
OMA8 
0428 
0428 
O28 
oM28 
0428 
OMe 
M28 
OMeA 
pr-4:) 
o428 
DM28 
OM2A 
n42a 
nMas 
need 
O24 
DM2R 
QMea 
DM28 
D428 
OmM2a 
DM2A8 
OM2A 
OM2A 
omM2a 
DM2a 
DM28 
O28 
O28 
DM2a 
DM2A 
DM28 
OM2A 
NM2e 
Om2A 
nea 


Cranecennnaanecentete CORNER § TROMREROR AERA ECE EDEREREEEROEH RARE AR EEELOMZS 
N28 


9428 
0428 


2s. 


212 
218 
214 
215 
216 
217 
2148 


219 | 
220 } 


2et 


22? | 
2235 
224 ' 


225 
22h 
227 
228 
229 
230 
251 
232 


233 


234 
ass 
aso 
237 
234 
239 
eun 
aut 
2u2 
24s 
2uu 
24s 
246 
aur 
eua 
2ag9 
259 
est 
252 
254 
254 
255 
256 
es7 
258 
259 
2nu 
2et 
2h2 
e565 
abu 
265 
266 
ao? 
264 
269 
270 
o7t 
ate 
e773 


aan 


61 


LOTHTT OK) Gel Ued™N, THTT(K) LE, 369,97) GN Tn 19 
IF CEM2eL7.9.0) GN TH 19 
este? 

SLOPE SEND 

XExTott (1) 

yY¥syteviLccl) 

ZTezreZLAcl) 

YReYT 

TF (ARSCXI,LE,TLANC) x20,0 
TF CASSCYTIALE,FLRNC) v¥tsG,9 
IF (ARS(ZT).LE,TLRANC) ZT20,0 
Zeezt 

TF CSOT, IGTNP) CALL GUITWECYT, ZT. Y,Z2,CHIF) 
IF CIGTNE)D CALL ROTWHCY 4, ZW,Y,Z,K) 

C4LtL VELA 


Ny 


.VBRYV 


wh aw 

viev 

wTtcw 

TF CQNOTLIGTNG) CALL ANTKHCVT,¥T, Vero PRUE 
IF (IGTNP) CALL ROTHW( VB, 4He Veoh) 

TUaTUeY 

TvaTvev 

TaatTwon 

ICNRS3 

MNJamd 


" TP CNOPR) ARITECOSL) MTeTONReMNI OX pV ep ZoUeVawe Te Ve TH 
“ yFcasymy Gli TO 30 


Y¥Tso(VYIo¥LC(l)3 

VYesvT 

IF (NNT VIGTNPY CALL ROTAPC YT, ZT, VeZ,PHIF) 
If CIGTNP) CALL ROTWRO(Y™» ZH eV, 20%) eet Je 
C4LL VELO : _ 
Vieay 2 

whaw 

vTev 

wlow 


“TF CQNOT,IGTNP) CALL AOTEKCVT,4T,V,%,PHIF) 


TF CIGINP) CALL ROTBH CVE» WBe Veen) 

TUaetuel 

TVsfvev 

Twslaew 

MNJaeMd ; fans “i 

TF (NDPR) WRITEC G1) MIPICNREMNT oe Vo LoVe Va me TUsTVe Tm 


_ GO TO 30 


_ 19 


CORNER 3 FOR M LT, 0 


CONTINUE 
SLOPE SeEu2 
&EMBerMe 


 pexTextacr) ae meee 


vtavrevic(r) 

ZTeZ19ZLG8(1) 

TF (ARSCKY LE TLANC) ¥8m,0 

IF (CASSCYT),LESTLANC) YIs0,0 

te (A8S(2T) LE. FLRNC) zien, 0 

YaavT 

2us7t 

YF CANT SIGINP) CALL aritwE(VT,2T, YoZ2,PHIF) 
IF CIGTND) Cau HOTWACV As ZW, YoleX) 

Y¥zea¥ 


CALL VELA a > : 


O28 
OM2A 
DMeAR 
ON28 
OM28 
OM2A 
0428 


 OM28 


0428 
0428 
Om28 
NMO8 
0428 
DM28 
OM28 
DM28 


028 
“ Om2e 
_ ONQA 


OM2A 
Maa 
wes 
OM2A 
on28 
OM2a 
oM28 
DM2a 
OM2A 
OmMe8 
0428 
DM2A 
Oman 
428 
M28 


‘M28 


oman 


“OM28 


0M28 
M24 
M28 
DM2QA 
OMeA 
DM28 
DM28 
Ome 
OM2A 
HvM2a 
DM2A 


2428 
0“28 
M28 
Om28 
bt2n 
0428 
OM2A 


- 028 


0424 


DMQA. 
DM29) 
MQ 


DM28 
OM2R 
O28 


eva 
2795 
275 
e77 
a7A 
279 
28 
28} 
282 
243 
eeu 
285 
286 
267 
288 
2a9 
290 
291 
292 
293 
294 
P95 
296 
eq7 
29a 
299 
409 
3ul 
302 
303 
$04 
305 
306 
307 
tna 
3e9 
319 
3i1 
312 
315 
31a 
315 
315 
317 
$18 
319 
$20 
S21 


322 
323 
sea 
$25 
326 
327 
324 
se? 
339 
331 

332 
533 
3h 
335 
356 


273 


274 


Cc 


vilsev 
atse 
ViseVv 


wRaw * ess 


TF (NOT, TGTNP) CALL NOTES VIPRL EGR PAIS 

IF CIGTNP) CALL WOTAW( VB, ~B,V,4%,K) 

THsTueu” . 

Tvatvev 

T*sTwes -_ ‘i : Sia? 
ICNRs$ 

MNJomJ 


TF CNNPR) ARITECO09) ME STIONR A ANT Me Ve ZolieVawe Te TV, TW 


te CASYM) GO TH 2k 
VTse(VI*YVLC(1)) 


~ YwsyT 


TR (NOT IGT AUP) CALL RUTWECYT,Z15¥eZ2,PHIF) 

TF CIGTNP) CALL RNTWAC YH, ZK,Y,l,K) 

2aY 

Catt VELA 

Visev 

whew 

VTseVv 

wtaw 

IF C,NOT,IGTNP) CALL RUTFACVT. mT, VeNePHIF) - 

IF CIGTAP) CALL ROTHW(VB,4BV,4K) 

TUSTIN4"U 

TVsTvev 

TwsTwow 

MNJseMJ 

IF CNDPR) ARITE(Oe1) MI sICNRAANS Xp VeZolth,Ve ne Tig TV, TX 
GO Tn ai Ste | Late 


30 CONTINUE 


- 'DH2A 


OM26 
DMe@A 
OMea 


-DM28 


Omea 
OM28 
DM28 
DM2A 
OM2A 
OM2A 
OMes 
nea 


-0M2A 


nu2a 


ale) 


D428 
OM28 
QM2A 
omen 
OM2R 
D™28 
042A 
N428 


‘DM28 


OMAR 
DM28 
OM28 
0424 
NM2A 
OM28 
M248 
OmM28 


Craataeeeanzaaneacezanea CORNER & BT CET ey ee ET Or Ee mers Try | 


C 


XExXToxXRACT) 
YTsYTevre(l) 

ZTBZYeZRACLI : 

TF (AMS(X), LE,TLANC) wad, o 

IF CAMSCYT) LE, TERNC) yt20, 0 

TF CanS(ZT).LE,TLRNC) Z2TRO, o 

yesyT 

ZuazZzt 

IF (NOT, IGTNP) CALL RNTHECYT, Ze Ve Z,PHIF) 
re CIGTNP) CALL ROTAB (VWs Zee Ve Z eK) 

C4ut VELO- 
Vizsv 
wHaw 

vTsv 

aTaw F . 
TE CNAYT,ITGT*P) CALL RUTFHXCVT WT a Ves, PHTF) 

IF (CIGTNP) CALL RUTEW( VA, HB, VengXK) 

TURBTUEU 

TvVsTvev 

TvaTwow 

ICNRsG 

MNJSMS 

YF CROPR) WRITE( 551) MIS ICNK MNJ MAY GZ, UeVe We Tie vats 
IFC(ASY™) GUO fO 40 : 
YTse(yIey¥RC(I)) ty 
vYesyT 

IF (HOT, IGTNP) CALL RUTME CYT) ZT, Vp ZePHEF) 

TE (CIGINE) CALL RUTAACV*eZHeV,Z,%)} 


° 


“CSLL VELA 


Om2a4s 
0428 
DM2A 
0M 28 
OM28 


-DM2A 


DM28 
OM238 
OM2A 
DM28 
DM2A 
DM28 
Bm28 
0M28 
DM2a 
OM2A 
OM28a 
NM2A 
DM2B 
DM28 
OM2a 
On28 
OM28 
OM2R 
DMA 
0425 
DM2A 
DM@A 
OMe8 
OMes8 


337 
338 — 
349 | 
300 
341 
342 
343 
3ua 
Bay 
3un 
4$a7 
34a 
§a9 
359 
351 
352 
358 
354 
355 
356. 
357 
558 
559 
$60 
361 
362 
$63 
3o4a 
365 
366 
367 
SHA. 
$69 
37h 
371 
372 
$73 
374 
375 
3756 
377 
37A 
379 
$89 


3a 


382 
38s 
384 
$85 
$6 
387 
388 
3a9 
390 
$91 
392 
393 
394 
395 
3% 
397 
39A 
399 
800. 


aon 


21 


vT¥av 

«Tew 

IF ¢(,NMT, 1GINP) CALL RIITER (VTS T, Vp *,PRIF) 
IP C(IGYN@) CALL ROTHWIVH,a6,V,4,%) 

TUSTUSH 


 TVvalveyv. 


Yas Tuow 

MN Jeet] 

TE (NNER) WRITE COE) MIZICNR a MNT aK Ve ZoUoVowy Tig TV OTH 
GH) TN av 


CORAER 4 FOR MLT,O Inst od Ae 


CONTINUE 


"MEM TOXRACT) 


YTevyrever(l) 

ZTsZTeZan cy) 

TF CAASCK) LE, TLANC) x80,0 

IF CAHSCYT)LE,TLANC) vran,0 

IF (ABSCZTI,LETLRNC) ZT30,0 

YesyT 

Zas8Zt 

TF CNQT,IGTNP) CALL: ROTHECYT, 27, %9Z,PHTF) 
Ff CIGTNP) CALL RUTWHR( VW eg 28, Ve ZoXK) 

VYueay : 


CALL VELO 


VT sev 

alTsw 

VAseV 

whew 

TE (.NOTSIGINP) CALL QTEWCVT pM Ty Vy %,PHTF) 

IF (IGTNPY CALL ROUTER (VA, MB oVan eK) 

TUBTINey) 

TVaTVev 

TusTwow 

ICNRad 

MNJEMJ 
TF CONNER) WRITE (O01) Me ICNR MND Xe VoZoUeVewo TU TV, TX 
IF CASYM) GU TH 40 

Y¥se(VTevel(I)) 

Ywoy?t 

IF CeVOT,IGTNP) CALL RLTWEC YT,» ZT 6 Ys d,PHIF) 

IP CIGTNP) CALL ROTWACYW,ZW,V¥, ZK) 

YoeyY ¢ 


' CALL VELO 


40 


VAeeV 

whsw 

vViaev 

wow 

TF CSOT, IGTNP) CALL ROTH “CVTONTe Ve <ePMLED 
IF CIETNB) CALL RUTHW(VA, 4K, Vv, 4K) 

TUSTIIet! 

TyvatTvev 

Tysatwew 

MNJseJ 

IF CANPR) WRITE (™,1) MT eg ICNRotNS Ke V eo Loita Vn we Te TVs TH 
CONTENUE 


IFCIT,EO, IF, AND NOICPT E40) GO Tu 101 


UPSUPOTUMDELTP CI) 
VPavPeTVeDELTOCTI) 
wPanPeTWeDEL TPC) 


190 CONTINUE 


Den 
DMe8 
OMAR 
0428 
DmM28 
O28 
N28 
OM28 
M28 
OM2a 
O28 
DM28 
bMAaA 
D288 
DM2A 
9428 
NMA 
DMa4 
OM2A 
DMe2A 
Ded 
DM2K 
DM2A 
028 
DM2R 
DmMek 
DeMeB 
OM2H 
OM28 
DM2B 
OM28 
OMeR 
DMA 
D428 
OM2A8 
OM2A 
0mM28 
DM2R 
OMea 
om28 
OM28 
oMe8 
0428 
oMea 
OM28 
QM28 
OmMe8 
OM28 
OMe8 
D285 
OMe 
N26 
O42 
OM28 
0428 
0428 
Phr-t-) 
OM2R 
0428 


Maa 


O4eA 
MMeZR 
nvea 


GO} 
ane 
uaos 
G04 
40s 
QO6 
go7 
ans 
4a9g 
aio 
a1t 
412 
ais 
aja 
wis 
“1d 
ai7 
413 
aig 
420 
vat 
422 
42s 
a2u 
425 
426 
a27 
Ga 
u29 
a3o 
adit 
use 
453 
454 
435 
456 
a3? 
438 
a 59 
aan 
aus 
4ue 
“uy 
aau 
aus 
&u6 
aut 
aun 
guy 
450 
asi 
ase 
ass 
4su 
4aS's 
456 
457 
858 
us? 
yoo 
vot 
462 
aos 


275 


UPBUP/CONST O428 vou 


VPSVP/CONS?T 928 465 
wP=WP/C(INST DM2B Ube 
RETURN 0428 4o? 

c OM2A 46A 
c UP, VP-P SELOW ARE FUR SETTING UP INFLUENCE PUNCTICNS FOR USE IX OM2a 469 
(o THE JNFLUENCE MATRIX NM28 470 
c DM2A UTI 
10% uPsty OM2R u72 
vPalv OH2A a7 

acau é D428 474 
RETURN ee DM2A 47S 

eas) DM2A 476 
SUBROUTINE VELO oved 1 

c “29 2 
¢ VERSTONIDEMON2, OM29 5 
c : omM29 a 
c THIS SHUGROUTINE CALCULATES THE INFLUENCE OF THE BASIC vurvag 5 
Cc SEMYeINFINITE TRIANGLES WHICH ARE UNDFR CONSTANT LOADING, 0429 6 
c MORE CORRECTLY, THEY ARE UNOER CONSTANT U DIFFERENCE ; p29 7 
Cc THE COMRATNATE SYSTEM USED HERE IS THE CNORNINATE SYSTEM ASS0e 42a ry 
c CIATED wITH THE TRIANGLE UNDER CUNSINER ATION, 0429 q 
¢ M429 «10 
LOGICAL ASY*,BQDY, DELTA, SISYM OMe9 it 

Cc ; O4Me9 «12 
COMMON JONEJDUME (9400), A, 0U42(5) BETA,RUNS(O),EMNUMUCE),SLUPE. M29 13 
LTLRNC eo TIPYe TITEL Rey Vg WM eDUMS CUD Xe VS rp ZSo ML op DUMB (2) MIS DIIMT CB) pNHP, OmMed 14 
2NPR,DUMB( 2) sNOCPT PNOLINP SNOUT »NPANLS ,DUM9OC2AY, ASYM, BODY DEL SAa,NOSYMOM29 = 145 

Cc 0™29° 16 
NAMELIST /DEBUG/Ke Voz FieFes FU,FS, FIT,ARG, EMLeRETAUeVpw . HAZD IP 
1,TNP, BOT, ARGY, TLPNCs YEDGE oM29 18 

c Oma? 19 
DNATA PT/3,141592655590/ DM29) «20 

C OmM29 21 
c ; 0’29 22 
c STATEMENT FUNCTIUNS,  . : 0429 23 
Cc PLANAR FORMULATION 0429 24 
C on29 as 
FITCK,VeZ2) & ZaSORTCXSHeKTSQR(VYS3+Z2Z89)) OM29) 26 
FIBR(CXeV¥eZ) 2 YaeCEMLMYex) +EML #750 omMeo a7 

FFQCK eel) B EMLSALOG( (XREMLOHTSORY OM29 28 

1 © SORTCCKPEML BTS IaY) eC XREML OBTSIGY) OmMeod a9 

2 © ATSUACCVREML OX) R(YREMLOX) + EMLSGQH79NaHTSN82290))) OM29 $0 

GQ SECRET AMSORTC(YeEML ox veCVrkMLex) + EMLSN#28QeKT99879N))) OM29) 33 

6 £ SHRTCAKSCEMLSI047§91) NmM29) 32 
FPFUCKSY,Z) EF CYSCYSNOZSR) )BSQRT(XSGEBTSAal Y§SN4280)) OM29) 35 
FFSOXeV%eZ) 2 ALUGC OX OSORT (XSAN WKTS8(V¥8N47250)3)) ; OM29) «34 

1 /ACBETARSORTCYSO¢Z5091) OMe9 35 
FEFOKsYe2) = CZ/CYSHO780)) SIRT (XSO@RTSQNe(YSN+Z8Q)) OM2e9 $4 
FESONC Up Ve 2) = (CSORTCYSIMRI SINAC YSOSZSQNIIS(C KMAF TARY) DM2e9 37 
FSSCXeV¥eZ) F EMLAATANACSORT (CRISQPEML SOI A(X3NMATSINCYSNEZSI)))» 0429 38 

: 1 XeEMLetTSiey) / SARTCABSCEMLSG@BTSA)).- OMe9 39 

c : ; 0429 40 
c OM29 a1 
Ysvs 0429 wa 

2228 nM2qaq a3 
TNPso,0 : ON29) ua 
KGTS0,0 OM29 ay 

DM29 ab 
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aan 


Aan 


Vaaaa aaa 


aa00 © 


120 


121 


50 


20 


21 


eML2EmM 
xSueyveyr 
vVSAsYeY 
ZSQaZa2 
BT SQRHETASRETA 
EMLSQREML EME 


CHECK FG SURSONIC, SONIC UR SUPERSUNIC LEADING EDGE 


Te OxX.L 7.9.9) GO TH 59 

TF CX EOD AND, YEO ,0,64ANN,Z.EG,9,0) GN TA SO 
TE CABSCELISLIT, CL9O0,0eTLHNCI) GO FU 120 
YEDGEBY/EML 

GN 79 121 

YENGESIO VE F07 

GO Ta 20 


CHECK FNQ SUBSONIC, SONIC, OR SUPERSIINTC LEADING EDGE 


ARGSATSNe(L./EMLSGO) 

TF (CARSCARGOL OY LTATLRNC) GN Th 25. 
TFECARG LT.1.0) GO TN 10 
PRTASAPT(YSE+Z80) HUET A 

TF(X,GY,8937T) GN TD 63 

GO TO a1 

80, 

v30, 

aB0, 

PETLIRN 


SUPERSUNTC LEADING EDGE CASE ee 
CONTINUE 


CHECK YE POINT (Xe¥eZ) LIES INSIDE, ON, OR OUTSIDE MACH CONE 
FROM ORIGIN 


QRTRSARTCYSN+79Q) eBETA 
TFCK,GT,4A8T) Go TG 24 
ITFCY,LT O,0.0R,Y,GE,YFNGE) GO TO 50 


POINT LIES OUTSIDE MACH CONE FRUM ORIGIN AUT THE POINT LIES 
ISSTOE MACH CONE FRiyM LEADING ENGE AT SAME Y¥ AS. PCX,Y.72) 


 yYCexaEMLseatsa 


70 


7 
Ju 


TP (Y,LT,YC) GNA TO SO 

XLESY#eSLOPE 

XTONSE EXexXLE . 
TR CABSCXTRANSF) LE, CLO0.O*TLRNC)) XTRNSFB0,0 
ZCONESKTHNSF (SORT CATSI@E MLS) 3 

TF (€A8802),G6T,ZCONE) BO TR SO . 
TF CABS(2) “SLT TLANG,FIR CZ) © GT40,) GN TH 70 
GN 1 74h : 

Pi sey 

6 1) Tu 

Flaept 

FOselEM, PL /SQORT CARS (HTS eFMLSNQ) ) 

TF CASSCFALIZLT CLO NHTLNNC)) F2amHE TARO! 

TE CXTRNGE FOV eAND Leb 990,40) F2BF2/2,0 

F4B 0,0 

FS20, 

*720,0 

Gl TN uP 


“DM29 


DM29 
029 
oMe9 
OM29 
Nvegd 
0M29 
OMeG 
O™“29 
OM29 
ove9 
OM29 
0429 
DM29 
D429 
D429 
ON29 


M29 


Omad 


- OM29 


O29 
OmMego 
OM29 
n429 
nMeg 
OM29 
OM29 
OM29 
0M29 


. OMe9 


M29 
pM29 
0M29 
as2a 
pma9 
Deeg 
pM29 
Om29 
pm29 
bm29 
pM29 
bM29 
pM29 


: 0429 


ON29 
DM29 
bM29 
DM29 
DéM29 
DM29 
nM2e9 
oéeq 
OM29 
DM29 
0“29 
OM29 
AMeg 
DM29 
0“29 
029 
OMe9 
429 
DM29 


104 


por 
109 


277 


278 


aAananan nao 


aanaan aaa 


ann 


26 


63 


25 


‘10 


26 
22 


aA 


43 


aa 
46 


ay 


POINT LIES INSIDE atu COME FROM ORIGIN 


CONT INGE 
FOSeHETAPATAN2 (SORT (XeXeS TSAR (YSULZSN)),eAFTAeY) 
GH TN 22 

FesetSS(x,¥,2) 

GU 9 22 


SONIC LEADING EDGE CASEee 


CONTINUE 


CHECK IF POINTOCX,Y,2) LIES (MN UR GUTSINDE MACH CONE FROM ORIGIN 
IF TRUE SET PERTURBATION VELOCITIES EnuaL fr ZERO 


RHTSSART(YS262S0) #HETA 
TF (x,LE,887T) GO TN 50 
FARCE FSON(K,/Ys2) 
KTRNSF SXeXLE 
IF (XTRNSF,EQ,0,0.470,2,69,0,0) “p2er2s2, 0 
GO To 22 


SUBSONTC LEADING EDGE CASEee 
CONTINUE 


CHECK JF POINT (XoV¥eZ) LIES ON OR UUTSTOE MACH CONE 
‘TR TRUE SET PEPTURBATIUN VELOCITIES TO ZERN 


RATSSORTC(YS824Z290) eHETA 

IFCX,LE,RHT) GA TO Su - 

ARG2s Be eae eee cr eee cep ee ean eh oemeonen sneena) 
TF (AHSCARG2) LT STLRNC) GO TN 26 

Femrrecx,Y,2Z) 

GU TO 22 

-220,9 

CONTINUE 

IF €Y¥,£EQ,0,0,4N0,2,60,0,0) GN TO SO 

ARGYSYeYVENGE 

TF CABSCARGY) LT, (290, 0eTLINC) AND, ABS(Z), LT, TLRNC) GO TO SO 
TOP BEIT, Y2 2) 

HOTSFIBC Ke, 2) 

IFC ABSC(TOP),GE,TLRNC} GN TO 43 

IF (CY¥,G67,0,0,4ND,Y,LT, YEDGE, AND, 483(7) eL T,TLRANC) GO TN 48 
60 fT) 44 

FigselY 

69 TN 46 

FIBATAN2CTUP, AQT) 

TFCABSCF LY LT, TLRANC) Fle 0, 

GN TO 4b 

Filso,9 

CONTINUE 

Fume FROCK, YsZ) 

FSSFFS(xX,Y,Z) 

FISFE TICKS, lL) 


CALCULATE PERTURBATION VELOCITIFS UsVeV/Vensv 


wor 

TF CABSCEMLI LT, CH9OO0,O@TLRNC)) 60 To 104 
VEetmt ah 1 oh7 

we CEML CABS (1,09 BTSO/ENLSG) AF QaF 5S) oF Uy 
GO TO 102 


o“e9 
D429 
N429 
O29 
omead 
ON29 
D229 
OM29g 
D429 
Oned 
NM?29 
D429 
DM2e9 
OmM29 
OM29 
B29 
ned 
OM29 
oM“ed 
omM29 
Dm2g9 
Owed 
O29 
D429 
OmM29 
omega 
O4e9 
0429 
Ored 
DéM29 
0429 
Oe9d 


DM29: 


DM29 
oMe9 
On29 
OmM29 
OmMed 
OMe9 
omMed 
OM29 
DMe9 
O29 
OM29 
OM29 
oM29 
One9 
OmMe9 
D429 
DM29 
0M29 
OMed 
OMed 
DMe9 
OM29 
OMe9 
O4e29 
929 
DM29 
oM29 
Hw29 
0429 
OMe? 


tia 
411 
112 
413 
tia: 
115 
{16 
117 
118 
119 
129 
1A! 
122 
1e$ 
lea 
125 
12A 
127 
128 


129 


130 
1$4 
152 
135 
154 
135 
1$6° 
137 


139 
140 
1a} 
142 
143 
144 
1458 
146 
147 
148 
149 
150 
151 
152 
153 
154 
1$5 
1546: 
157 
15A 
1S’ 
160 
Yo! 
162 
163 
164 
16S 
16% 
16? 
168 
169 
170 
i714 
172 


Cc 
Cc 


is] anaaan 


naan 


aAaANgaAAaAN 


aon 


104 


10p 


{ 


CONTINUE 
ve #7 

wawh Gor PD 
CONTINUE 


IF (NPR,ME,0) WRITE (6,DEBUG) 


PETURN 
END 


SUBROUTINE VELOTH 
VERSTON? DEMDNI 


THIS SUHROUTINE CALCULATES THE INFLUENCE MF A SEMYeINFINITE 
TRIANGLE wITH CONSTANT SNURCE STRENGTH, 


LOGICAL VERPNL, INSIDE ,NNPR 


COMMONSTHVARG/XTHe YTH, ZT Mp UTH gy VTNs 4 THAENL pVERPNL pNOPR 
COMMON/THVELO/BHETA,TLANC,BTSN 


NAMELTST/ORBUG/K eV, Zp EM INSIDE pARGL BETA SFL F2eF Sy 
UTH eV THe THs YEDGE, ARGY 
CATA PI/$,14159205/ 


SET VELOCITIES TQ ZERN FOR WHATEVER REASON 


IF CXTH,GE,TLANC) GO TO $ 
uTHs0,0 
VTHS0,0 
wT¥30,0 


- RETURN 


CHECK TF THE INFLUENCING PANEL IS A VERTICAL PANEL, 


TF 80, Ye2TH AND ZaeyTH 


THT TRANGBFURMATION ROTATES SEML INFINITE TRIANGLE 90 0EG. IN 
COUNTERCLOCKWISE OLNECTION, 


CONTINUE 

X3xXTH 

TFC VERPM) GO TU 4 
YSVTH 

ZaZTH 

60 TA § 

vYuZTh 

ZseavTy 

VSNz¥ey 

7803747 

EMLSOSEML MEME 
ARGLaekwXet TSO#(VS0+7299) 
TNSTDES4&RG1 4GT, TLYNC 


CHECK FMR SPECIAL CASE OF UNSWEPT LEADING ENGF 
TFC ABSCEML) LI C100,0#TLRAC)) GH TO To 
YENGE ax /b atl, 

ARGYSVeVENGE 


CHECK AWETHER LEACING EOGE IS SUBSUNIC, SONIC. 8 SUPERSUNIC 


Need 
ore9 
hé29 
OM29 
oM2a9 
0éM29 
D429 
0429 
DM29 


“DMSO 
Om30 


030 
9430 
OM30 
DM30 
OmMS0 
0M30 
0M30 
0 $0 
OM30 
DM30 
OMS0 
OM30 
DM30 
DM30 


_ OM39 


DM30 
0M30 
DM30 
DM30 


ons | 


0430 
OmM30 
O39 
Dm3o 
M30 
Dr 30 
0430 
Om §0 
AMO 
OmM3N 
DM30 
DMSO 
Owso 
Ondo 
DMSO 
)é3n 
OM306 
Nm $0 
DN30 
DM30 
DM s4 
0™.30 
OM30 
DM30 
DM30 
O39 
030 
NM30 


17% 
174 
175 
“176 
17? 
17a 
179 
{Ao 
181 


SPN KS WN eH 


TO OD em ee ee ee 
EWN DO OIFNFUWEWN—-— oC 


25 
?6 
27 
28 
29 
30 
Si 
32 
33 
3a 
35 
36 
37 
5A 
39 
40 
at 
42a 
a3 
a4 


46 
a? 
uA 
ug 
59 
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280 


STESTSBTSI#EMLSO 
TF CAMS(STEST).LI,TLANC) Gr TO zo 
. IFCSTEST,G1,.9,9) GO TN $0 
c 
Chaxanetane SUASNATIC LEADING EDGE aateenneee 
DETERMINE IF ONInNT LIES IMSINE OR UUTSINE saw CONE FROM ORIGIN 
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APPENDIX K 
DESCRIPTION OF PROGRAM WDYBDY 


INTRODUCTION 


The purpose of this appendix is to describe the body source paneling 
program. Attention is given to the program's input, its output, the 
added special features to account for specified body nose shed vortices, 
and its interplay with program DEMON2 described in Appendix J. In rela- 
tion to the work described in this report, program WDYBDY is employed to 
handle bodies in supersonic flow when they are elliptical in cross section. 


Basically, the building blocks of this body modeling program have 
been extracted from Woodward's improved method described in reference 9 
and documented in reference 10. Existing subroutines have been modified 
to account for combined angle of pitch and sideslip. Subroutines have 
been added to include effects of specified body nose vorticity in the 


calculation of pressures on the body. 


This program performs the following tasks when the body of the con- 
figuration of interest is elliptical. in cross section. First, the 
pressures acting on the forebody are calculated by this program including 
effects of specified body nose vortices if applicable. Second, the pro- 
gram has been arranged to compute velocity components induced by the body 
source panels at the control points distributed over the forward set of 
lifting surfaces (monoplane wing) and the associated body interference 
shell. If the length of body between the forward and tail lifting sur- 
faces is long enough to influence the overall loads, program WDYBDY should 
be used to compute the pressure distributions over the afterbody. Effects 
of body nose and monoplane wing vortices must first be determined by 
program VPATHL which is described in Appendix L. This program computes 
the vortex paths along the afterbody. By means of an exchange of data 
sets with program WDYBDY, vortex induced velocity components are trans- 
ferred to subroutine PRESS for inclusion in the calculation of pressures 
at points on the afterbody. Finally, this program calculates the velocity 
components induced by the body source panels at the control points of the 
tail lifting surfaces/interdigitated tails. 


Thus, program WDYBDY, together with programs DEMON2 and VPATHL, is 
used repeatedly in accordance with the procedure described in Section 5.2, 
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In this way, complete configurations involving bodies with elliptical 


cross section are handled. 


The theoretical basis of program WDYBDY and its usage will be 
summarized. The calculation procedure, program operation, program limi- 
tations and termination conditions are described. Special debugging 
output options are discussed. Detailed descriptions of the program 
input and output are then given. Program listings appear at the end of 


this appendix. 


PROGRAM DESCRIPTION 


A summary of the theory associated with body source panels is given 
in Section 4, Body source panels are distributed over the body surface’ 
as shown in figures 2 and 24, Panel orientation angles 6 and @ are indi- 
cated in the sketch of Section 4.1. These panels model the body with 


elliptical cross section in supersonic flow. 


Program WDYBDY is an adaptation of the computer program of reference 
10. %It has been specialized to flow model bodies with elliptic cross 
section. Body geometry can.be specified in terms of the horizontal and 
"vertical semiaxes FUSBY and FUSAZ as a function of axial distance from 
the body nose XFUS. The configuration can be pitched and rolled giving 
rise toangles of pitch and sideslip. The boundary condition and pressure 
equations have been extended to account for angle of sideslip in addition 
to angle of pitch, see Section 4, The force and moment calculations have 
also been modified to include angle of sideslip. Normal force and side 
force, as well as pitching moment and yawing moment are calculated in 
the body~ and wind-axis coordinate systems. The subroutines affected by 
the changes involving the inclusion of effects of combined angle of pitch 
and sideslip are SOLVE, PRESS and FORMOM. 


In addition, subroutines READVX, ELBDVT and VVELS have been included 
to read in body nose separation vortex positions and strengths as a func- 
tion of axial distance and to compute their contributions to the velocity 
components used in the Bernoulli pressure expression, equation 10. In 
the latter process, a slender-body theory solution is used. The solution 
is concerned with the calculation of velocity components induced by a 


set of vortices at specified points in the presence of a body with 
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-@lliptical cross section. As such, the solution is a simplified version 
of the general solution described in Appendix I for the case involving a 
monoplane wing mounted on a body with elliptical cross section. Sub- 
routine VVELS makes use of function subroutines DBLU, DSDZ and Z. The 
vortex induced velocity components are computed from expressions imple- 


mented in these routines using complex guantities. 


‘A certain amount of graphical display can be generated through the 
_use of routines PLOTG, PLOTA2, PLOTA3, PLOTAS, PLOTA6, PLOTA8 and PLOTV2, 
This capability serves as an aid in checking the input parameters that 
govern the geometrical layout of the body source panels. It also allows 
for an initial look at the pressure distributions on the body. 


Calculation Procedure 


. The program calculations are blocked into four parts, each of which 
depends on the completion of the previous step but which do not interact 
with each other. The four major partitions of the calculations are: the 
generation of panel geometric properties, the calculation of the aerody- 
namic influence coefficients, the solution for the strengths, pressures 
and loadings and the calculation of velocities induced at specified set 
of control points. All data interchanged between these blocks is either 
saved in common or on external files. The basic program description is 
contained in reference 10. A flow chart of the subroutine flow sequence 


is shown in figure K-l. 


In the geometry block of routine GEOM, the configuration is read’ by 
CONFIG. Body paneling may be computed for a subset of the geometry used 
to define the configuration. NEWRAD is used to redefine the meridional 
lines describing the panel side edges and BODPAN both redefines the 
x-spacing of the panels and computes the panel corner points and inclina- 
tion angles 6 and 6. The geometry description is saved on TAPE 7. If 
vortices are to be accounted for, the x-location at which vorticity 
characteristics are given are read from READVX before calling NEWRAD. If 
the control points are to be saved for use by other prograns, a table of 
panel control points is written on TAPE 4 at the completion of the genera- 


tion of the geometry. 
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The generation of the aerodynamic matrix coefficients is organized 
in VELCMP. The velocity contributions and influences between panels are 
computed by BODVEL and SORPAN. The aerodynamic matrix and velocities are 
saved on files TAPE 8, TAPE 9, and TAPE 10. ; eo 


The solution of the equations and the calculation of pea wcumde wad , 
forces is governed by routine SOLVE. ‘The flow tangency boundary condition 
is defined and the solution of the equations is computed by a combination 
of routines DIAGIN, PARTIN, ITRATE and INVERT. The contribution ‘to the : 
velocity components from external vortices is included by either inter- . 
polation in a vortex strength table or by directly reading the contribu= 
tions computed by external programs such as program VPATHL described in 
Appendix L. The pressure coefficient on each panel and the forces and 
moments acting on the body are then computed in PRESS and FORMOM, respec- 
tively. If the integration of the forces and moments over the length of 
body between specified x-locations XSTART and XWLE is required,. the force 
.and moment calculations are repeated. for that length of body. 


The last calculation block is performed when the calculation of". - 
velocity components at specified control points is requested. The velocity 
components in the body coordinate directions are computed using the 
solution strengths obtained in'the previous part. No contribution due to 
vorticity is included in this calculation. The velocities are written 
after the control points on TAPE 4 for transmittal to program DEMON2 
described in Appendix J in accordance with the procedures given in Sec- 


tion 5.2. 


Program Operation a big : 


The body modeling program using source’ panels on the surface. is . 
written in FORTRAN IV language (029 punch) and has been run on a’CDC 6600 
machine. The program is an adaptation of the wing-body-tail program in 
reference 10 simplified to body-only modeling. The program’is arranged ~ 
so that a total of 600-source panels are available to cover the body sur- 
face. The current version requires 122000 octal core locations to run 


on the CDC 6600. 


The program requires seven disk files for operation. Because’of the 


input copy feature of the program, the normal program input is read 
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from TAPE 5 and not the INPUT tape. The normal input file may not be re- 
wound. TAPE 4 may be used for either of three functions. If NWCPT is 
greater than one, specified control points are read from TAPE 4, veloci- 
ties computed and written after the control points on TAPE 4. If NCPOUT 
is. equal to one, the control points associated with the body source panels 
aft of XSTART and forward of XWLE are written on TAPE 4. If NVLIN is 
equal to one, the velocity components calculated by program VPATHL for 
control points aft of XSTART and for::ard of XWLE are read from TAPE 4. 
Files TAPE 7, TAPE 8, TAPE 9, and TAPE 10 are used to store intermediate 
results required for the solution of the aerodynamic matrix. . 


Programs Limitations 


The body modeling program has several limitations due to current code 
dimensions and due to the limitations inherent to the linear theory. The 
code will handle up to 600 body source panels during solution. There is 
a further limitation with regard.to the number of panels in a given ring 
‘and the total number of rings. The maximum number of panels on the half 
body for symmetric cases and on the full body for nonsymmetric cases is 
restricted to 20 panels on a single ring. Similarly, the maximum number 
of rings of panels in the axial direction is limited to thirty. The flow 
limitation on the code is that the angle of inclination of all panels be 
less than the vertex angle of the Mach cone at supersonic speeds. No 
provisions are incorporated in the program for the presence of detached 
shocks. A summary of the program termination conditions that are checked 
for in the code follows. When body nose vortices are present, up to ten 
vortices may be handled simultaneously. When the calculation of velocities 
are performed at external field points, a maximum of 600 field point coor- 
dinates may be read in at a time. 


Program Termination Conditions 


A number of labeled STOP conditions exist in the program. These may 
exist as a result of error conditions or end-of-data checks. They are as 


follows: 
STOP Routine Description 
STOP 20 GEOM Normal program termination for end of data 


on TAPE 5. 
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STOP Routine : Description 
STOP 200 GEOM Error - body has more than 20 columns 
panels around circumference. 
STOP.120 . .NEWRAD _ Error - body has more than 20 meridians. no 
. . eda q 
-STOP 130 NEWRAD © . Error - body has more than 60 axial. stations. 
STOP 20 " BODPAN Error - number of rows of sourcé panels in 


- section exceeds 30. 


STOP 30 BODPAN — Error - number of rows of source panels on 
; body exceeds 30. 

STOP 500 PRTCPT ~ ‘Termination for NCPOUT equals 2. 

STOP 210 SORPAN Panel slope exceeds Mach cone angle. 


Supplementary Print from CDUMP 


The routine CDUMP was written to weavide additional print Ef vari- 
ables in common for debugging purposes during execution. It is called at. 
several points within the program as specified by the print controls .IPRT. 
The information is printed according to the value of the option as follows: 


-Value_. a acai | print 
7 Oo Prints only name of routine from which called. 
1 _ Prints variables aid arrays of less than 11 in length oe 4 


common blocks: JOPTNS, PARAM, NEWCOM, VELCOM, and SEG. 


2 Prints all of above common blocks. 

3 Prints variable array BLOCK in unlabelled common. 

4. Prints variables array ARRAY in common block POINT. 
“ Prints Sonmnonc bioek COMPS. 

6 Prints common block TRAN. 

7 Prints common block BTHET 

8 Prints common blocks COEF, MATCOM, and ITERAT. 


Note for print control ‘IPRINT = 0, no ‘oeine is output. 
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Description of Configuration Geometry Input Cards 


The configuration geometry input defines the external shape of the 
body only. The auxiliary geometry input later defines the sequence to be 
used in paneling the configuration by interpolation in the external geom- 
etry. The input description used here was adapted directly from refer- 
ence 10 where it is used to describe an entire configuration. In all 
cases the original definitions have been preserved. For certain options 


additional meanings have been attached. 


WDYBDY Program Input Data 


ta ‘This program was adapted from the body analysis portion of the pro- 
gram detailed in reference 10. Herein, the geometric variables and their 
definitions used to describe the body have been maintained wherever 
possible. Several additional cards have been added to the program to 
facilitate the input of new program options and the description of param- 
eters associated with discrete vortex properties. An-additional input 
file used to exchange control points and velocities is also required. 

The original description of the cards and documentation in reference 10 
has been maintained for simplicity. A sample input deck.is described 

in Section 6.2 and shown in figure 25. 


The input to the program consists of four parts: the definition of 
program options associated with printing, plotting and vortex options; 
the numerical description of the configuration geometry; an auxiliary 
data set specifying the singularity paneling scheme and program options; 
and the case cards defining the Mach number, combined angle of attack and 


roll, and vortex locations and strengths. 


The definition of the coordinate axes used in this program is de- 
fined in figure 2. The Xpr Yp and ZR axes in figure 2 correspond to the 
Xp, Ypr and Zp, axes used in program DEMON2 and shown in figure l. The 
body is considered to be viewed facing forward with the positive Xp axis 
aft, the positive y,-axis out the right and the positive Zp_-axis up. In 
the following, the B-subscript is omitted wherever the body coordinates 


are mentioned. 
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- Descriptions of Input Option Cards 


The options defined here control supplementary output and online 
plotting not defined by. IPRINT and the specification of special control* 
point and vortex options. The latter variables control the additional=*’ 


input to be read in later. 


Card 1 - Title card - Card 1 contains any desired identifying information 


in columns 1-80. 


Card 2 - Option Integers - Card 2 contains 14 integers, each punched right 
justified in a 3-columnar field (1413). Columns 73~80 may be used in any 
desired manner. It is designated the IPRT card for reference. Subroutine 
CDUMP referenced to in the following in connection with print control IRPT 
is discussed above as part of the program description. Card 2 réads the 


following: 
Column Variable Value é . - Description 
1-3 IPRT (1) 0 Do not print copy of input 
” 1 Print formatted copy of input data. - 
4-6 : IPRT (2) 0 No supplementary print after GEOM 
>0 Call CDUMP for special print after GEOM 
7-9 IPRT (3) 0 .No supplementary print of. vortices 
1 Print supplementary information after 
calculation of vortex velocity compo- 
_ nents 
10-12 IPRT (4) 0 No supplementary print after VELCMP 
>0 Call CDUMP for special print after 
VELCMP 
13-15 IPRT (5) 0 No supplementary print after SOLVE 
>0 Call CDUMP for special print after SOLVE 
16-18 IXZSYM 0 Panel only symmetric half of configura- 
ae tion : 
1. Panel full configuration symmetrically 
using geometry of positive y side. 
-1 Panel full configuration by reading 
: geometry of both sides 
19-21 IPLOT (1) 0 Do not plot geometry 


Plot three orthographic projections and 
perspective of geometry of panel layout 
on line printer 


293 


Column 


22-24 


25-27 
28-30 
31=33 


34-36 


37-39 


40-42 


43-45 
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Variable , Value 
IPLOT (2) 0 
1 
IPLOT (3) 
IPLOT (4) 
NWCPT 
1-600 
-1 
NVTX 0 
1-10 
NXVTX | 0 
1-10 
NCPOUT 
2 
NVLIN 0 


APPENDIX K 


Description 
Do not plot CP 


Plot CP at each control point versus x 
location and versus meridional angle 6 


Not available 
Not available 


Do not call BDYVEL. TAPE 4 input is not 
required 


NWCPT values of I, XPT, YPT, ZPT control 
points are read from TAPE 4 and veloci- 
ties induced. by body source panels 
computed at these coordinates 


NBODY values of XPT, YPT, ZPT control 
points are generated internally and 
velocities computed to test routine 
BDYVEL. TAPE 4 is not used. NBODY 
is the total number of source panels 
distributed over the body surface 


No body nose vortex. strengths or Y and 
Z location data is read. All vortex 
contributions to velocities are set to 
zero 


Vortex Y and Z locations, YVRTX and 
ZVRTX, and strengths, [/V are read for 
each of NXVTX x-stations, XV. Three 
cards are read for each vortex 


No body nose vortex x-station data is 
read. All vortex contributions to 
velocities are set to zero 


Body nose vortex x-body stations are 
read. These x values define the stations 
at which vortex Y, 2 and [/V data will’ 
be read, One XV card is to be read. 
Maximum number of x-stations is 10 


No control points are output on TAPE 4 


X,Y,Z body control points aft of XSTART 
and forward of XWLE are written in 

(I5, 3E12.5) format on TAPE 4. Con- 
versely, options specified by NWCPT and 
NVLIN will not work 


Same function as NCPOUT = 1 except pro- 
gram execution is terminated at that 
point 

No vortex velocities are read 
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Column Variable Value ; Description 
1 Body source panel control point and V 


and W data are read for each of the 
x-stations aft of XSTART and forward of 
XWLE from TAPE 4 as defined previously 
for NCPOUT = 1. xXCP, YCP, 2CP, VA and 
WA are read in (15, 5E12.5) for each of 
the x-stations. Conversely, options’ 
defined by NWCPT and NCPOUT will not 
work. 


Card 3 - Option X-stations - Card 3 contains two real numbers punched in 
a 7-column field (2F7.0). Columns 73-80 may be used to identify the card. 
It is designated the XWLE card for reference. Card 3 reads the following: 


Column -— Variable a Description 
1-7 . XWLE | xrstation of wing root chord leading 


edge. This variable has two meanings: 


1) For NWCPT>0, XWLE is the reference 
distance from zero of the body axis 
coordinate system to the reference zero 
of the lifting surfaces whose control 
points are to be read from TAPE 4. It 
is added to the x- ~values read for the 
control points. 


2) For NCPOUT = 1 or NVLIN=1, XWLE is 
the aft boundary of control points to 
be output or read in. It would corres- 
pond to the leading edge of the wing or 
tail surface root chord 


8-14 ' XSTART xe station ° of start of region of addi-~ 
; tional velocity influence. For NCPOUT=1 
or NVLIN=1, XSTART is the forward bound- 
ary of control points for which addi-~ 
tional velocity components are computed 
or read in and control points calculated 
Note: The special force calculation computes the loadings acting on the 
body panels with control points between x-locations XSTART and XWLE. For 
this calculation to be valid between these values, the user should also 
make the x-locations of appropriate panel leading or trailing edges cor- 


respond to the XSTART and XWLE locations as prescribed on the XFUSK card. 
The geometry of the configuration may either be symmetrical or non- 

symmetrical about the y-0 plane (the plane of symmetry). The original 

configuration definition, which allowed only the description of symmetric 


295 








APPENDIX K 


configurations, may be used to define only one side of the configuration 
or to define a paneling sequence for both sides. The input of both sides 
of the geometry is also allowed. The convention used in this program for 
definition of a symmetric configuration is to present that half of the 
configuration located on the positive y side of the y=0 plane. The 
number’ of input cards depends on the number of segments and the amount of 
detail used to describe each component. In connection with the work des- 
cribed in this report, disregard all references to wings, tails, and pods. 


Card 4 --Control integers - Card 4 contains 24 integers, each punched 
right justified in a 3-column field. Columns 73-80 may be used in any 
desired manner. It is designated the JCARD in the data deck for refer- 


ence, Card 4 contains the following: 


Column . Variable Value Description 


1-3. Jo No reference area 
Reference area to be read in 
4-6 , Jl 


7-9 J2 


Wing data option - not available 
No fuselage data 


Data for arbitrarily shaped fuselage 
to be read 


K~K OOF CG 


-1 Data for circular fuselage in form of 
cross sectional areas versus XFUS to 
be read : 


2 Data for circular fuselage in form of 
radii versus XFUS to be read 


-3 Data for elliptic fuselage in form of 
semi-axis in y-direction and semi-axis 
in z-direction to be read (With J6=0, 
fuselage will be cambered. With J6=-1, 
fuselage will be symmetrical with 
xy-plane. With J6=l1, entire configu- 
ration will be symmetrical with y=0 
plane.) 


10-12 J3 0 Pod data option - not available 
13-15 J4 0 Fin data option - not available 


16-18 . J5 0 Canard (horizontal tail) option - 
not available 


19-21 _ J6 0 A cambered circular or arbitrary fuse- 
lage if J2 is nonzero. Read ZFUS data 
cards (described later under fuselage 
data cards) 
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Column 


22-24 
25-27 


28-30 ' 
31-33 


34-36 
34-39 
40-42 
43-45 
46-48 
49-51 
52-54 


55-57 
58-60 
61-63 
64-66 
67-69 
70-72 


Variable | 


NWAF 


NWAFOR 


NFUS 


NRADX (1) 


NFORX (1) 
NRADX (2) 
NFORX (2) 
NRADX (3) 
NFORX (3) 


NRADX (4) 


NFORX (4)- 


NP 
NPODOR 
NF 
NFINOR 
NCAN 
NCANOR 


Value 


1-4 


" 3-30 


Description 


‘Complete configuration is symmetrical 


with respect to xy-plane, which ,implies 
an uncambered circular’ fuselage’ 


Uncambered circular fuselage with 52° 


nonzero 


Number of airfoil sections - not 


available 


Number of airfoil ordinates - not = 


available 


Number of fuselage segments. 


Number of points used to represent :: - 
the first fuselage. segment about the 


circumference. 


If the configuration is’ 


symmetric (IXZSYM=0,1) NRADX is input 
for the half section. If 
configuration is input (IXZSYM= -1) 
NRADX is input for the full section. | 
If fuselage is circular, the program 
computes the indicated number of y- | 


and z-ordinates 


the entire 


Number of x-stations for first fuse-_ 


lage segment 


Same as NRADX(1), but for’ second fuse- 


lage sement 


Same as NFORX(1), 
lage segment 


Same as NRADX(1), 
lage segment 


Same as NFORX(l), 
lage segment 


Same as NRADX(1), 
lage segment 


‘Same as NFORX(1), 


lage ‘segment 


but for 
but for 
but for 
but for 


but for 


‘second fuse- _ 


third fuse- 
third fuse- 
fourth fuse- 


fourth fuse- 


Number of pods - not available 


Number of pod stations - not available 


Number of fins - not available 


Number of fin ordinates - not available 


Number of canards ~ not available 


Number of canard ordinates - not 


available 
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Card 5,6,..-. - remaining input data cards - The remaining input data cards 


contain a detailed description of the body component configuration. Each 
card contains up to 10 values, each value punched in a 7-column field 
with a decimal point (10F7.0 format) and may be identified in columns 
73-80. The cards are arranged in the following order as required by the 


above options: reference area card and fuselage data cards. | 


Reference area card: The reference area value is punched in columns 


1-7 and may be identified as REFA in columns ‘73-80. 


Fuselage data cards: The first card (or cards) specifies the x-values 
of the fuselage stations of the first segment. There will be NFORX(1) 
values and the cards may be identified in columns 73-80 by the symbols 
XFUSJ where J denotes the number of the last fuselage station given on 
that card. If the fuselage is cambered (J2<0, and J6=0) the z-values of 
the fuselage centerline are read next. There will be NFORX(1) values of | 


z at the above x-stations. 


If the fuselage is circular or elliptical, the next card (or cards) 
is specified according to option J2. If J2=-1, the card contains 
NFORX(1) values of fuselage cross-sectional areas and may be identified 
in columns 73-80 by the symbol FUSARDJ where J denotes the number of the 
last fuselage stations given on that card. If J2=-2, the card contains 
NFORX(1) values of fuselage section radii, and may be identified in 
columns 73-80 by..the symbol FUSRADJ. If J2=-3, two cards (or sets of 
cards) containing the elliptic body horizontal and vertical semi-axes are 
given. ‘The first is the horizontal semi-axis and is designated by the 
symbol FUSBYJ. The second contains NFORX(1) values of the vertical 
semi-axis and is designated by the symbol FUSAZJ. . 


If the fuselage is of arbitrary shape, NRAD (1) values of the 
y-ordinates for a half section are given and identified in columns 73-80 
as YJ where J is the station number. Following the y-ordinates are the 
NRADX(1) values of the corresponding z-ordinates for the half-section 
(or full section for IXZSYM=-1) identified in columns 73-80 as Z2J. Each 
station will have a set of y and z, and the convention of ordering the 
ordinates from bottom to top is observed. If the full section is given, 
the ordering continues from the top back to and including the bottom 


point to close the section. 
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For each fuselage segment a new set of cards as described must be _ 
provided. The segment descriptions should be given in the order of 


increasing values of x. 


Description of Auxiliary Input Cards 


Card 1 - Identification - Card 1 contains any desired identifying infor-- 


mation in columns 1-80. 


Card 2 - Boundary condition and control point definition - The specifica- 
tien of the lifting-surface boundary conditions are not applicable in the 


body alone version... This card also selects the output print options as 


originally described .in reference 10. This card contains the following: 


Column Variable Value : Description ° 


1-3 LINBC Oo Planar boundary condition - not. 
available aoe 
4-6 THICK 0 Thickness option - not available 
7-9 IPRINT en’) Print out the pressures and the forces’ 
and moments ‘ 
1 Print out option 0 and spanwise loads 
on the wing, fins, and canards 
2 Print out option 1 and the velocity 
components and source and vortex 
strengths 
3 Print out option 2 and the’ steps in . 


the iterative solution 


4 ' Print out option 3 and the axial and 
normal velocity matrices 


A negative value of print adds the panel geometry print out to the 
output indicated for options 1 through 4. 


LINBC, THICK, -and IPRINT are punched as right justified integers. 


Card 3 - Revised configuration paneling description control integers - 
The contents of card 2 are punched as right.justified integers as | 


follows: 
Column — Variable ' Value Description 
1-3 KO 0 No reference lengths 


1 Reference length data to be read 
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Column Variable Value Description 


No wing data - not available 
No body data 

Body data follows 

10-12 K3 Not used 


13-15 K4 0 No fin (vertical tail) data - not 
; available 


16-18 K5 : 0 No canard (horizontal tail) data. ~: 
not available 


19-21. K6 Not used 
22-24 KWAF ’ 0 Number of wing sections - not available 


(=) 


4-6 K1 
7-9. K2 


~~ Oo 


25-27 KWAFOR . 0 Number of wing ordinates - not available 


28-30 KFUS The number of fuselage segments. The 
. fue 4 program sets KFUS = NFUS 


31-33. . KRADX (1) 0, Number of meridian lines. used to define 
3-20 panel edges on first body segment. 
There are three options for defining 
the panel edges. If KRADX(1) = 0, the 
merdian lines.are defined by NRADX(1) 
in the geometry input. If KRADX(1) is 
positive, the meridian lines are cal- 
culated at KRADX(1) equally spaced 
PHIKs. If KRADX(1) is negative, the 
meridian lines are calculated at speci- 
fied values of PHIK. For symmetric 
configurations (IXZSYM=0,1), KRADX is 
the number of meridians on the half- 
section. For full configurations 
(IXZSYM=1), KRADX is the number of 
meridians on the full section includ- 
ing meridians at 0° and 360° 
34-36 KFORX (1) 0, Number of axial stations used to define 
2-30 leading and trailing edges of panels on 

first body segment. If KFORX(1) = 0, 

the panel edges are defined by NFORX(1) 

in the geometry input 

Same as KRADX(1), but for second body 

segment 


Same as KFORX(1), but for second body 
segment 


Same as KRADX(1), but for third body 
segment 


Same as KFORX(1), but for third body 
segment 


37-39 KRADX (2) 


t~ 


N 
oO 


40-42 KFORX (2) 


Is 


Ww 
oO 


43-45 KRADX (3) 


lw 


No 
oO 


46-48 KFORX (3) 


t-~ 


NO WO NO WO 
Ww 
oO 


— 
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Column . Variable Value Description 
49-51 KRADX (4) 0:3 Same as KRADX(1), but for fourth body 
3-20 segment 
52-54 KFORX (4) | 0, Same as KFORX(1), but for fourth body _ 
. . 2-30 segment , 


The program is restricted to 600 body singularity panels. For this 
program there is an additional restriction that the total number of 
singularity panels in the axial direction on the body (fuselage) cannot 
exceed 30. The arbitrary body (fuselage) capability of this program is 
limited to those shapes for which the radius is a single-valued function 
of PHIK for each cross section of the body. 


Card 4,5,... - remaining input data cards - The remaining input data cards 


contain a detailed description of the singularity paneling of each com- 
ponent of the configuration. Each card contains up to 10 values, each 
value punched in a 7-column field with a decimal point (10F7.0 format) 

and may. be identified in columns 73-80. The cards are arranged in the 

following order as required by the above options: reference lengths, 

vortex x-station card, and fuselage (body) data cards. 


Reference length card: This card may be identified as REFL in 
columns 73-80 and contains the following: 


Column Variable ~ Description 
Le¥ REFA Wing reference area. If REFA = 0, the 


reference area is defined by the value 
of REFA in the geometry input , 


8-14 REFB Wing semispan - not used 
15-21 REFC ; Wing reference chord - not used 
22-28 REFD , Body (fuselage) reference diameter. If 


REFD = 0, a value of 1.0 is used for 
the reference diameter. This reference 
length is used to non-dimensionalize all 
moment coefficients 


29-35 REFL . Body (fuselage) reference length. If 
REFL = 0, a value of 1.0 is used for 
the reference length 


36-42 REFX > x coordinate of moment center 
43-49 REFZ Z coordinate of moment center 
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Vortex x-station card: This card is read if NXVTX is greater than zero. 
It is identified in columns 73-80 by the symbol XV. This card contains 
NXVTX values (maximum is 10) of the ectatians at which vortex strength 
and location will be input later, XV. These locations constitute the 
table in which the strength of the vortices will be obtained for each 
control point on the body in order to compute the cross flow solutions 
due to the presence of discrete vortices. The first and last x-values 
in this table also constitute boundaries between which vortex solutions 
will be computed. Outside of this range of x-stations, the contribution 
of the vortices will be set to zero. The values XV are punched in up 
to ten 7-column fields (10F7.0 format). The interpolation is currently 


limited by dimensions to 10 values of XV. 


Fuselage (body) data cards: If: KRADX (1) is negative, the first body 
card,is the body meridian angle card. This card contains KRADX(1l) values 
of body meridian angle expressed in degrees and may be identified in 
columns 73-80 as PHIKJ where J denotes the body segment number. The 
convention is observed that PHIK = 0, is at the bottom of the body and 
PHIK = 180, is at the top of the body. Repeat this card for each fuse- 


lage segment. 


If KFORX(1) is non-zero, the second body card is the body axial 
station card. This card contains KFORX(1) values of the x-ordinate of 
the body axial stations and may be identified in columns 73-80 as XFUSKJ 
where J denotes the body segment number, Repeat this card for each 
fuselage segment. If forces and moments are to be integrated between 
values of XSTART and XWLE, the panel boundaries specified in XFUSK 
should correspond to one or both of these values where appropriate. 


If either of these cards are omitted, the program generates the 


values internally from the previous configuration definition. 


Description of case control cards 


Card _ 1 - Mach number and angle of attack card - This card may be identi- 


fied in columns 73-80 as MALPHA and contains the following in three 


7J-column fields: 
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\ Column Variable 


‘1-7 MACH 


8-14 ALPHAC 


15-21 PHIR 


Description 


The subsonic Mach number (including the 
value MACH = 0.) or the supersonic MACH 
number at which it is desired to cal- 

culate the aerodynamic data nis 


Included angle of attack at which it is 
desired to caiculate the aerodynamic 
data, measured in degrees between the 
free-stream velocity.vector and the 
body centerline 


Angle of roll, measured in degrees from 
the plane containing the free-stream 
velocity vector and the body centerline 
(the z-axis) positive clockwise 


A value of MACH =-1 on this card signifies the termination of the 


present case. Geometry cards for a new case can follow such a terminal 


card. 


Card 2,3,4... - Vortex strength and locations cards - If NVTX is greater 


than one, three cards are read for each of NVTX number of vortices. Each 


of the cards contains up to ten values punched in 7-column fields 


(10F7.0 format). 


The first vortex card contains the y-location of the vortex’ at each 


of the x-stations on the XV card. 


There are NXVTX values on the card 


which is designated by the symbol YVRTXI where I is the vortex number in 


columns 73-80. 


The second vortex card contains the z-location of the vortex at 
each of the x-stations on the XV card. There are NXVTX values on the 
card which is designated by the symbol ZVRTXI where I is the vortex 


number in columns 73-80. 


The third vortex card contains the vortex strength divided by free 


stream velocity, [/V, of the vortex at each of the x-stations on the XV 


card. There are NXVTX values on the card which is designated by the 
symbol GAMI where I is the vortex number in columns 73-80. 


A series of Mach number, angle of attack, and vortex card combina- 


tions for the same geometry may be calculated by repeating this sequence 


of case control cards with the desired values. If the case control 
sequence has been terminated by MACH =-1 on the MALPHA card an attempt 
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to read. a new set of geometry will be made. The program will terminate 
if no cards exist by testing for the end of file.. 


Description of Output : 


This section describes the minimum output for the body source panel 
program, WDYBDY. This output occurs when IPRINT =-3 and IPRT (1)=1 in 
the input. All primary output items are summarized here. The outputs 
associated with source panel properties is described in detail in refer- 
ence 10 and will only be mentioned here. A sample is given in connection 
with the description of the second .calculative example, Section 6.2 and 
figure 26. For general reference the subroutine names from which the 
print was made is written starting in column 110 between ‘two asterisks 
for the first occurrence of print within a routine. Wherever possible 
these identifications will be used in specifying the output to be 


described. 


The first page of output is the list of the input cards copied 
directly from TAPE 5, on which it is stored, as card images. The input 
is rewound after copying to the output file (TAPE 6), and read again by 
the program as needed. 


The next two (or more pages) are a copy of the input data with its 
mnemonic name or function as it is read from the input. The output is 
in the following order: the run title and option summary read in GEOM, 
the vehicle geometry cards as read by CONFIG, and the paneling title 
card and options as read by GEOM. If NXVTX>0, routine READVX prints a 
summary of body x-stations (XV) as read from input and the horizontal and 
vertical semi-axes of an elliptic section at those stations (BY and AZ). 
The horizontal and vertical axes are computed by interpolation in the 


program input geometr: 


The next page is a summary of the body panel corner point coordinates 
as generated in BODPAN. The x,y,z coordinates of each corner point of 
each panel is printed. The next page is a summary of the x, y, and z 
coordinates of the body source panel centroids. The next page is a 
summary of the body panel areas and. inclination angles in radian and 
degrees. The angle DELTA is the inclination of the source panel to the 
body x-axis and the angle THETA is the angle between the leading edge 
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1 


‘of the panel and the body y-axis. These angle are indicated in the shock 
,\of Section 4:1. Additional output may be obtained for debugging purposes 


at the end of the geometry calculations as specified by the print options 
IPRT(2) and IPLOT(1). . , 


The output from VELCMP is printed next summarizing the aerodynamic 
velocity matrix computations. The normal output is a summary of the 
numbers of panels and the CPU time required for the calculation of the 
velocity matrix coefficients. Output of the coefficients may be obtained 
from IPRINT=+4._ If the number of panels exceeds sixty, the solution 
vector ‘is printed for intermediate iterations. 


After the aerodynamic matrix has been computed a new case is begun 
from WDYBDY. This consists of the solution for the source strengths for 
a given Mach number, angle of attack, ao, and angle of roll, ¢. If the | 
Mach number changes between cases, the program as back to recompute 


the aerodynamic matrix. 


The output from ELBDVT, concerned with body nose vorticity, is 
given next. A copy of the input y and z locations and the vortex - 
strength, I/V, is printed first for the I'th vortex. This print is 
controlled by the option IPRT(1l). A vortex interpolation table summariz- 
ing the strengths and locations of each of the discrete vortices to be 
used by VVELS in the computation of velocities induced by the nose sepa- 
ration vortices. The vortex trajectory is defined by XV, YVRTX, and 


_ZVRTX for an elliptic body with horizontal and vertical semi-axes, BY 


and AZ. An additional debug output may be obtained for IPRT (3)=1 which 
summarizes the vortex properties ‘at each of the control points as the © 


velocities are computed. 


The next page of output is printed from SOLVE summarizing the veloc- 
ities on. the body. For each of the panels the source strength, GB, and 
the axial, lateral and vertical velocity components, u, v, w, and the 
resultant inward normal, NB, due to only the’ source strength are given. 
In addition the velocity contributions due to discrete external vortices 
in the lateral and vertical directions, VA. and WA, are-printed. All 


velocity components are assumed to be positive in their respective posi- 


tive coordinate directions. The sum of the contributions of the veloci-~ 
ties due to source panels and discrete vortices is used in the calcula:-- 


tion of pressures. 
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The next page of output is printed from FORMOM. It-contains a sum- 
mary of the forces on the panels due to the pressure acting on each of 
the panels. At each control point with coordinates X, Y, -Z, and polar 
angle, THETP, measured positive counterclockwise from the’ positive y-axis, 
the pressure coefficient, CP, and the panel forces, CX,.CY, and CZ acting 
along the body coordinate axes, and the moments of these forces about the 
reference center about each of the axes, CLL, CM, and CLN, are given. 

The pressure coefficient, CP, has a minimum value corresponding to zero 
static pressure, equation 11. The sense of the axial force, CX, is 
positive acting aft on the body; the force CY is. positive acting to the. 
right; and the force CZ is positive acting up. -The pitching moment, CM, 
is positive nose up about the y-axis; the yawing moment, CLN, is positive 
nose right viewing downwards about the z-axis; and the rolling moment, 


CLL, is positive clockwise viewing forwards about. the. x-axis. 


The total coefficients on the body are printed on the next page: 
These are the sum of the force components of the individual panels des- 
cribed above. The forces in the body coordinate system, CX, CY, and CZ 
are normalized bv the reference area, REFA. The moments, CM, CLN, and 
CLL, have been normalized by the product of the reference area and the 
reference diameter, REFD. The moments are taken about. the center, 
(REFX, 0, REFZ). The x-location of the center of pressure, XCP, is 
printed as computed from the ratio, -CM/CZ. The force and moment coef- 


ficients are also specified in the wind axis system, see Section 4.2. 


If distinct values of XSTART and XWLE have been specified the next 
two pages are a repeat of the previous two pages with the difference that 
only the forces and moments between XSTART and XWLE are computed. The 
total force coefficients are then the sum of the forces acting on panels 
between the above two variables. The program only checks on the location 
of control points within the x-range specified. For the integration to 
be valid the user must make the leading edges of the first: ring of panels 
inside the range correspond to XSTART and the trailing edges of the last 
ring of panels in the range must correspond to XWLE. This is necessary 
since only the integration over whole panels is within the current capa- 


bility of the program. 
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i _The next: page is printed when NWCPT#0. 


It is a summary of the cal- 


‘culation of velocity components at specified field points. If NWCPT>0, 
‘the field points are read from TAPE 4 as created by program DEMON2. If 


NWCPT<0, the control points for panels generated within WDYBDY are used,,,,. 


\ : ; : : 
In this case the velocities should reproduce the results first printed ...i 


in SOLVE. The information printed by BDYVEL for each panel are the X, 


Y, 2 of each field point at which the velocities is computed, the incli- 


nation angles, DELTA and THETA, and the velocity components, U, V, and 


W, in the coor sate axis directions, and the resultant outward normal 


velocity to the panel. The inclination angles 6 and 9 are defined either 


in the geometry definition. 


When the field points are read from TAPE 4 


the angles are printed out as zero for the lack of better information. 


This is the last page for a given’ case. The program will continue 


to read additional Mach number and a.‘ cases or new configurations until 


the end of data is reached. 


The output also continues to repeat as 


specified. The use of TAPE 4, however, is not organized to handle. multi- 


ple cases at this time.. 


PROGRAM LISTINGS 


The body modeling program is written in FORTRAN IV (029 punch) com- 


puter language for the CDC 6600 computer. The program consists of a 


main program, WDYBDY, and 42 subroutines. A listing of the program 


subroutine names in alphabetical order’ follows. 


ROUTINE 


7 WDYBDY (main. program) 
BDYVEL 

BODPAN 

BODVEL 

. CDUMP > 

. CPUTIM 

: COMCU 


e 


“NOMA OW &® WY HH 


PROGRAM WDYBDY 


IDENTIFICATION. 
col 73-76 


WBO1. 


WBO2 
WB03 
WBO4 
WBO5 
WBO06 
WBO7 


PAGE -NO. 


312 
313 
317 
319 
322 
324 
325 
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ROUTINE IDENTIFICATION PAGE NO. 
col 73-76 
8. CONFIG WB0S 326 
9.  CUBIC2 WBO09 333 
10. DBLU WB10 333 
11. DERIV WB1l 334 
12. DERIV1 WB12 334 
13. DERIV2 WB13 334 
14. DIAGIN WB14 . 335 
15. DSDZ WB15 | 336 
16. DzDs WB16 336 
17. ELBDVT WB17 336 
18. FORMOM WBL8 338 
19. GEOM WB19 342 
20. INVERT WB20 345 
21. ITRATE WB21 346 
22. MXOUT WB22 349 
23. NEWRAD WB23 351 
24. PANEL WB24 353 
25.  PARTIN - WB25 356 
26. PLOTA2 Note: these WB26. 357 
27. pLotag | Subroutines WB27 360 


are to be 
stored in 
LIBRARY (PLOTS) 


called by 

VPATH2,VPATHL, 

WDYBDY 
28. PLOTAS WB28 363 
29. PLOTA6 WB29 363 
30. PLOTA7 WB30 365 
31.  PLOTA8 WB31 366 
32. PLOTG WB32 370 
33. PLoTV2 > a WB33 372 
34, PRESS WB34 376 
35. PRTCPT WB35 377 
36. READVX WB36 378 
37. RDVEL WB37 379 
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ROUTINE | 
38. SCAMP4 
39. SOLVE 

40. SORPAN 
41. VELCMP 
42, VVELS 

43. 


Z 


IDENTIFICATION 


col 73-76 


WB38 . 
WB39 
WB40 
WB41 
WB42 
WB43 


PAGE NO 


379 
380 
384 
386 
389 
390 
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Figure K-1.- Program Subroutine Flow 
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PROGRAM SRYHDY(OUTOUT, TAPE GSQUTPUT, TAPEG, TAPES, TARET 


wAROL 


1 TaPFaA, TAPED, TAPELO) At 
PSNGQAM a)DYADYCINPUT, HUTPUT. TAPESSINPUT, TAPE GENUTPUT, TAPET, aR} 
UVERLAV(L AH, 0,0) *BO1 

wHOt 

SSF FSCS 6 OAS FOS SESH SSSHEHSSSHHSSSSSSS OSS TORT VEST ESSseaenssnnwssonsenwRi| 
ANDY UNLY VERSTONS : JUE BILEN, JUNE, 1977 aRul 
BOSS WOES TES TOO SEH SS OSETO TE SORSESSSSTVATSC CST H EF eT a EZesTZeneeceroszenaeesexh ()} 
wROL 

PRNGPAY WVOYSDY COMPUTES THE SUBSUNTC AND SYOFRSONIC PITENTIAL wAOL 
FLAW ABRODYSAMITC CHARACTEWITSTICS OF BNDY COMBIGURATIONS, wHO! 

“THE BQDY TS SEPRESESTEG HY SOURCE PANELS, wR Y 
THE THEORY ITS MESCRIBED IN NASA CRe2228 (PART T) AND TRE *AO4 
CUMPUTER PROGRaM IS DESCKHIGED IN NASA CRe2228 (PART Tz), «RO1 

4AOY 

A CONVERGENCE CALTERTA TEST HAS BEES jKiCARRORATED INTO SUBROUTINE who} 
LTRSTE TO CONTROL TRE [TERATIVE SOLUTION PROCENURE, THE MAXIMUM aAOt 
NUMRER OF TTEPATIUNG and TRE CONVERGENCE CRITERIA TEST PARAPMETEQ wHOY 
HAVE BEES ANDED TO THE PROGRAM [NPUT, wROY 
“B04 

THE FOLLOWING ARE LIMITATIONS OR KNCIWN PROHLEMS whos 
wROL 

TRE PRAGRAM IS INTENDED Yh HANDLE 690 ANNY PAMELS, wROL 
HOWEVER THE [oPUT SPECIFIES CUTTING PLANES RATHER THAN «ROL 
PANELS wHIC+H “AY LIMIP THE JNPUT TO DEFINING LESS THAN 600 PANELS. WBOL 
‘ wBOt 
THE PROGRAM WILL NOT HANDLE NACELLES, w#ROt 
i wROY 

THE TRAILING VORTEX SHEET FQ% THE WING LEAVES THE TRAILING ENGE wRot 
In A PLANE PARALLEL TN THE x AKIS. wRO 
“Bol 

COMMON /DARAM ZF NBODY NaTNGsNTAIL (LAC, THK» XMACH,ALPHA,RETA,ALPHAC wROt 

1 ePHTP,REPA,REFH,RKEFC,REFD,HEPL SREP X,REFZ wROY 
COMMON AVELCOMS NPOQIN TT HPART, TMAX eo JMAX A NMAM,EM, ITPRINT phe THK wR] 
! eM RAL GM ge ( 20), VBOLIIMK, HRUw COO) what 
COMBMON SSOPTNSZ TZ1C80) aROl 

* PNCPNUT, KSTART ZS X*LE gsHCPT,IPLOT(G),TPRT(S),FXZSY™ «ROL 
OIHENSTON ICARNCS) aHO4 

4A01 
CALL aes Be 2 NT60) aROt 
cits WHOS 
 XMACHS wad) 
REATSD : aAO 
wRITE (4,99) “wROY 
WRITE (6,100) aROt 
aBOl 
LIST ImPuT CARDS *ROY 
WHO 
REAM (5,110) ICARD anOt 
TR CENFCSY) $0,20039 480} 
WRITE (&,120) [CARN BOY 
GO TA YA wAOY 
CONTINVE wRO1 
REWIND § «B01. 
-WRITE (4,70) wANt 
wBOL 
THPUT CONF IGUPATIUN GENMETRY AND COMPLITE PANELS wBO1 
#RO1 
CALL GET» aROL 
CALL OVEELAY (L*Be teu) «BO! 
wROL 
GENERATE INTERMENTATE PRIKT AND PLOT GEQMETRY ot 
: wAQ 


SVOOnVT VL EMV 


ee ee 
lat Ne 


ee et ee 
~~ ome 


A oe 
Fauve coz 


ww 
wn 


S ted lat Gd Rs te Pu 
NF OBST NS 


COLL CRIMP (TPOT( 2), GHENRNeGENN), 


wht} 


TR CTOLATOCLIGT YU) Cart PLOTE wROL 

o : «901 

ia TsPUuT 4aCh NUMBER AND Ca PUTE AERODYNAMIC MATRTY wROL 

C A MEGATIVE 420 AUMHER TS SEL TO TERMINATE “ACH NUMBER ANDO ANGLE wROY 

Cc NF ATTACK CASES Fuw A GTVEN GEWHNETRY : wAROY 

C .wRQY 

60 COBY ok wROY 

Cath VEL CP want 

CX CALL VERLAY (LP Bete) “ROL 

CALL CNY OCTPRT(U), AHEMMe@ VELL) wRO| 

TE CxMACH LUT. IL) Ga Th 50 ROY 

WRITE (4,20) i wRn{ 

Cc aes WRAY 

Co SOLVE GESUL TENG MATRIX FQUAT IONS aF.D wROY 

Cc COMPUTE OGESSURFS, FORCES, AN MOMENTS . wad 

Cc : ; oe wRAOL 

; Corl seve . : ie ; ate «ROI 

, c%e CALL WERLAY CL WH 3609 Sete Ae “wROT 

CALL CRhiMB(TRPSTIS), 4mENReSOLV) WROL 

Cc AROt 

C COVPUTE AeKTTHARY FIELU PLLINT VELOCITIES OL 

c haere wROS 

YF (mM CPT Ne. O) CALL BROYVEL whOd 

Go Th KA . : wAOY 

IN FIRMAT CLHL 20x »CSHHEGIN & SEW LUNFIGURATION, FUN, 2hat “WDYRDY ae) wROI 

BO FMOMAT CPMT 29K, ISNSR ST A NEw CASE, 7EXK, J 2Hae KNYAOV te} wAOY 

Gh PRAT City LOKe STHANIAwARNKRS SOURCE PANEL HONY “MODELING, WHOL 

Y RH OOGRAM*LS OX, LOHDATEN JUSE, L977) . wBO! 

100 FAQYAT (Y~5,A5Ke1FHLIST IF TNPUT CARDS//) _sBOL 

Ji FiObMAT ¢AA{O) wRBOY 

120 FORMAT (49x%,5800) -wRQ4 

ae) aHOt 

SUBRNUTINE HOYVEL wRO2Q 

C Z vad wR 

GC CMMPUTE THE THREE COMPIINENTS GF VELOCITY INDUCED at SPECTIFIFD wAQ2 

C frei’ BATNTS HY The RINY PANFLS, GIVE TRE STREXNGTMS, Gh, UF whO2 

C BAADY SNURCE PALELS COMPUTE TRE FLID VELMELTY COMPONENTS TuliiIC&O wRV2 

C RY BONY Baack PARELS AT SPECTFIED PINTS (1 eEe WING SONOPL ANE wR? 

C CEYTROTNS) wRO2 

C . ; NRO? 

COMMON SIMPTSSS TZ1062),X*LEVHCRT,TPLOTC 4), FORTOS) ,TXZAYM whO2 

COMM SOAWAM LF MRADY Sw DMG eh TALL sb AC, THK SEACH, AL PHA,RE TAS ALPHAC WHO? 

1. ,PHTR REF A,CEFR, MERC REFC PERL eWEEK, REFZ wROZ 

COMME FYE Ces, NMPNTHT, PART, TZi(2) pVANZE MZ, TOQINT g\wTHK aa02 

! HLH eg URIS CAN) BSL NANI) CON) ; “wRO2 

COME JRE AC ASR LD KAAR CHSPOR KRAU KR (UY) KELIRX (UO) KEIISS MAX SKU, KS wAN2 

{ KE Cry, BA Cad eo KEIN CA) pe KAVOR (6) KOLSNOPT,LTCPT (20), xCPT(20) wide 

Leal so MCEUD SS VOCAUOD,ATEDUY, VE CANDY Ss T (HON), AN (07), wAGD 

Lo ZACSLOV KB TCOOU) VAT COO ZHT (AUC) GH (O919 EHC ONNI,ZIC OVD) AAD! 

CMON ZEIT T 4 ROTCHDGIAYETCON se ZPT COUN, THET(CONOY,PEL TA COND), NAV! 

1 KOCBI AD VOCS, AVN, FEF SM, 20) VELTI CERO), x1 E C600) wR? 

COMMA SEMOC 47 AMACH, TAL eC Ke XCOR( 4), YCOR(4),7CNR (4) a0? 

! OXTSVI,ZI Gf 302d who? 

COMMAS SATHMET 4 TRETAL 600) whan? 

in «#AG2 

HIMEGSTie ARGQAVIHNOY) wRO? 
Pees. 


ba 
65 
bb 
67 
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69 
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75 
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«A002 
wRO2 
anna 
wRO? 
aH02 
«“KO2 
ahd? 


“RO? 


wRO2 
nAD2 
ARO? 
wROQ 
aan? 
aRO? 
«aD? 
WBA 
a0? 
AHO? 
wRO?2 
wR02 
wine 
AO? 
wh02 
~H02 
aBN2 
WRO? 
«A02 
wB02 
wh02 
aRO? 
AD2 
wh? 
wkd? 
wHU2 
«802 
wAQ?2 
way? 
a0? 
aan? 
“aH02 
wan? 
arR02 
aR? 
dA02 
aAC2 


aA 

4&9 

99 

91 

a2 

93 

94 

95 

ry 

9” 

9& 

99 
104 
yO. 
192 
103 
104 
105 
196 
167 
194 
199 
110 
111 
112 
113 
tia 
115 
116 
117 
114A 
119 
teo 
121 
122 
123 
124 
125 
126 
127 
12a 
129 
150 
131 
132 
135 
134 
135 
130 
137 
134 
139 
140 
tut 
142 
a3 
ida 
145 
146 
147 
1UA 
149 
15°” 
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1 

¢ APITE VELOCITIES INMUCED AT FIELG PUINTS AFTER CONTROL POINT DATA 
c 
c 
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WYRAJeNR 
VIJSVARCOSTReaReSInTR 
WI JsveeStstRenaeCOSiTR 
Lan, 

vi.ag, 

eLen, 


CALCULATE VELOCTTY COMPONENTS FROM LEFT SINE FOR SYMHRETHWIC 
CONFIGURATIONS INNUCEN BY CUNSTANT SOURCE PaAMEeL 


Aanan 


TF CIKZSV4,%E 6) BO TN BS 
. SINTE S¥wexx 

COSTE sxVerZ 
O¥seyPOT~TeYCi 
VISNYACNSTeOZae QING aoe “ 
ZITSN2eCNSteLYaeSIneT : 
C4Lt SNRPAN CL, VL wl) 
YWBISUS Jee 
VIJSVisJevLeCOSTLewLeSINTt 

: ALJewIJ+VEaSInTlLewe eCOSiy 

45 CONTINUE 


VAJEVT eCNSTlewlLJaSINTl 
wBJEwlLeeCOSTlevisaSInty 
ANJSwl ye COoSOeURIJRSINO 
Sumy 3 SuMuU+UA RGB (J) 
SUMV s SuUMVeVi eG (J) 
SUMA = SUMasenyeGA (J) 
SUMN 3 SUMNSAN SAGACJ) 
gn CONTI“ UE 


4n CONTE 

70 CANT INUE 

C 

C CAMPUTE VELOCITY at Tet FIELL PUINT 


Cc 
7 UCT) = Susu 

v(t) = SuPv 

“(1) 2 Siw 

ALPSAL PHA RRANNEG 

PHT SURI AeQANDEG P: 

STNALzSte Cale) 

COSALBACNI8 (ALP) 

STINABSITNALeSIN (PRI) 

ST saABSTNALelCUS( PHT) 
. ANTBCISALASINCDEL TACT) ECCSCDELTACI I) a (oSINARCOISCTHET(I)) 
* #STAASALVCTneTCty)) : 


an 


ePRITE(H,1A0) T,xPT(I), VOTET) »2ZPTCT), PETE A 9 MEL TACT) 
me UCT DVO To XCT) » SUMN 
10 CONTINUE 


AN TAPE a, 


WRITE (4,745) NwCPT, XH aCh, ALPHAC APHIR 
ARITECG, 705) CLeCLI VITA CT eo ISl,NwePry 
RE TUR 


170 FORMAT CIMI,LON,UUHPERTURHATION VELOCITIES at SPECIFIED CNNTRAL 


e 244 PINTS KY SOURCE PANELS sSIXet2Man BNYVEL #0 


t eAATX eA SHCONTHNL POINT, AON, IAHPOANEL ONGLES,19X,LOMVELOCITIES, 


wA02?2 
wAQ2 
nB02 
wA0?2 
wAD?2 
wAhO2 
wAQ2 
VAD? 
wROO 
aR0?e 
wHO2 
wRO2 
«B02 
1802 
«R02 
wht? 
#802 
wRO? 
wA02 
wAQ2 
wRO2 
whO2 
wR? 
wRO?Q 
wane 
wRV2? 
wB02 
wine 
wRO? 
ante? 
wate 
wARO? 
wAO2 
whO?2 
4rd? 
whO02 
4802 
wAHO2 
HAO? 
wR02 
wAO2 
#An2 
wk02 
«BUA 
aA02 
#R02 
«402 
#A0e2 
WBO02 
whO2 
0802 
#992 
wHO2 
wRO2 


wROA 


“WA0?2 


"B02 
«R02 
wan? 
RN? 
wAN? 
aRf02 
4RO2 


951 
152 
153 
154 
155 
156 
157 
198 
159 
161 
161 
162 
163 
toa 
Lost 
106 
to? 
168 
169 
{74 
171 
172 
174 
174 
$75 
{76 
177 
173. 
{79 
469 
181 
{Ae 
18§. 
{ea 
85 
186 
187 
188 
189 
190 
19t 
192 
193 
$@4 
195 
196 
197 
198 
199 
eno 
ent 
202 
203 
200 


20s 
206 
207 
208 
209 
eyn 
2\1 
ele- 
213 


140 
745 


cc 
C%C 
C.. 


c 
Cc 
c 


—AAANA 


* Jt ICPT SMG THA, AKG IHN, OK, tH ly IK, UTHER, Sk, aes Ax,tet 
oa] eX LV, IK, Dab AHNOIMAL /) 


A 
3 
3 


j 


{ 


1 


‘4 


2 


1 


sae ee 


CALCULATE CNONOTV ATES OF PANEL 


FCRMATOTS,SF19,5,5F 10,5) 
FCRMATCTS, 3E12.5) 
Roth 


SURROUITINE FNP AN 
OVERLAY (1H, 1,5) 
ORNIGRAY ANUPAM 


coseay AIOPTNGS TZLCH) 


17234), TPRT(S),1XZS¥~ 


CORMAN /DAHAM 4Y NRQDVY, Ne ITNG,NTATL LBC, Tue waeUsal pues HE TA, AL PHAC 


REVISE AXTAL SPACING UN AGDY (FUSELAGE) AND COMPUTE NEw PANEL 
GEQ*E Tay 


FRAN ae 2 Neda cap eee OD RUSS ANE CoG LOR OERS 
PNP OND pNP TuG@esCAnygnC aise, JATEST uy 


ePHIR, REP A, REF, REFC, REFN, REPL REF XY, pPEFZ 


Casa SLOCKFIS89) 
COMeny sents 4 APRAY (6000) 


COMM JRE ACIIMS KL, XKAP LK KAFOQGKRADK (UM) KENNA YOU) pe KPLS MAK KU QKS 
KE CO) KAR CH)S KE DI (5) KANOR CAD KL, NCPT,LOCPT(20),KCPT C20) 
COMMAN ZVELOCOSS NPOINT,£ PART, YZO(2) ep NMA LEM, TORINT SS wT HK 


eNwWAL fim whe (20) eNBRLUK NEURO (60) 


COMMON ZRTMET £2 TRETACHUL) 


DIMENSTON WAC SOY VHCS 93014 ZH( 36059) KICO0) e AREACBOOY, LPT (O00), 
YOT (HOA, ZET( AGO, THET (COIN) DELTA (H00)4xX0(39,20)6Y0(30,20), 


ZOCH22G oe AFUS(SC,4) 


EYUTVALE VCE CHL ICK CLS KFUSCL, 1d)» 


eCHLACKOSTAV De MHCLI), 
POUIVALENCE CXPTC Le S2RAV(E)), 

Pe CLZOTCLY+ARMAYOCL201))> 

oe (FEL TACT), ARRAVCQUUS)). 

LO CYE CHL) ,ARPAV(SH91)). 

oe (CACEACS SARK AVC4ant)) 


CRLEACK (IV 219.¥901,99) 
CHLOCH (19917,2601,1)) 
CYPT(Y) ARRAY (HO1)) 

CTHETC1),89RA¥(1405)) 


CXC C1) 1)-AWRAYC3NOLDY 


CZC Cie 1). 42R24Y(9209)) 


VLD Ve tee VA, VISKL OCH Seat aC VOVIISOY2eVEY 


ROAOFGS1A0,/3,141592654 
RR wTNO 10 
TE CPPOETUT LTO WRITE (64220) 


CHRPRERS 


JP 2 TUNE K AE PANEL NUMBER (TOTAL ENROIOY) ~ 
JM @ TOTAL UNGER AF AXTAL SYATIN'§ (4Ax¥330) 


Jal 


Lsu 
Pan 
Maa 
AY L220 busi, wus 
KFUBNRSKENRK(VEUY 


 RUGMYSNE ORY (BIN) 
» MVANTKOANA CEH 


KMENSTANHSIKRAN) 
IF Ck PANIES .O) KW ADAAR ACK ENF) 


«802 
«802 
wA0e 
wADe 


WHO2 


wHOS 


/ AROS 


aBoys 
4803 
wB03 
wHO$ 
4AOY 


“AROS 


wR 
whOS 
wD 
WHOS 


—wROS 


W303 
AANS 
aAKQS 
wRO3 
#80 $ 
wRQ3 
aisos 
wANS 
aBD3 
PUK} 
wROS 
wAOS 
«B05 


“wROY 


#05 
wROS 
wROS 
wROS 
AKQS 
wy) 
aBOS 
wAds 
#RO3 
wd 
wHO 3 
«HO 
wWHOY 
wBu 
aRhO§ 
aA0$ 
wAOS 
wAa3 
wh § 
wos 
#wRO3 
wHOS 
ahtyy 
ARDY 
wROS 
aAhN3 


Pid 
21s 
Pls 
ei? 
aia 


— ee : 
wwe se OO BWrFSL Cw 


eee 
ornwouwec 
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Cc 
30 


40 
$0 


cana 


Cc 
Cc 


c 
c 
Cc 


an aan 


MFAD (10) XH, YReZA 
Te (KFUSOR,EG,9) GO Tn 29 


WESD TN MEw AXTSE STATIONS (xJ) FOR BOY CFUSELAGE) 


DEAD (5e210) CxXSCK) okt KE USOR) 
GO To §0 

KE USORENE NRK (NEN) 

TR (KFUSN® LE, $u) GO TO $0 
WRITE (6,199) SFU 

STOP 246 


USE CATGINAL AxXLay STATINKG XJexFuUS 
KFORKONF Uy) EKEUSUR 
D1) GO «et, <FUSUR 
MICK SRPUS (CK ,NEID) 
CONTINUE 
JMesMeKFuSGR 
TF (ye Lb.39) GO TO on 
WRITE (f,200) 
STOP So 


INITIALIZE CIGROINATES FRUAL TO SEGMENT LEADING EDGE 
OO 70. kst,KRAD 
XC(CS,K)ex8Ct) 
VCCI, KISVIC1,K) 
COCSe<3sZ801 KY 
CONT Te 


wd03 
wA03 
4R03 
«803 
wBOS 
«403 
wAOS 
aBOS 
wHO3 
4803 
wBO3 
eAOS 
4H03 
BOS 


AROS 


wROY 
whO3 
#03 
wRO'S 
whO$ 
4B05 
wAOS 
wRO3 
wA03 
wHOS 
wAO3 
wAOS 
wRO3 
wRO3 


sane tenavcceqceor=anti)§ 
INTERPOLATE FOR REMAINING PANEL CUDRDINATES emenene « . 


OD 110 Jad, nF USOR 
IMASI 
JsJel 


FIND keSTATION 


O00 100 Ma2sNFUSOR 
MMi emMe| 
IF (KR (4MI LIX ICI) Bo To 100 
A On Wat ,nhad 
C exJ(JJ) 
WEE SUAYERT CACM AD XACML VACHS ARE EAE) 
ZEC Tee VEMINCZICMME GK) SHACHALD, CCA) KB OYD VTC TS ) 
IF (K,EG,1) GQ TH 90 
K"Lsonmes 
JPSIMey 


CALCULATE PANEL ITRCLINATION AND CENTRIVIN 
CALL PAMEL (CUO, Sp Keb a JP, AP? 


PEINT BODY PANEL EOURDINGTES 


Aerie Cos2da} “SPeKCCIeL en KALA VOCIML KML SZCCIME SKID, KCCI, MME), 
§ VOCS eKML Ge ZEOCSOKMLY SXCC IMD OMI GS YCCIME SKY, ZEC IMI AK), 
2 KCC MV VCC Ted LOCI, K) 

SE AC SP YRAP 

CONTINUE 

GSU TN 110 

CONT TUE 

CONTINUE 

CONT TSE 


wRO3 
aA0% 
wAOS 
wAhOS 
“ROS 
wAQ3 
wHO3 
«AOS 
wHO3 
wBROS 
wRO§S 
wAOS 
whO3 
wRO3 
wBOS 
whos 
w303 
wWHOY 
wAOS 
wAOS 
aBO3 
wA0S 
wB03 
wA03 
wBO3$ 
wAOS 
wROS 
wRO3 
WADY 
WROF 
w8303 
wAQS 
ahos 


101 
102 
103 
194 
105 
106 
107 
108 
199 
Yio 
ti 

{te 
113 
{ig 

{15 
114 


140 
150 


1690 


170 
190 
200 


210 
220 


240 
250 


270 
280 


300 


naan 


sBONnysJP 
IF (NAONY,GT,600C) GU TN 170 


IF CYPRINT,GE,0) GO TO 150 


RITE (5,250) 

N0 130 JPsteNnKOCyY 

wRITE (h,270) JP,XPTCUPIAYPTCIPISZPTCUP) 
CONTINUE 

weVITE (6,260) 

01 140 JPeieNAnoyY 

NOEGSIELTAC IP) eR O0EL 

TDEGRTHET (JP) aRADEG 

CRITE (6,270) JP, AREA JOD DELTACIP) se THETI IO; NNEC, TOEG 
CONTIN GE 

DY Lon Jest ,NRNDY 

TRETAC JP) BTHETC( UP) 

CONTINUE 


STORE HODY GEQMETRY ON TAPE 7 


i] 


1 


VRITE C7) AQRAY 

QERINO 10 

RETURM 

WRITE (6,500) 

sroPp 

FURMAT (59K ERROR © MUMHER OF ROWS OF PANELS IN RONY SECTION 
oTS,2x,19MEXCEEDS 30) 

FORMAT (49K ERROR © NUMBER OF ROWS OF SINGULARITY PANELS ON 
Low HOOV EXCEEDS 39) 

FORMAT (10F7,0) 

BOUMAT (2H1,9x, 55HRODY PANEL CORNER POINT CNORDINATES 


@ 65x, 1 2Hee BUDRPAN wag S/S OXZ5SHY AND $ 
1 60K J IADICATE BODY CAMEL LEADINGREDGE POINTS, 2 AND WY INDICATE 
2 21H TRATLING@EDGE POYNTS/5X,S5SHPANEL pUCEXo LHX AX ZIHY, AX, IHZ)/ 

BS LB, BCH pe BK), SELMA, AK) SCLHS, OKI SCIRU,AXKDS) 


1 


t 


FiIRMAT CTA¢4ks12F9,5) 

FORMAT (f-+49¢38H RUDY PANEL CENTSUIP POINT CONNRNINATES 
A/4X SHOAL AT, UG LAK, TOK, THY, LOK, LHZ/ISX,SC2HCPAIK)Z) 

FORMAT (TAI X,SP11,SeF19,3) 

FORMAT ({Hi,4dx, JoRBUDY PANEL AREAS ANN INCLINATION ANGLES/ 
1HQO, 3¥, SHPANEL 24, 4HAREA, TX, SHUEL TS, GX ,SHTHETA sc OX, SHUEL TA LOX, 


2 SHTHETA/S20X» SHPAD GSK y SHRAI HX, SHNEG SAK e SHNEG/) 


1 
1 
1 


i 


FORMAT (43H ERRUQ © nUMBER fF KOOY PANELS EXCEFOS 600) 
Laie) 


SUBROUTINE SODVEL 


COMPUTE THE THREE COMPUNENTS OF VELUCITY INDUCED at SPECIFIED 
CANTAGL POINTS BY' THE AObyY PANELS 


COMMAM SJOPINGS IZIC73)-IxZS¥¥ 

COMMAN /PARAM / NUNOV,RWINGSNPALL eo LBC, THK yp XMACH, ALPHA, HETASALPHAC 
ePHIR, PEF A, QEPFH, REC ,REFN, REPL »REFX REF? 

COMEON /VELCOMS NPOINT,NPART, FMAXs JMAX,NMAYN EM, IPRINT, NWT HK 
oNWALIDK sNWROM (202 6 NURLOK NARI CSO) 

COMMON ANE WCOM SK] KAAR RH ARIR, KRADK (CU), KENRY (CH) KFUS MAK SKY KS 
KE (0) KAN( 6) SKEINOIR (6) MANOR (6) KOL NCPT,LOICPT(20),xCPT (20) 

COMME UB(OOND) PVECAIN) s aBCOON) VI CHOn)o*F(h9%), AN (600), 
AN(603,29C2H0), x37 (H00) ,YBT (600) »ZKT (AON), TT(600),L9(1200) 


wRO3 
wBOS$ 
wADZ 
aBO3 
0903 
wA03 
wBO3 
wROS 
4RO$ 


wROS 


wROS 
w903 
wAOS 
«AOS 
wRO3 
wHOS 
wA03 
wB03 
wROs 
wA03 
wBOS 
wB03 
wR0%S 
w803 
wHOS 
wRO3 
#803 
wB0S 
wRO3 
4803 
wB03 
wROS 
wRn3 
whOS 
W803 
wRO3 
wBO3 
wAOS 
wAO3 
wA0S 
WROS 
wROS 
wAQS 


#AOG 
wROU 
wA0G 
wRO4 
wROa 
wROd 
wRQU 
WwAO0G 
wBOG 
wA0G 
wROG 
wA0G 
wROG 
e898 


117? 
118 
119 
124 
121 

122 
123 
124 
125 
126 
1e7 
128 
129 
130 
131 

132 
133 
134 
135 
134 
137 
138 
139 
146 
141 

142: 
143) 
Loui 
148) 
146, 
147! 
148, 
149 
150; 
191: 

152 
153 
154) 


155 


156 
{57.. 
158 
159 


SINS wWWVS 


320 


aaaran 


10 
CNxe 


20 


30 


COMMON ZPHINT 7 XPTCH009,YPTCH00) e2PT(690), THET(O90),DELTACOUN), 
1 XC C$0,20) 6 YCCS0 620) 9 20065,20) DELTICGO0N) sxLE (690) 
COMKAN /BNOCUR/ AMACH, TAND,CXOXCUR C4), YCOR(CU,ZCOR(4) 


1 XT VUeZlokXSeZd 

“AMMO ZHTRET 4 THETA (600) 
LAGICAL LAC 

AMACHSXMACH 

JMAYEMAX 

Ils0 


I 1S THE INDEX OF TRE CONTRUL POINT 


J IS THE YNNMEX OF THE INFLUEMCING PANEL 


NN 110 TstehPOINT 


TF (LAC carh, TebSeITCID AND, NPART,EN,3) GA TO 110 


Plerret 
SLTISSINCTHETCTI)) 
cOStracoscteet¢(r)) 

XPT LTaxPT(T) 

YPOTTSYPT(T) 

ZPOTIAZeET(T) 

Te (NPAMT,FO,33 GN TO tu 


BODY PANEL INCIDEMCE ANGLE 


SINOSSIVCMELTACY)) 
COSDSCOSCHELTACI)) 
69 TO 20 


“ING PANEL INCIOESCE ANGLE 


DEL TSO, 
TF CNM T LH) DELTSOELTICI) 
SINDOSSINCOELT) 
CGSDSCOS (MELT) 

YO Fo Jat,nBudy 
UHCIIED, 

VICJIE9, 

4T(J)30, 

CONTINVE 

J=0 

JP 

L390 

ON 70 KFUsI KFS 
NEQHSKRANK (KEI OL 
ACOL SKE URN (KE USOT 
ON 60 MCste COL 
Lele! 

JPistsJPN 
JUNSIPLENRU Ve] 

Nu 50 MBy_NKON 
SaJel 
TARDSTAN(DELTACJ)) 
COSTSCOS(THET4(S)). 
SINTSSIN( THE TACJ)) 
XeeSIntecns¢rl 
X¥SCOSTAAINTI 
XYBSCOSTeCOST! 
XZESINTaASINT] 
SINTREX~oXX 

SINTL @Xwexx 
CCSTRexvexZ 
COSTLarVexZ 
UPLENe1 

XCISXC(L NPL) 
YCisvC(L,“P1) 
ZCisZCt(LevPl) 


ahod 
wRQOU 
wROG 
wROG 
wAhQd 
#A040 
wBOG 
wBOU 
eA0G 
wAOG 
aga 
wa0d 
wAOU 
wHOG 
«80a 
wROd 
wRQn 
wAQG 


. WBOU 


«ROU 
wWROG 
wAOG 
wROU 
*BO4S 
wBOG 
wAQY 
wROU 
aROg 
wHhOaQ 
whOU 
wROG 
wAta 
whidda 
WROG 
«B0a 
«ROG 
NBO4 
wROG 
wWROY 
wBOY 
wROG 
wARQU 
wROG 
aHOu 
aod 
WHOG 
wROdG 
w808 


wRhOd. 


#B0g 
whO4 
whOa 
W804 
wB0ua 
aRoOa 
wAO8 
wAON 
«304 
w30G 
#AO0u 
wROA 
wROG 


wAO4. 


aan 


CALCheaTInw OF Banke Crbuge ENIaTg I~ PAYEL Canpophaté SYSTE» 


XCHRCL 20, ELE Ee SS ar 
YCuR(y so, e- 2 
ZCuR(PVS9, 
XOVRCQVEKE (LOL, PLIOXCS 
xCO9C 5)", 

KEN CuyserCO@C2) 

OV yu «32,0 

LPTs ot 

*OTsr o1 

TE (KYGE, 4) SPITE 

TR CH EDS) Leper 

VELYSYCOL OL, NPY) ©YC! 

PEL ZEZCCLPL NPL RCV 

YCUS CH VSLELY ACS Teme lL IeSIVe 

ZOUR CM SCELLECOST SHOR vaS LT 
ao COUTTstk 

CxexCe (2) 


f. 


: CALCULATIO® IF CONTROL ProysT [N PANEL COMROINATE SYSTEM 

c 

‘ y]SxetTrTerC} 
AVEVYOTTevoy 
'ZsZerye2e) 
YisNvern"sTelZa gin’ 
Tle 07 ef ASTeitvaSIAT 
X¥ITEKRTO J aah 
OYIPSYS TOT @YC! 
OLISTETOV 8 LCL 
ZIZ9Z al SrecyyaSiyt 


Cc 
C CALCULATE VELOCITY COMPONENTS TnhuCe® BY CONSTANT? SQURCE 
© OYSTRTSAUTIOY PANELS 


a 


CALL ShAPAn (ue, Vay wk) 
PAeTysie 

VIC JV EV2eC 8 TReAvRaeSINTR 
aAT( J) SvSoeS IN TR eee ae CSTR 
Lad, 

vist, 

wLon, 


CALC LATE VEU: CIYy Ci4POxkw TS FONM LEFT Sire € mR SYMMETRIC 
CONFIGURATIONS INMNUCED BY CONTANT SuUuRCE PANEL 


 aandna.~ . 


Te CT ¥Z8¥M. SE .9) GO TM 4S 
NVzeVOTT@VCI 

VisiiveloSte 2eSint 
ZIS9LeCgterves] it 

CALL SBP AN LUL, VL oe *L) 

Gere sy2u9 05) eur 
VICJVSVIC IT eVLeCiSTL ost eSINTe 
ALC SV Se QCSVevEaSINTL esl eCaste 
5 CUrsyue 


CALCU are VELOCITY COMPONENTS IN CUIGI AL COmRNIMNATE SYSTEM 


ANAS 


VACIIVAVEC I eCISTLev((1yeST Tt 

WAC IVT OPEC STL OVIC J @SIATI 

ACTS B-T OP eCNSOe Bl Sye51 9 

TE (NOAUT HTL ON, NAONY,LE MAK) GU TR Oe 


«404 
adpnag 
aA Og 
whOG 
2nou 
ah Od 
aki 
anda 
wAQU 
ahd 
«804 
aig 
wROU 
aad 
aRKO4 
wkBOY 
am OG 
“80d 
aRQOd 
AROG 
wROG 
ROU 
aAhQg 
arg 
waAOu 
«40d 
wAOG 
wi Od 
ahQg 
«AOU 
aata 
auOod 
wh Od 
ahOd 
wkhQOU 
«804 
akKhOY 
aKQu 
whoa 
wA0d 
“ata 
aBO4 
+ROU 
waga 
wHOG 
WBAG 
#BO4 
AROG 
wHO4 
we ANY 
wA04 
aROU 
wd 
e40u 
eADY 
#RI4 
aH0U 
+400 
aK Qu 
«HOG 
whoa 
«hOU 
sAQ0 


7A 
79 
a4 
a1 
a2 
BS 
a4 
a5 
4o 
ay 
AR 
aa 
99 
oY 
92 
93 
Qa 
95 
95 
97 
9A 
99 
ian 
191 
192 
103 
104 
105 
196 
197 
104 
109 
{io 
fit 
112 
113 
lia 
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t44 


NAAM 


149 


159 
C4 
130 


Tisf{iers 

Tesazaete 

QEAN (5,488) CTZORNONG,T) Tete te) 

of @0 T=Ti,le 

TE (WAENRG(S 54) .EQ.0,) Gt Th ad 
TZORDONN, TISTZOROCNN, [ALGO gs AFURGONN, GO) 
CONTINUE 

TF CLPRT) @RITECOeS10) SNe CTZQRNCNNS TD, TET1, 12) 
CONTE SUF 

GO TO RO 

AO 70 Yet,rr ae 

OM TO KBte! 

TZORO(C Ten dsu, 

COMTINGE 

Lai 


MWAFOQ ONSITIVE INDICATES SYM*ETRICAL QRNINATES 
NEGATIVE INDICATES UPPER AND LOWER ORDINATES GIVEN 

TF (NAAFOR,LT.O) Lee : 

TE (LPRT) »9ITTE(6,550) 

DO 100 vestysnaar 

1. 100 Kalel 

Tise9 

Tes 

CO 90 Siat,sREC 

Tislioyws 

Testaesa 

READ (5,URU) CwAFORUCNN Ke TD ,TSLI 12) 

TE CLPRT) HRITECO,SLN) Ss CHAFNROCNN KL) ofatt,1a) 

COMP ue 

CONTINUE 

ON 110 Must, vwaFr 

AQ 1k0H Katyl 

+ AFOR OMA, C)SHAFORD CIN, BK) 

IF (L.E%,1) GY Tu 419 

ABPOR (MM KISCSAFURA (CNH) 19K) taAbURICNN,2,KII SA, 

TZGRN (WN RISCKBFORD (NM, Dok DOW BRR CIN, 2,KIIS2 + TLORA(NNGK) 

CONTINUE : : 

IF (N4OROR,LE.O) GO TH 1350 

Di) 120 wuag,iioaFk 

ON 129 wai,v 

WAFORA (CR pep K)SAAPTIRD (NNG 19K) 

CONTU AE 

HMAPNRETARS(CNWAF(IRY 

IwAN A APR 

Jtztass(Ji) 


CHANGE wfnG TO 4CTUaAL uMl[ts 


OO 150 Tet, star 

EB UL awarihG(F,4) 

EF Sswatyreth.$) 

Ni) 149 Jap, dF ie 

MAFORN CL Le J SEMMAFURI CTs Le SIGE SHPLORNCT, J) af 
ABER CT, Qe JI SeE RAAPOROC IT Qo JIE SHTZNROCT oJ) a& 
ABE UROCT, Sot SAAFNAG(Ty lL) eb aXxAr (J) 

CURTTNUE 

CONTI DE 

¥R@ITE (9) BLUCK 

CONTI Stab 

NETAGS(S APIA) 


FUSELAGE (HANDY) 


aR08 
wAO8 
aAROa 
WRO5 
wH0B 
aROB 
aKa 
wA0A 
wRNA 
wRQS 
wROR 
whoa 
W908 
wRQOR 
wROR 
wBOR 
ABQA 
wROA 
wROB 
wHOA 
WBO4 
wWROA 
wWROG 
wRhOB 
wROA 
wROS 
WROB 
wAQB 
“BOR 
wROB 
wB08 
wH0@8 
WROA 
B03 
wA0B 
wA058 
W308 
wA08 
wROS 
wAROB 
w408 
wAOA 
#ROA8 
“W308 
aMROR 
wBO8B 
wROS 
wROB 
NROR 
wRO8 
wKhOS 
wWROAR 
wAROR 
wROS 
wRQA 
wWROA 
w40a 
wROB 
wROR 
%ROB 
wHOA 
aBaaw 


wesw es tease cesses eeseceneeuagssenssacocoosesesaonn nh ()§ 


8S) 
86 
a? 
AB 
59 
ey 
91 
92 
93 
qa 
95 


97 

9a 

a9| 
100° 
tol 
102) 
1038 
{ou 
105 
106 
107 
104 
109 
Lio; 
411! 
112° 
113 
494 
115 
116 
117 
114 
119 
120 
tet: 
122 
125 
124 
125 
126 
127 
128 
129, 
130: 
135i 
132 
133. 
130 
135 
136 
137 
138 
139 
140 
tay 
142 
143 
1a4q 
145 
146 
147 


ANMAAAAMAAAN 


20 


AAA 


140 
19a 


29 
c 


2y9 


re 


CJ2,E 9,0) 


f2YFSTts3 


Je 


€n an Jo 


€ ou Ag Ja 
= 1 TuNTCa 
XYePLA 


BA Tl 290 


wROA 
aROa 
aBCA 
aKOA 


=e el INGHTCATE. CTRCULAPVELLIOT Ye PIISELAGE SYMMETRICAL «ROR 


ay TA The KYePL ANE 
Be OTUNTCATE CLECULARZELLIPTIC CAMBERED FISELAGE 


TES COMPLETE COUFIGURATION SY*M™ETRICAL WITH THE 


NE 


m1, BEAD FNSELAGE CRASS SECTLinaL ARE BS 


sw, Heat FUSELAGE Hautl VS YFUS ON Ay 
a 0S, EAD ELLIPTIC FuSELaAGe SEMI evasne AXES V3 XELIS 


CFA Lb athe 
(S20. 
(Jo,bG.1) 


Aud JOE, 


MEANASIA bem t 
REANRSIA F292 
PEANESI2 £9.95 


Jes 


5} 


QF am XFUS 
CLORTY “<WITE(O+S70) 
OO PAO mead, 
NRANENRADUCMFEUS 

wPUSTAS SE MOX (NEU) 
HSE LGN 


YF 


HRECS(.49I 016 


{ise9 
yeso 


Nn 170 


Tleliety 
YA=T2e4" 
HEAD (5, uB0) 


TF 


CLOeT) -FLTECO,S10) 


CUNT Lik 


J2TEST = 2 INDICATES CI9CHLARZELLIPTIC CAMHFRED FUSELAGE 


re 


{tised9 


T2s 


ye 
pete 


uy) 


NEUS 


apalsVReEC 


CxPUSCLenFud,leri,ted 
a ce 


CSATEST 9&2) GI TO 197 


CLPAT) wRITE (6,930) 


{HO NYaten 


pistpery 


res 


T2esy 


READ (5,4uAU) 


TF 


CLORTY #hITECOeS!0) 


COT yy ue 


ite) 


rn? 


™| 2to 
A200 Tat avr 


REC 


C2FUSCIA Fy, TStte te) 
NFU CLEUSCL oF, TST1,l2) 


'3ur 


ZFUSCT, SFI) aU, 
CUT TONE 


YATES & ZF INDICATES avRITTHAary FUSELAGE = READ ¥J ZS NE SECTION 


Te 


CIATESTIOR, 


vOAGNS (494049 


nc 
ae 
Te 
iad 


AG% Pxsdyg% 
239 “21,2 
CLOET ann 
(LOST ami, 


$) 8 
ys 
Fusiiv 


a“, eet) 


mbm, 2) 


aksreot biel jed 


TO 256 


RITE (8,599) 
wPITECo,46U) 


o1) Jatestat 
Vee O SoeE9,8) J2TeSts2 
Jaresrat 


TveuT 


JS ¥RUS aN 


SPY, T= 11.12) 


2 


Wr Put 


‘ 


wAO8 
«ROM 
“AOA 
“ROB 
“408 
aBQA 
aon 
aOR 
“Aga 
KAYA 
wADR 
«AOR 
ABH 
406 
«A08 
aOR 
ve AOB 
4HO8 
nAO8 
«RQAR 
wROA 
ad08R 
wA04 
wR 
wKHOA 
“AOA 
wAOA 
whOR 
aROA 
aa 
4304 
aAQR 
4408 
“BOA 
AHUB 
aRO4K 
~H038 
~ADA 
aOR 
wHOR 
wHOA 
AOR 
wH08 
aAOR 
“B08 
aROw 
-aR0B 
wROR 
wROR 
SHOR 
ahH04 


- wHOBR 


wQ02 
«308 
«HOS 
~ROS 
AROS 
ad dA 


1aa 
149 
149 
191 
1S2 
1534 
154 
155 
156 
1S? 
1548 
159 
ton 
161 
152 
1o$ 
1o4 
165 
164 
1o7 
toa 
169 
179 
171 
172 
175 
179 
175 
{74 
177 
178 
179 
15) 
11 
182 
143 
184 
{AS 
186 
147 
{SA 
1a9 
190 
191 
192 
193 
194 
195 
19e 
197 
198 
199 
20u 
ent 
a0? 
2n3 
2)a 
ees 
ats 
en7 
20k 
ang 
ein 


329 


330 


Tlsio #904 

T1leea ' #BOR 

1eso +ROB 

ON 220 sist .xCakd «BOS 

IF (NN,FQ,*CARD) TLSRNOCNRAD,ZIU) | ‘: wAhNB 

TF CLIeEG,Y) T1810 : #808 
Tlslieqo a~HOB 
Te=l2e¢r!s «BOS 

WEAN (5,480) CSFUSCE, JXsKK),ISLI-12) wHOK 

TE (CLORT) eRITECOeSI0) JX, CSFUSCI,U«,KK),TSIt,72) wROA 

229 CONTYIUE . wRO8 
230 Com INUE wROS 
240 CONT TUE vBOR 
GG Th @AD “wAQR 

C aBOR 
C CIRCULARZELLIPTIC FUSELAGE = READ CROSS SECTIONAL AREAS/RADII whOd 
Cc «E08 
259 CONTI IVE WhOB 
TF (LORT AND READA) WRITE (Co,010) AROS 

LF CLOBT Ohi HEADRY “Q1TE (6,615) «HOR 

IF (LORT AN? READE) wOTTE (6,480) wHOR 

: )Q 255 TetevFusor WBOB 
255 —s- FUSAZ(T, »F Hi) 20,0 wROB 
, Jiseg wBOB 
1220 AROB 

99 260 Nit, REC wROS 
L1slyeyo wROB 
Teal2+ja ".-wROA 

TF (QFAPAY READ (56485) (FUSARDCISNFUY,1TS23,712) wROA 

TF (RE ANR) SEAD (5,480) (CFUSRAOCESMFUD,IST1,72) wAOS 

TE (READE) REAN (5,480) CFUSRYCT SPUD, TSti,t2y 4808 

TF (LOPT AND READAY *@21TECO,51U) VF, (FUSAPNCY NFU), Teli,12) 4AOB 

TE (CLPRT.ASD,REANR) wSTTE (6,510) NEU, CFUSRADCT,NFU),FET1,12) WHOS 

TF (LPRT, AND, READE) SUITE CO, 519) FU, CFUSHYCITSNFUDeTaI1,12) wBOA 

240 CONTINUE aos 
C wROB 
TE CNOT,RESVE) GO TO 268 «R08 

WRITE LopnF) wAOB 

NG 264 T1sbe Fuse, lo wROB 
r2sT1+9 wKhOB 
READN(S, UHC) CFISAZCT SFU, TSTie lA) #8048 

TE (CLORT) ARITECO,S5199 NEU, CFUSAZCI,NFUID,Tari,t2) wHOHK 

2454 CONT Dik wAOK 
2548 CONT Tk «408 
HO 270 Tete Fu SOR : : wADA 

TF (READAD FUSRADCTeNFU)YSSORTUFUSARDCT NFU) SPT) ~ROK 

JF CREADR) FUSAROC TL snFu) BPI] eFUSRAD(T NFU) w22 \ #BOA 

TF (CFUGAZC LO NFUD LED) FLISAZC IT oSFUISFUSBYCT,NFU) 4808 

279 CORT TYE : wBOB 
aan Ch Tye w30HK 
ca VPTTE (9) BLOCK aOR 
290. CONTINUE wROA 
C. #B08 
c PCD GENKETAY JUMMY READ STATEME*TS esoemen 9 sear szwoveccsneseaewenh(i 
¢ wAQR 
TF F9.3,F9,0) GN TA 385 wA0a 
NONPNONR wWROS 
MPECS(NFG)/10 - WAOA 

NN 320 ANSLZP «HOS 

PEAR (5,479) ARC «ROR 

MO $90 shai, eREC «AUR 

READ (85,670) ARCD NROK 

300 CORT IMNE wB08 


dit 
ele 
215 
214 
215 
214 
217 
218 
219 
220 
221 
2e2 
225 
2e4 
225 
226 
2e? 
22 
229 
235 
esi 
232 
233 
234 
235 
236 
237 
234 
239 
240 
aay 
242 
Aas 
eu4 
24s 
244 
247 
248 
249 
250 
asi 
252 
253 
254 
ess 
256 
257 
258 
259 
eon 
261. 
eb2 
263 
264 
2465 
266 
267 
268 
269 
270 
e7t 
272 
273 


$to 
yaa 


330 


344 
399 


gan 
$70 
ca 

$0 


MIaAaAD 


376 


ana 


NO S19 -b ps1, NREC 
&EAN (5,470) 4600 
CONTT SHE 

CGT PivE 


FI'S (VERTICAL TAILS) Reeeecdwdsdinneacconccesseeesceseacesadaune 


TF (34,69,0) GO TH 360 

yuk Dane 

OO $50 VNslowF 

READ (5,040) COPINGRAGENS Te J), 3S104),751,2) 
TE (LPOT) s2LFE Cop be) Site CCR TMIRGOAN, I,J), Jstes) elated) 
REAM (S,u8O) CXPIN(XNe Tels) 

TE CLPRTY eRITECOeH30) CHFINGSN ST) TS1,%) 

READ (S,4RH) (FLSORUCHEN, Lets JSL— ¥) 

TF CLPRT) «PETE (CO,RSOd CRINURD (A Vela JV, IRIAN) 

NG Jun Sates 

FIACRONM, FEO, 

ETP Cr, PYSPINCRD (CIN 16d) 

CONTT vue 

COMT LSE 


CHANGE FI"'S TO ACTHAL UNITS 


99 370 LASI,NE 

DN 370 Jal,2 

Ux 3el] 

ES SOLO TA UkGCLA ede SS) 
BesFISNRE LO, I22) 

OCP Fad asl ,NF LAUR 

EE SFINNRN(LOe1.%) OF 
FISOQDN(LUsTeK BESTEL 
FIMKOCL 3, 1,4 SFAREE 
BUNS Ge TeKISEINONQG(LO, Te LIOE MKF INGLE KY 
CUNT] oe 

CCT Tae, 

*PITE (9) ALOCK 
CONTE NUE 


CAs ARCS CHPETZTONTAL TAILS) pe asec eddvdoindoesetdevodeesaseaceeuse 


TF (JS,EA.0) GA TG 4AN 


“MBE TANS (NCAR) 


OY 429 rest, tC ats 

REAM (S,481) CCCAMORG CONN Te J) eo debe 4), T51,2) 

TE CLORTY wRITE CAs SIOY YN CCCANORG CIN, TES Jet e4leolate2d 
HEAD (S,4RU) CKCANCVN, Tg EBL at) é 

TF (LEST) aARITE(CO,650) CXCANCNM, 1), fer,%) 

READ (5, GRC) (CENDRICINGL J) oJHIe +) 

TE (CLOWTY WHITE Cos r70Y CCANNRO CN eld, JE, 


SCALOR POSITIVE T=CICATES SYMMETRICAL USNINATES 
MCANOQ “SEGATTVE TMOICATES UPPER AND LiOwk@ QOENTVATES ARE GIVEN 


TF (Af OSOR,L TAG) GO TO Bud 

ra Jon Jot. 

CANCH ON, JIEQ, 

CasOR CMM, FISCANVERN (IN, V9 J) 

CAMEL (OWN Lp SI SECAVUMD OE Ng ded) 
COMTTNUE 

GO TA G20 

oU.Tt* oF 

REAP CHpuRd) COA MALTON, tet) ¢ FSt es) 


«808 
~ROa 
wROAR 
wAQR 
4A0B 
aR 
wRQA 
wROS8 
«ROR 
AKQA 
aga 
wh QR 
wROA 
WHOA 
wads 
wROS 
wROR 
wROK 
wAOAR 
«HOA 
wROA 
WRIA 
wBOR 
Wu 
wAROK 
aKOS 
«608 
wAOS 
ROB 
WANA 
wROK 
aB08 
ako8k 
nAOR 
aa 
XA08 
# AOA 
“ROAR 
wROR 
«ROB 
#804 
wROR 
whOA 
aROR 
wROR 
4BOS 
wA0K 
wAOR 
wROWK 
WRAOA 
aR 
4408 
wHROR 
wHQOA 
wROB 
wHOAR 
«HOB 
ah(A 
aB04 
aaQA 
wAQR 
wROA 
aaa 


e7s 
e7s 
274 
277 
278 
e779 
280 
251 
eae 
203 
ada 
285 
286 
au? 
aka 
28a 
2gu 
2gi 
292 
ees 
294 
29s 
294 
297 
29a 
299 
$00 
591 
309 
3045 
304 
395 
306 
$07 
304 
399 
319 
311 
$12 
313 
314 
$15 
316 
517 
$14 
319 
329 
321 
se2 
323 
yea 
$25 
$26 
327 
32a 
329 
354) 
3st 
332 
353 
334 
3355 
$40 


331 


332 


419 
420 


439 
aud 
459 


460 


ayo 
4Aad 
ag9n 


500 


$190 


S20 


949 
550 


570 
5A0 


534 
619 
610 


61S 
629 


630 


64Q. 


450 


620 
679 
640 
690 


* 


cl 


* 


* 


a 


{ 


{ 


® 


* 
& 


TF CLORT) RITE (6,670) (CANGRICMNe Lod), Jateny 
NO G1 Jet, 
CANORONN, SIS(CANORDONN, Lp J) eCANIRICNN, te ddI226 


CANCRONN, JIS(CANORDONN Ss tJ IOCAMINICNN, Ee JII/2, - 


CONT TUE 
CONT ISMGE 


C4#auGk CandseN 1) ACTUAL NETS 


NN G8) “Wwat,vCan 

ON G40 Kzl,2 

Ta3aw 

FE NP aCAMORG (Mate 1, Gd) 
§S=CANDPG(KM,Y, S$) 

NO agg Jaton 

CARKORN(AN,1  aiek ac iiiRo aia ees 
CANORICMN, Te J SOE RCANNRI (Ny lp JIE S 
CAMORK (hye Te SVECAMORG (Mha Ty PFE RXCAN (ING) 
COMTI NHE 

COT pe 

CONTINUE 

wRITE (9) RLIOCK 

CONTTAUE 

REWING @ 

RETURN 


FORMAT (84190) 
FORMAT (90F7,0) 


FMQMATCSS/IOX,CSMVENTICLE GEDMETRY DEFINTION, 7UX.1eHee CONFIG an 
e/OX, SSHVEFERENCE AGEA (J0,67,9) REF A=,G613.6) 
FORMAT(//5%,456 = XOF © wfsG ORDINATES FOR AIRFOIL (3 ChiIRO) 


e10K (J1,5E,0)) 
FORMAT(TS,10F 1604) 


FORMAT OSS, G24wWAFORG © WING ATHFOIL LEADING ENGE + CHORD 


AUX VHT TX,I PK OK, THY, IK, tH Ze OXKe SHCHIIRD) 
FARMAT(C/S%, 39H TZORD w@ 8ING CAMHER, 2 VS YAFY 


FORMATO S95 X,45NWAF ORI @ SIG ATKFOIL OQROINATE (4+SV¥%,e(/P/LON) 


e9H = NWAFOIRQS, IS) 


FORMAT OS/5H NEU,SX + 2nHeFUS © FUSELAGE XeSTATIONS) 
FORMATOCSSH MFINZSX, STHZFUS @ FUSELAGE ZeCAMHER VS xFUuS FOR 


efOHCIRCULAR SECTINN) 


pomuateyea Jee 5Ke42HY @ CHORGINATE ARRITIARY FUSELAGE SECTION 


Pen CSE NS) 


FORMATC/SH Jee SX,4AHZ © CUNROTNATE APRTTRARY FUSELAGE JECTION 


sOHC(SEUS)) 


FURMAT(/SX,U5HFUSARI) @ CIRCULAR FUSELAGE CRNSS SECTION AREA) 


FORMAT(/S5X— S2HFUSRAI @ CIRCULAR FUSELAGE RANT) 


FOPMAT(//5 05 36MFIMIRG @ VERTICAL FIN ATRFOIL NQIGICNA 
eSK MRE TN SEGSeTSpSIUK AIH IK ATHY ASK, I HZ e SK ep SHCHORN 


Sm OTM 9 UF19,$,94 GUT,4FI0, $) 
FORMATOC/S¥,4UH  XFIN @ COoSTATIUN FIN ATREUTL Ct 


CHORD),/10F 10,4) 


FIIRMATOC/SX¢4U0HFINURI @ ALPEOIL ROTATES VS XFIN (S¥M),/19F 10,4) 
FORMATOsS/ 5% ¢ GLHCANQIG @ HOREZINTAL TATL AIRFOIL ORIGION® 
SX, 9HTAIL SEG Se TESLA Me LK MRI IKy LHZ SY, SHCHIIRD 


oSH IN UF I0,$,54 TUT,GF IH, 5) 


FORMATC/5x,414 XCAw @ UMSTATION TATE ATRFOTL (4 SHNAN), /tOF 10,4) 


FORMATO/S%, GLHCANGRD -@ ATGFOLL OROINATES VS xXG@AN (SYM), /10F10,0) 
FORMATO /SH NFU SX, STHPIISHY © ELLIPTIC FIISELAGE SEXTeMAJNR AXES) 


FORMATO S54 NFU, SX, GLHFIIGAZ © ELLIPTIC FUSEL ace. 


ENO 


SEMTeKITNIIR AXES) 


wROAR 


wAOA 
-wAQB 
aROA 
wROA 
*AOB 
wh08R 
«KHOA 
~BO8 
“wAQA 
“BOR 
-wBOA 
4AOR 


> wAQS 
“ whOB 


a#Rog 
«B08 
“304 
a#BOR 
aROS 
wAOR 
R08 
«ROR 
WROB 
wBOS 
wROR 
«BOR 
WRAOA 
WROA 
«BOH 
aBOS 
wROA 
wANA 
w~BOR 
“BO8 
4BOA 
wWHOR 
wROB 
aROS 
wWROR 
wROA 
aKROAR 
a80HK 
aR0aA 
aK08 
wROA 
aROa 
wR0A 
w30R 
#ROAK 
«ADB 
aB08 
wRO8 
«B08 
wROB 
wROG 
wAN0B 
e808 
aROAR 
wAOAR 


337: 
§5A 
§39 
340 
3ai 
sua 
343 
gaa. 
3as 
$46 
3a7 
3uA 
349 
359 
351 
352 
353 
354 
355 
356 
357 
354 
359 
360 
Sol, 
362 
363, 
364. 
365 
366 
3o7 
568 
369: 
379 
371 
372 
373 
374 
375! 
376 
$77 
378 
379 
380 
38t 
yBe2 
$83 
yaa 
345 
36h 
347 
3848 
389 
390 
391 
392 
393 
394 
395 
396. 


10 
20 


NIAoaAnn 


SUBRYUUTINE CUBIC2AC KY, 0eCeJ} 
FIT 4 CUBIC TO TRO POINTS GIVEN THE SLOPE AT EACH POIKT 


DIMENSION K(2),¥029e0(2),C0 C8) 
x2ex(2) 

Hex(ljek2 

TF (4,NE,O.) GO TO 20 

Js3 

RETURN 

ASCVODYeVC2)2/8 

E=SXC1)eKe 
CCUAINCHIFICAIHbmAI SALE 

C3) sCaed(2))sReC CO ac Eee) 

C2) BASE RC( SI OCCU a lEak2eN( La?) 
COLISVC2)oK2N(C (2) eX2ae(C (3) ex2al(4))) 
JB 

RETURN 

END 


COMPLEX FUNCTION OBLUCZ) 


THIS FUNCTION SUBROUTINE CALCULATES THE INTERMEDIATE TRANSFORM 
VARTARLE & FOR THe CONFORMAL TRANSFORMATION OF AM ELLIPTICAL 
ANDY «ITH WINGS ; 


COMMON/COM1/A2,82.Re 
LOMMON/COMS/ZR, ZI 
COMMONSCOSS/D4NZ 
EOMMONACINb/W2, W 


COMPLE LeZ2e0a0Ze wend, ah 


ZeanZeZ ' 
ZRBPE4L CZ) 
ZIeaywaGg(Z) 
TFECZR NE, 940) ZREZA/SABS(ZR) 
TFCZT E90) ZIELI/ARS(ZT) 
ZasseehesAe2. ve ; 
veATMHAG(22) 
AYs1,0 
TFECY,L7,0,0) AvaHl,9 
avYZ2a1e0 
TECZT eA T,9090) AVLBO1,4 
2sCSQRTCZ2)wbyesyZ 
TECCASSCZ1) aLE,e0) eANOeCREAL CZ) oLT.0,09) Z2aCMPLX (REAL CZ2), 
1 atmMAG (729) : 
N407Z90,S5e(1,042/22) 
weet, Se(2Z2) 
wASEAsKa sn 
PaLiteaw 
PE TURN 
ENO 


4809 
whOS 
apo9s 
wROD 
#R09 
«R09 
“R09 
«R09 
wR09? 
wAOD 
&RO9D 
WA0D 
wROD 
wBOD 
aB09 
AROS 
«809 
~BO9 
#wA09 


WRIO 
wA19 
wAla 
WALD 
wH1O 
wRLO 
aBi0 
wB10 
wAt0 
wALO 
wALO 
wA1U 
wH10 
ABLO 
WRIO 
#Kh10 
W810 
aB10 
wALO 
wBiO 
wuld 


-wBLO 


wR1O 


WALO 


wALO 
wBin 
wBLO 


2 wALO 


wALA 


. wB19 


wBLO 
wAin 


wH10 


oOPNFV ow 


Oe oe OD > fer Oe pe me 


VECuMecomaIteUeWnNe 


oo me oe oe oe oe 


AS AOS oe oe oe we 
ue CcC OOM 


ted tod Wel es FU TU PY fu FO FO 
wvwer za eoovoucu 
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SUBROUTINE CERTVCX pe Vyng tbs Ag FO) 


PTT A CHAT OF CHATC CUQVES TRROUGHK A SET AF ™ POINTS HAVING 
COmMTTsSUNUS FIRST ANA SECOND DERIVATIVES AT THE INTERMEDIATE POINTS 
ANO SPECIFTER FIQST OW SECUIND DERIVATIVE OT THE END POINTS 


COMMONSCIEF /C 0495920 Z1 C209) 

NIMENST A: XCD, VOL ePNCH) 

CALL SCAMPULK Ye KeNVDAS M1 iA Ogee PF DIN) 
RF TURN 

eed 


FUNCTION DERIVICKL, YE,%) 


FINO TWE FLEST DERIVATIVE UF THE QUADRATIC THRONGH THPEE GIVEN 
ONTTS 41 A SPECIFIED ONE UF THESE POINTS, THIS PRNVINES A GOND 
APPRONXPYATIN: TO THE SEMPE O26 A FUNCTTON Af & OFVINT, PARTICULARLY 
YF THE OTHER Tx POINTS USED ARE NEARAY, 


DIMENSTON KC3I,VC3YxK103)- 103) 
EAUTVALENCE (S,%) 

oc to ye1.3 
¥CL)sxicf) 

y¥(r)arvtcr) 

COMPS NUE 

Key 

Reve pyevte) 

HS¥CP e¥(3) 
AzxK(1)ex(2) 
Bexety=¥($) 
CzAa(K(1)ox(21) 
NTSBa (x(t yer $)) 
C3z(Raebosan)/(KAC@ARDT) 
CeelEwC3al sa 
K1lsTansi«) 

OO 20 Ye1,5 

TE (K1,FQ,1) SO TO $9 
Cithe TENb 

GO Ti 4) 

Stx(«t) 

NERTV1IRC 292,80 $#S 
RETURN 

END 


FUNCTION DERTV2CK ee YeXX) 


RIND THE SECOND NERTVATIVE OF THE CUBIC THROUGH FOUR GIVEN PINTS 
AT AN ASHIETRPARY OFIINT wNOISE X FNOROIMATE TS SPECIFIFD 


DIMEMSJON K(49,Y04) 
NERTVeSN, 

TF CKCO)CEGACH)) RETIN 
TF CXCG) EN KC 2)) RETHRN 
Te (KOO) EAI) PRTUIRE 
IF (KOS) EQ,X(2)) RETURN 


agit 
wAll 
*Ali 
wHI1 
wWBit 
wAd, 
wAY] 
wRit 
wRIit 
aAll 
wd 


wBl2 
wAl2 
while 
wRt2 
aRi2 
wB1e2 
wR12 
wale 
wAl2 
4BLe2 
wAL2 
#B12 
wRi2 
wRAL2 
Ble 
whi 
ABL2 
aAl2 
wALe2 
aB12 
wBL?e 
wHI2 
aHie2 
wBi2 
aRt2 
wAL2 
wRi2 
4812 
*Ble 
akte 
“B12 


S-OENPFUEWN— 


swe 
-_ 


TF CXCPY ER eXCL)) RETURN “413 
AILSCVCUVEVOLIIZEL CTV eK O19) aRYS 
DSLECVCHVEVOLIIZEK C3) eX C17) “RLS 
1ALECV COVED C2 Vek (1) ads 
FECC§Staedary7excsrexr(2s) aR13 
ABCD eG2LI/AC KC He C A) VERY SCK Cd eKCS)) wALY 
CzEDe CK CS eK CAVEX CLI) eALS 

DER YVes2, 4 (Ce3, eiexx) eAP3 

DE TURN aRY3 

eae 4813 
SUBRHMUTTNE SLTAGIN wOE4 

C ‘ wH1A 
CC TNVERT THE NyAGOUAL BLOCKS GF THE MATRIX wRIG 
C FAQ “aTOrg PARTITIONS 2 OKO) THVERTES NTAGNNALS ARE AN TAPELO, e414 
c ‘ eALa 
COMMON PAN AM 7 NAQUDY,NATNGSNTATL SLAC, THK, XH ALH, ALPHA, BETAGALPHAC wH}d 

t sPHTQ,DEFA, KERR, REC, REP, KELL DREN, REE? W814 
COMMONS SVELCOMS NPDINT, PART, IMAXKe SUAS MAK SEM, [PRINT NO THK 4BYS 

1 NRL OK p SWROR (20), RRLOK, SBR (60) ania 
COMMON SPOTST £4 CC6U, 450), 7K (240i) «Ra 

Cc aRjd 
C4eu CRPUTINCTINES Ty) aQta 
pEsTen @ “Ald 
REATINND 10 “Aid 
MOPTMaA : wa 

TF Cm8ODY EI. 9) GO TN Go eaqa 

¢ aa14a 
C GE AN MATRICES AND PAVE RT GTAGGa OL RLUCKS “814 
c AByG 
OO 40 NHeteSBLUK wASG 
NACIAZBABRM my 1d) : nBt a 

VCE s* Qlhw wat 

TE (NANDY,GT,MAR) ID TH 2U wha 

C IP NAODV Ob, USE ENTIRE MATRIX ts TAPED eeyd 
An YO Jat, BnDy wha 

READ (9) COCL AI), Jebeoeuey) enta 

a CONT Dk wRiG 
GO TN $0 114 

C TE SANDY S00, USE CTAGUAL ALUCKS fin TAPE? : aBLa 
23 w@£EADN 077 9 : wBLa 
49 CALL TAVERT (Ig COL, Arm) afta 
RITE (19) 0 wALY 

an CONTINUE whLG 
3 atta 
© REAG wISG YATRICES AND JTvEwT SJAGUNAL RLICKS ewamewecenseosvensarauanh) i 
¢ aula 
Sa CMT TNE «RLU 
cs TE CM STNG ES ,uT GO TH 144A anata 
f IF SwE'Glol, KEAID PAST © ING/RUDY MATRICES AMD USE ENTIRE MATRIXARLG 
Carga CONT UE ahi’ 
Ys) QE*INE Ty : : atts 
DeWTvh Q vied 
RE“IAN 7 shea 

COLL COETEMETIME,DT,1) wate 

: s@OTTECO.15uU) TT*E,OF : i : wRYy 
So FURY ATUL OX, TAME MI OTAGU TIME SSF ID Gs SK, SHNTE,F ING) ania 
PETRA, ayy 

+Ala 

BN» re 


TE CREB EI ACLD) RETIWN HAYS 


GIN eV CwWN 








336 


AAOANAOAA. 


aaaaan 


COMPLEX FURCTIONM 0802(38) 

COMMON SCOM2A/ST G2 H2 

COMMON /CMS7ORNe 

CeseANsCO"4/62,61 

COMMON SCIWb Sa, 

COMPLEX 4e+2e0e02Z,61,62 

OS0750, Salt, OmSlGaevezyaci, id a aca 
RETURM 

END 


COMPLEX FUNCTIO® 208039) 
COMMON /COMI/A2, 82,R2 
COAMAMNSEMM2/81G2,H2 - 
COMMON SCAMaswe, 

COMPLEX WeSe42,61 982572022 

823S8eS 

GIS Se(L OPV 25a CAPen2) axn2)ya(), g=k2/82) 
z= 8+R2/8 

Z2sZeluu,vesiG2 

YSATMAG(Z) 

v¥Z2at“aG(Z2) 

AYS1,0 
A¥221,0 : 
IFCY,LT,O,0) ayeel a 
TFCYZ,LT,9.9) AYZzal,o 
ZASCSART (ZA) eAYaAYZ 
TECCABGCY) LE L000) AND, (REAL(Z) LT ,0,0)) ZERCHPEACSREAL CLE} 

i &IMAG(22)) : 
AZNSsGte(t,4u+2sZ2) 

BE TURE 
Ean 


SUBRALTINE ELBOVT CVA, wa, XPT, YOT,ZPT,NHODY) 


ROUTINE ELBNVT © ELLISTICAL BODY NOSE SEPARATION VORTEX CALCULATION 
THIS HOUTINE INTEPPOLATES IX TABLES OF VORTEX STRENGTH AND LOCATION 
VERSUS ceSTarlus TO COMPUTE Tht VORTEX VELOCITIES AT BNOY CONTROL 
PNTATS 


DIMENSION VAC1),4ACS), KOTO Le PTC Le ZPTC1) 
DIVENSE WN GOLGdevVxCLOVevrv(td) : 
DISENSTIN YOR TY CLO, LOVeZVETK (Ve 10) GKC10,10) 
Chimmrpy SAVQEX SZ NVTKUKVTXSAVCISsAV (P02 ,HV(10) 
COSMO: SIP TESS TZLCORSLORT CSI, 1K LSY™ 

LCAGICAL LOPTELPRIS 

TF (NVTX,LE.U) RETURN 
TF CNUVTX,LE LU) RETUQN 
LPRT sw TPART(1), GTC 

LPRT3 = TPRT(3),G67,1 


wAYS 
wHIS 
aBLS 
WATS 
“015 
“Bis 
wALS 
“B15 
w3lS 


walls 
aAlt 
wHlo 
4616 
WALA 
“B16 
wKio 
aRi4a 
wBlo 
wB16 
W816 
wBl6 
WALLS 
wAlA 
wAl6 
aBie 
WBlo 
wRie 
aBia 
4B16 
wAlo 


wAL7 
wA1? 
wAH17 
ani? 
WALT 
wR? 
wRI7 
wBi? 
wai? 
wRI? 
wALT 
wh7 
w317 
wALT 
abt? 
aad? 


AB? 


wR? 
WELT 


woccceavemncncen VURTEX LUCATION AND STRENGTHS eanestocecnseosnsanonasen sh] 


FIRST SUHYSCRIPT = VORTEX 89,2 SECOND SUBSCRIPT & xeSTATION 


READ VORTEX (C¥eZ) LUCATIN.S &T-E4Cr STATION RY ynRTeX 


wAhL7 
ani? 
“ALT 
ay? 


SOENVTUN Ew N 


SUN PMNS nye 


19 
11 
12 
13 
14 
1S 
15 
17 
18 


20 
2t 


—_ é 
= DSO On et WME wiv = 


_ 


oe et et re ee 
Owv tT WEN 


MUNN 
fwen=-s3 








TF CLPRT). sQLTECH,190) 
na 130 Tals -vtx 
READNCS, (AQ) CYVRIXCL Se JSlesKviTx) 
TR (LPR) oR ITE Cae 220) Tp CVVRIKC Ls SV, Jat ,xuviTny 
REAN(S,1EN) CLVRTXCL ST) eJStourvixy 
TE CLOUT) HRITE COe2909 Le CAVRT XC Le J) Jab gh VIX): 
HEAD(S, IAN) CONCT eS) Jat, avr : . 
TF CLPRT) “8ITE(O,210) LeCGACT SS) o JEL, uxvTx) 

30 CONTINUE 


{ 
c 
C VERTEX TNTEAPULATIUiw SUM4ARY FABLE 
Cc 


wWATTE CO,230) 
Mu 1465 TstevTx 
aRTTE (6,240) I 
MOTTE (ee 25K) (CJoXVI SI YYRIAC To Je LZVHTNCT LS, AVOJIOAVOS)» GxX(T,J5) 
e oe TEt ys evixy 
35 CONT tNUE 


aon 


I> ChPRT3) HOTTE (0,279) 
OF 1790 Tete -8ooY 
VACT) = 9,6 
wA(T) & 0,5 . 
TF (XPTCT) LY,Xv(1) » 60 TO 170 
TE CXPTCTI,GT YVCAxvTX)) GU TO 170 
c 
C LRCATE xeCON Tell, POINTS Tt. vuRTEX TASLE 
c 
Vn tud Je cane 
TE (XPTCTIZLESKVCS)?) aC Th 150 
fag CONTINUE 
Jos ‘ievtx 
159 Jeio2 Jet 
SLOPE = xv JyexvCsnt) 
T& CSLMPE LSE SO.) SLIPFECKOTCT Vexv(SMLVI/SLIEE 
c 
C INTECPOLATE Fite STRENGTH aXD LOCATLisN MF EACH vaRTEX 
Cc a dy 
ND 150 “ele -vtx 
BOGY fs OKCKRe SA oC Ge SI OOK (CK I% 1) yeSLipe 
vx(K) 5 VURTX CK eS IFCYVUTK (Ry DOV VUT LEK, J4t)) eSLOPE 


V¥OK) FS. ZVAT KC Kael eC ZVN TKK J OZ VOTH (Ky I41) VRSLOPE 
‘Aa COTTE ‘ : 
Cc 
c RH IS HOB DENTE 4X73 4°0 BL ITS VEFOTTCAL AaxtS 
Cc na 
: HL = AVCIMUSeCAveaedv CINE NEALUPE 
. Re Ss UVC LIOCHV(JVORVESNT) a SL Pe 
Cc: Ps 
c . he By Dk 
C3 RETERYIRE Y AND Z CUOQLTINATES OF POINT fie THE RANDY SURFACE. 
C LYI*G OS Tre Sark RANTES AS PUTHT YOT, VOT, 707, THAT 73 wlIM THE 
c SA*F PNLAR AnGLE, 
C 
THTPSATArACZOT¢( Ls VPTIT)) 
SIsEsSt.CTHIP) 
COSIMESCNSCTrTO). 
: SANS LOsSIAT( (CEST NES IAD RA (SPMESEL a2) 
c 
C. “OVE OTT WT 1 PERCENT Oh YoY Banus, 
C 


RAGSY Lesa 


wesevecenncososes (COP UN KCOY CUNTRUL POINTS eeeeceneenareoeetoocacern 


wH17 
ati]? 
aK17 
aay? 
“PLT 
wAL7 


wB17- 


aARL7 
WRI? 
“G47 
m7 
aR? 
wRY7 
wAL7 
wR? 
wA1L7 
«ALT 
aly] 
a7 
wid] 7 
wBi7 
“AE? 
wRiIT 
wB1iT7 
4B17 
wA17 
wA17 
~A17 
«817 
sR17 
WRT 
wALT 
wR? 
wRiT7 
«AL? 
aAt? 
«R17 
wAL? 
aA? 
wALT 
whl? 


m7 


wh17 
wA17 
aAL7 
WRIT 
wAL7 
wR17 
wRLT 
wRt?7 
«wH17 
wH{7 
ARYL? 
wAL7 
«Al? 
“AL? 
aRiTt 
“417 
wAL? 


vAV7- 


“417 
wat? 
sHt7 
wH{7 
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YSURF SRANECOSTINE ait 
-ZSUPESRAN SINE wRL? 

Cc wAL7 
C COMPUTE VELOCITY COMPONENTS TKpurES BY THE SPECTFTIEN VORTICITY. «B17 
C AT THE POINTS CALCULATEN aROVE, wal? 
c . ¥ wei? 
CALL VVELSC VT, YSURE ,ZSUKF ,VXeVVe»GeRR BL VACT1.¥A(T),9,355) wR1? 

c card “By? 
TF CLPRT3) ARETE COs260) TeXPTCL)sYSURE ,Z2S3URF ,VACT),xaCT)¢RBe BL wT 

TF CLPRT3) «“9TTE(6,205) CReVECKISVYCKY,GEMD KEE DNVTK} WRT 

170 CANTY We : «B17 
PETURN . : si . . WAIT 

1430 FORMATCIOR7, 5) 2 #ALT 
190 FOR AAT(S/7,10£,26RVORTEX LUCATION AND STRENGTIM, WAYT 
* Tex, taraxe ELHOVI we) w847 

290 FORMAT (/,5H Te,TS7H ZVRIXS,1OFIG,4) wALT 
210 FUR MATO/, 5h Tt-e1$e7H Gxs,lOh1U,4) aA17 
229 FURMAT (S45 Te, ISe7m YVRTxs,I0F 10,45) WRA7 
230 FORMAT O/S/10K,264VORTEX TATERPOLATIUN TABLE) WAT 
240 FORMOBT CS SX,ONVURTEX, IS, wB47 
® FISH STAT TX ekHXV SX, SHYVRTX 54) SHZVRTX AL, PMBY > BX, 2hAZ wR? 

* eS, SHGEAMSVS) WHLT 

250 EMRMATCIS/ E100 3e5F 10,0) . WO? 
250 FuURMAT COW Ts,IS,7h RETS,FIO 4s 7H VSURF SF IO de TH 1SuRE=,F10, 4wRi? 
* 47H VASeFIL9,S 274 eke eF10,507H R4S.F10,4.7H HLS ek 10,9) W817 

245 FORMAT (om KseI5,7H VXB,F IU, 4s Th VYS,FINGU, . wR7 
* TH G=,F 10,4) ai eB17 

270 FORMATCSHL LOX, G3HVIRTEX STRENGTHS ANO VELOCITIES AFTER VVELS /) WAIT 
EXO «817 
SUBROUTINE FORMGM (uPA, 6048S, ALFA COMPT, TSTXCS} «B18 

& wHLB 
C CALCULATE THF FORCE Asai) SQMENT COEFFICIENTS ON THE BODY, wI'Ge wR1S8 
C FIN CVERTICAL TATL) AMD CONARD CHORIZONTAL TAIL) WALB 
C NATE? as gsh Ix PRUGRA™ wOYHRY, RUNY UNLY IS TREATED, - WRIA 
c WBJA 
COMMON ZINETNSZ T2059) et VLIN a wALS 

& A hLEGUT,XSTART SL IMLE UP COT,IELOTOC A) g EPRICS TY, 1¥ZS¥4 wRIA 
CeMenn sAEAD f/f TITLE DCO) TITLE RCA) aRIR 
CURMON DC" (600) ,00% (69) DCT (60026250600), STXD(600), wRL8 

1 ASNT ONY) PL eM PenvO Cade TST CODON COST ERND 12 OSCE OOD *H18 

2 GACH00),02ZTHX(6900) «B18 
COMMON JENRM Of Chae Cee lee CVG CTR ChB eCNS(QN), CT8(269,043(20) wH1B 
COMMAN /PARAM f NADY, nw EMGoMTATL OL SC, THK, XHACH,/ALPHA,HETASALPHAC WARIS 

1 sPRIR,WEFA,REFR,PEFC HEF D, REPL, REF X,REFZ eRia 
COMMA JVEL CMS NOQINT, RPART, TMAXsIMAX,NMAM, EM, ITPRINT ANWTHK WRIA 

1 eNAAL OK eR Me (207, -RELOK ,NARON (OO) wALA 
COMMA SRE RCO KRY KWAK KMART KRADN (CU) KEP XC OU) KFUIS MAK AKU GKS wha 

1 FKE CAV AMC nd p REINO (0) MASUR CO) SKOLLNCPT sLOCPT (20), XCPT (20) eA18 
CUMMAN /SEG J NSE) PMA (C207 ,NCOLC207,COSS8F201,SINS(20) wALA 

} PSTE C29 VA TCQA0) pSRiH (OD oe ALER(2A0) -ALEC20) sZLE“C ANI, *PLT (C00) wHIA 
CONMAN /POIMT 7s ARRAY (hQ00) ABIB 

c wRIR 
DIMENSION KOT(CKROO) »YPT (O07), Z29T( O00), THE T (690) DEL TACO0N) , SANC 600) 4AL4 

1 PAPEAC HCO) ePLILARCHH0) CHOC 20), x°LE(COU0), ¥CC$0.20) wALA 

c wBLA 
FOUIVALENCE (CHD C1), 0UNF1)) «HJS 


AQ 
94 
91 
92 


9a 
95 


Q7 

948 

99 
190 
1a 
102 
193 
10a 
195 
1046 
107 
198 
1090 
110 
tit 
112 
1153 
tia 
115 
116 
1137 


oe ee me ee ee ee ee me ee 
OENAFMESEwWNVWRK STOBMNO VS WAVY 


20 


NRA RN TG 
NOU eEuMNe 


AAANAAGHAAGANOANANANANANIN 


AON 


$9 


oy nan 


1 e(XPTCI)I,ARMAY(1)), CYPTOC1),ABRAY( 601) 
2 oe CZPTEVARMAYOCL20L) De CTHET(1),4PRAY(LANL)) 
3 se CDELTACI) ,aRRAY(AG01)), CXO CLV -APRAY(3504)) 
4 e(SGs(t),APQay($001)), CAPEA(1).-APRAY(4ROS)) 
5 CKLECT) »AWPAYCSONL) De'™ CPULARCH SO ZTAXCTV) 


PTEGER CAPT 
LAGTCaL LBCeLPLT,TSTxeCP 
DATA B@ADHEGTG .0174532926/ 


NOTE TUAT THE SINGs Caisapp, AND TAIL ARE ALL SEGMENTS OF .THE WING 
Ie THIS SitMROUTI NE : mua 


Comets! POI CatTES BODY FORCE AND MOMENT CALCULATION 
s2 TDICATES «ING FORCE AND MOMENT CaLCuLaytiw 
NPOS8S) FQ THE BRODY 
“S41 FOR THE WTKG UPPER AND LUWER SURFACES [F TRE ANePLANAR 
eayeaey COWOT TIA gPtTIAN TS SELECTEN 
si Foe Tek © ING UPPER SURFACE IF THE PLANAR ROUNUARY 
CONOTT UI UPTION T§ SELECTED 
S2 FNY THE wING LUWER SURPACE ITF THE PLANAR BOURDARY 
COMNITran GPTIin TS SELECTED 


TETXCPLEALSFs COMPUTE FORCES FOR ALL PANELS 
STHUE 6 COMPUTE FORCE CNLY EET*EEN XSTAQT AND XWLE 


TF CTSTYCP pANre KASTART, GE XHwIE) RETURN 
KRPANL Ssubar 

YF (Comper,ea,ty KCinexc({,1) 

ChHSu, 

crKeo, 

CMREO, 


ALFA [8 aLPwA SUM C Iv RAIS, 


STALSSTCALbA) 

CHALSCNSC ALE AY 

WHTTE (h,$29) TITLELS TITLE? 

aRTTE (6.516) 

JF (gut TSTXCE) RITE {h,a5v) 

re ¢ TSTXCH) HRITE (CRM) TSTARTSKHLE 
SRITR (a9 9597 XMACHS AI PHAT sR rTR 

we TT ta, $50)° 

09 $0 Tete? wen : 

sG(TIs1, * 

SIUNCTISStnCNEL Tacr)) 

CUSOCTISENSCNRL TACT) 
SISTCTYSSINC THR TCI) 
COSTCLIsCOSCTHETCL)) 

Cont INue 
Cvro, 
creer, 
cso, 
CY¥nan, 
CLROLLEO, 
Cr YAasn, 
yFan 


‘CaleuLare THE FORCES AMD MPSERT OCT I vl Ms BACH PANEL AND SUM UvVER 


THE ENTROR Coe brEeNT 


CO 160 Tate* PANL 
TPslVol 


#R1{8 
wR 
wh fA 
eRLA 
«RIS 
aH {4 
wh iA 
whla 
wRYR 
whi |B 
wRYR 
wR. RB 
+A 
“Bia 
wRAYAR 
AREA 
aATA 
eH 
wh{R 
a9 
«B15 
eA 
AAYB 
wALB 
SBIR 
=RIA 
WAL 
wRAYA 
WALA 
wAYR 
aBYA 
~A1B 
aMYA 
aAR{TR 
NALA 
wBiA 
WAYS 
wAYA 
wAZA 
aaa 
wALA 
ways 


lal Bek 


aB18 
wQiB 
wH1A 
wHIA 
aRBLA 
“ALS 
#818 
ABA 
WALA 
wh fA 
“A138 
wATA 
+816 
wht 
wha 
«R19 
sata 
~ RIYA 
WALA 
aRYLS 


339 


340 


c 
€ 
Cc 


159 


aanaanaanna 


NaAaAan 


169 
c 
c 
Cc 


XPSKPT(T) 
yPeverTrc(t) 
ZPSZPTC(LY 


CHECK WHETHER TO CUMPUTE FURCE HET®EEN XSTART AND X*LE ONLY, | 


TF C,NQT,TSTXCP) GO TN 150 
-OCM(T) 
ocT(T) 
it a © . 
IF (XP LT XSTART ,OR, XP.GT,X*LE) GO TO 160 
CONT WUE 

CNARMSeCP(TIRAREACT) @8G6N(T) 


eo, 
s GQ, 
sn 


FORCE 4NC “MOMENT SIGN COHVENTIONS,RO0Y COORDINATE SYSTEM, | 


CANNRY = PNSITIVE MUTWARD YORMAL FORCE OM PANEL 
CXR = POSITIVE abt 
Cvs = POSITIVE TO RIGHT 
CZ = POSITIVE uP 
c4ea = POSITIVE GSE UP 
CNYAY & PUSITIVE AMISE RIGHT VIE* ING FORWARDS 
CLROLL & POSITIVE CLUCKAISE VIEWING FORWARNS 
OCXB 3 weCNORMeSILOC(L) 
NCYB = eCHNRNeCOSOCI eSINT(L) 
OCZ2B =x CNORM*eCOSOCLISCHSTCT) 
NCMB Z SECZTHaA(C KP ORES LI OUCKXRa(ZPOEREFZ) 
DONYAw S eDCYAae(XPeREEX IONIC XHaYP 
NECLROAL s e)CZ3nYP *POCYBe(ZPeREFZ) 
MONCT) = OCZ4 
NCTC) & ACK 
N9C¥CT) = ACB 
YO=sxp 
/¥G=sVO 
ZQeaze 


MANOIMENSTONALIZE BODY PANEL CONTROL POINT COORDINATES 
X CONRRINASTES Bre OLVISEN BY THE BUOY REFERENCE LENGTH 
Y anh Z COMROTAATES 4RE NYVIDERD BY THE ANDY REFERENCE ATAMETER 


XNSCxePexNN)Y/REFL 

YGRYP/REED 

ZNSZPSPEFRN 
TRETPRATANZ(ZP,YPI #57, 29578 

TE CTHETE,LT.0.9) THETPSTHETP+360,0 | 
WRITE (me360) [PpXPeV¥,Z2ZP,THETP,C°(1) NCKX8,9CYB,0CZR,0CMH 
* eDCNYAWSOCLRIL 

CusCrencrucy) 

CTOCTenht(t) 

OM SCHON CL) 

CYR = CYHeOhCYAR 


CYAw 


CMNYASeNCNY AW 


CLROLL & CLEOLL*OCLAO 
POLAR CT) SATAN2Z(YP, 0Z2P)857,29 


PLOT CP VERSUS & AND PILAR ANGLE AWOUND RODY 


IF (TSTXFPY GN TH 158 
LPLTSIPLOT(2).GT,9 
TF CHOOT SCPLT) GO TC 168 
NCURESEORX (1104 

~ NP SKHENX( Lo] 
TF CKEUS,GT,1) i:OPaNPAAL 


wALB 
wa14 
~O31AR 


WRLB 


wAIB 
wALA 
wHLA 
wRiB 
aBLS 
WRIA 
wALA 
wA1LB 


. WHIA 


wALA 
wALS 
whtA 
WRG 
wR18 
*B1B 


“wRye 


wR1A 
whi 
wRI8 
WALA 
wALA 
wALA 
wRIB 
wR1B 
wHL8 
wBLA 
#h1B8 
wREA 
wALA 
wRta 
wAL6 
aBLA 
wRls 
WALA 
#H1A 
wRYA 
wALB 
wBi18 
4RIA 
wA18 
wALB 
wALA 
wB18 
«B18 
WBA 
wRYR 
aRis 
WwRLA 
WBA 
#818 
wALB 
wT 
wB18 
wALA 
wALA 
wRL8 
aRYRB 
wikya 
wRYR 


a1 
92 
94 
94 
95 
9h 
97 
96 
99 
109 
104 
102 
103 
104 
105 
106 
107 


-198 


109 
114 
11 
132 
113 
114 
{15 
{lo 
117 
118 
119 
t20 
1et 
tee 
123 
1e4 
125 
126 
1e7 
128 
129 
130 
($i 


432 


133 
134 
155 
136. 
137 
15a 
139 
149 
141 
142. 
tas 
iqa 
145 
146 
147 
148 
tao 
150 
151 
1S2 
153 


TF (KEUS.GTLZ1) *CURZI #4tR 154 


Or 466 Tat, Cle wWEPR TSS 

lod RPL TCL) sane “418 $56 

CALL OCLUTAC CAPT, CP, 2 ,SPLT,8IP, CUR, 100,50) ayy 147 

MATTE CH.500) wRiRB YS 

CALL PEO TSS CPL EHCP, d, VPLT yt P, CURLING, SOV : “ALA 159 

aWITTECA,510) “814 160 

145A CONT TUE ; sA1A tol 

C : : “ALG LH2 

C STONE Rody Ait wTEG FORCES AND ssiteb OT : wATA 403 

Cc ee “AYA 164 

; Cykecy : ; eS{A tas 

CTraet , WHIA 165 

cveRscM : eHIM 157 

WOTTE (6,470) ; “ALA 1B 

TE COMET TSTKCP) wRITE (6,459) ; H“KIR 109 

TF ¢ TSTXCOY FRITE(bH,4buy ASTART, VALE WRIA 170 

Cc : ‘ , estS 974 

C COMPUTE SORMAL O5D TANGENT TAL CAXTAL) FUOCE, PITLHING “I)4ENT, “818 172 

C  LTET ASM OWA CHEFFICTENTS, 4&ND CUMPUNENT CENTER LF ORE SSURE -  wHLR 173 

C #318 174 

c CHECK FOR SYi«METHIC CONF] GURATION ‘ aRtL4 97's 
: 8YM 32 2,9 : *ALR 175° 

TE (TXZSYM, -E,G) S¥Me1,8 “QIK 177 

C™SSyveCu SREP A wAYA F748 

CTESYMaCT/SWEFEA : «B14 179 

CMSSV eC SC IEPA wwe). . eHh{R Phy 

CYHSCVYR/Q¢b A s wRIR YI 

CUYD aSC VAR S( ORF ARREFN) 3 WR{® phe 

“CLROLLECLROLUSCHEF A MRER AY . : “wR YAS 

c 2 wRYR YAd 

C : wA1h LARS 

Te CIT¥2Z9¥Y,b.9,%) Crmen, WALA 18h 

te CIKZ9¥" 69,0) CLALLED, w41R 1487 

TE CITNZSYM FH) CuVYAwsu, WALA {RA 

c VGTR 189 
C TRANSFMREM FIRCES AND SIMENTS (FR XCEPT ROLLING MOMENT) INTi} wRIB 194° 

c «“[TtNeartS SYSTE, : : . wAIR 194 

C *B1A 192 

PHTEPYTS RWADNES aA 19§ 

SATAPRTSSING PAE) “899 194 

CuSPMTECOS (PHT) wH1R 195 

Cc *RYA 198 

' CLEENACNSOmTeCOALelVHaSInPHT eC AL eCT a SIAL ~818 S97 

CYSECNOST uPNLoCyHaCiSOny wRYR JOR 

; CNBCTaC AL el VR ae STAL SST VPM TeC ua S Taba lisSeny . wh 199 

c : «RITA ann 

C4 esr *eCiiSPMLeCh awa s TPH] : ; ARERR 204 

CV Aw vel wel AL ae SLUMP TeCh Awe eC OAL eCOSPHTECLHNL Le STOEL w~RBIR 262 

C : sBYH 203 

Cc wH18B 204 

Cc OX TS CENTER Fh PRESSURE LECATT it “EASURED FROM NOSE TO wALe 205 
C ; ; AMTA 20a 

Nxean, . / ‘ aath POT 

TE (OE Gg) NEMS COCMSENIMNEF I OREF aHi4 pne 

TE COOMPT EYL) ePTFE (my $9) HORA, CEED,REFL “ALG 2090 

wRITE (Hm, 4599) BEF XE EZ , ; eHtS 219 

aWTTE (a&,at) KVAC He BE PRAC, ALFA, PTO, AE TASCT,CYR,Ch CM CK YAW : aAHIHB P14 

* Pa ed ee eo amJA 212 
BETIS ; aAJX 215 

$19 FORMAT CASTOR GURPETEGRAT IN OF THE DAESSURF NYPSTRTHRNTTON “RIA Alu 
« eX VAnree FURY eof /) *Q1R 24y 

$2G Fw AT Cet ye Ia, Matos L Oy, Aalh) / @RIA 216 


341 


342 


339 
350 


gmn 
370 
390 
aon 
aia 


4590 
440 


590 - 


510 


C9 


a 
go 
oO 


AAANAAANAAARQANAANANANMNAAARIAANN 


SBECIAL 


FORMAT (/10X 66MM OCH SF Ode SK, TMALPHACS, FA, 
FIRMAT (3x,SHPOIAT, 7X, fat, Lk, LAV eo LOX, ISZ, OX, SHTIHFE TP, AX, 2HCP, OX, 


4, OX, 54PwT AR, FAU/) 


@ AHO K, 9p AHOV SOK, QHZ, 9X, POM Ks SHOL “BX, SHCLLS) 
Fmeary (77-11F19,5) ; 
FORMAT (1HL,9F, 1GMTOTAL CHEFFICIENTS/IOxX,18($Ho)) 

FORMAT (1OX,S5HRQEF OS,F {4 ,4, 50, SHHEF OS, F144, 3X, 54REFLZ,FIU,4) 
FRAT CAVUX, SHAM = 3,F10,4,3xK,5H24 5,F1u,a) 


FORMAT (/8455H™ACHS,F15,5/0x, THALPHACS,FI5,5, 7x, 6NALPHKAS,FI1S,5, 
ABC, SHPHT HS, FIGS SS AX,OMHE TASSELS SD, SINK, SHOY 
eo /1N¥, SHCV= 
e/9x,GHCLNS, 


ae *@ + © & & 


oF ISS, /19K, 5SbCVE,F 15,5, 


F:JQMAT (LOKRe LIMON THE HNDYS7) 


FORMATCLOX,20H0N THE RUDY FROM YSTAWTS,F40.4,9H Tl) xwLEe,FIO uss) 
FORMATO /20Xe11KCRP VERSUS X). 


FURMATI/29X%¢24HCP VEQSUS MERIDIAY ANGLE) 


Fup 


“SUHROUTI“NE GEOM 


OVERLAY (L¥tel, 


PANGRAM GEM 


v) 


INPUT COME TGURATION GEOMETRY AND COMPUTE PANELS 


COMMENT CARDS STAPTIVG wiThe 


CH = ELIMINATED FOR ByDY PRIGRAY VERSTON ANLY 
-CNP @ ELIMINATEN FOR NON PLANAR PANEL ONLY 


TAPES? GEOM, 


TACET3 =GEOM, 


ANNPAN, 

“TAPE HE 

TAPEQs 

TAPELOS GENMe 
NEWRAD, 
hONPAN, 


TaPeE USAGE IN GEOMe 


REAR TNPUT 


Rewlvn 


5 2eF15,5 
aPIS LSS LUX, 3HCZS,F 159.5, 710%, SHOME 


oF15,5 


FS. 9, SOK URCLL SFIS .5,/9X, 4hXCPEF15,5, 
JAIN, SSMFOLLUSING AQE [) w~IND AXIS SYSTEM, 
740K, 3hCLE 
JINX, $>COS,F15,9,/9%, 4M Mws,F 15,5, 
JO, THCY Owes, F IS 507) 


WRITE SNRAY @ SAVE BUNDY GEOMETRY 


NOT USED Is BOOY VERSTON 
NUT HHISED IN ATIDY VEXSTOS 


REaINO 
WRITE iby YH, ZR @ FRIM AQRAY 
MEAIND 
WEAN XB,YH,ZH © TVTNM RLULK 
RE AINA 


ceaene synPTHSy IZ108) 
1 IO pS op Jor IIe SUSI p SO MMAR NHAP IIR, NFIIS,NQANK (CU) SNENRX CY) 
2 ONP MOND IW NE pNE TNR ONCANS HCANUR, SOTEST NW, 
3 ONVE Tue sCOrmit, RSTART, £OLE pHCPTSIPLOTCUY,IPAT (CS), TKS 


COMMAN sO AKAM FZ ABQDY,MHTGeITAIL LAC, THK, X4OCH, ALPHA, BETAS 4LPHAC 


1 sPHTI, REF A, VEPR,WERC, TEPID, REPL pHREX,REFZ 


Covers mead 
Criemnay SQEG 


if PATECA0 eS T(202 6 SPN(2NI,XLE* (20), BLE C2004 2LE=(20), 728060) 


Cees 


Coeey SuBa CUMS KEM VAP  K*AFOO,KHOO ECU) KREARK (UO) AKFIIGS MAX, NUDKS 
1 KE CH) KBY(AD RETNA COD EKA URI 6) REL, UCPT,L CCHIT (ON), COT ( 20) 


4 TITLEL CAD e TITLE2CB) 


122 (25) 


J NSEG. IRUNC 20) 4% COL (20) »CN88(29)49IN8(20) 


ALNcK (7507) 


COMM JVELEC IMS MPOTNT PART, [LZU(2) sMMAX,ZEM, ITPRINT, NWTHK 


wpa 
eRIAR 
wH18 
watA 
wA18 
wB18 
wALS 
wHTA 
wALA 
aR1A 
wB13 
wAYR 
“BLA 
abi 
whIA 
wRL4 
wA1LA 
wAIA 
wHILA 
WALA 


wAL9 
wh19 
WAP 
*eA19 
4H19 
wALS 
aR19 
4819 
wR19 
wHI9 
wRI9 
aR {9 
aAl9 
Wald 
wRI9 
wAYO 
awH19 
aRl@ 
wB19 
wH19 
WRI9 
wA1Q 
aARYY 


wD) 


WRI 
aRLO 
wHL9 
wH19 
wAYA 
wH 19 
aZ319 
aBL9 
WAL 
wRiQ 
a#AL? 
wR19 
‘AYO 
wRI9 


217? 
218 
219 
een 
eet 
eee 
228 
2eq 
225 
een 
2e7 
224 
229 
240 
2$1 
232 
233 
23a 
235 
236 


~ 
FOS BPnNF UM CWN 


oe ee ee ee ee ee ee 
OPNTVEwWN 


WNT OO fT 
rMbwwe Ss 


nu 
~“ 


1 pNwHLIV » VWROW (20), °KKLOX »NBROW(60) 
COMMANSITERAT/ITMAXSCOTEST ; 
COMMON JBVKTX 4 ONVTXK,OXVT XK, XVC EDD ZAV(10),BV(10) 


LUGICAL LOCe Tre, TALL LEST 


TE CINYT,EQ,1) GO 10 9 
NO § [21,246 

KE CT) 30 ee 
013 6 131,209 i , 2 er a 
MPOACTySa 

TviTel 


we 


LACS.TOUE,, FOR OL ANAR 3QUNCARY CUNOITION ON KINGS (LINBCS1) 

LACS,FALSE,? FOR NON@PLANAR HULHDARY CONDITION (LINACSO) 

Tee & ,TRUES, FAR wINGS WIT THICKNESS AND “ONPLANAR PANELING 
(TTHICK%O) 


AMAAAA YS: 


< 
v 


Lace, FALse, 
Lace, fRue, 
TreKa False, 
eMsel, 
ALPHA & 0,9 
WETA = 0,0 
TPRINTSO 
NCPTsO 
NH¥ODYEO 

Ne TNGSU 
NTAIL SU 
"S650 
KAL20 
REFRSL, 
REFCaL, 
PENAL, 
REPL S31, 
REFXSO, 
QEFZZ0, 
TTMAxso 
CCTESTet, 

_ REWINLY 7 

c3 RewINN & 

C3 PF afd Y 
REWIND 10 


Cc INPUT CANFIGURATION PARAMETERS 


READ (54150) TITLE) 

IF (EOFCS), VEO.) : STOP 20 

10 wPITE (65170) TITLE? 

Cc 

C TESUG PRINT CONTRAL OPTIONS 

PEAD C5180) TRATs TXZSV%_ UPLIT, eal PT NVTXSNXVTX,NCPOUT oMVLIN. 
LPRT &@ TPRI(1),67.0 

FF (LPATY BATTECOre2u) TORT AIYZSYM se [PLOT ,NWCPTANVIKS NKXVTXs YCPOUT 
* NVA TN 


c 
GC VORTEX CALCULATION PARAMFTERS 
READ (5,160) KKLE es x3TART 
T® (LPERTY KQTTE(o,290) Kale, XSTART 


an 


GEQME TRY REFINTION OPTIN"S ‘ 
READ CSeLAG) SOoTte See IS oe Ius IS re JOeNWAF ANWAFNR,NEUS, 
1° (NRAOKCE) » VEQWKCLY TEL SU) ,NPeMPOONH, NE NF INOR, IOAN, NCANOR 
TE CLPRTY w2ETE (66250) FUsS te J2r TS eJU, IS e TO pNYAP, NWAFOR,NFUS 


wh1Q 
wi 
whI9 
wag 
whYQ 
wBI@ 


“WRY9 


wREO 
wRAIY 
wh? 
¥BYD 
wh19 
wR19 
whi9 
aQy9 
wRLD 
WRAL 
wal? 
w349 
WBI¢ 
WK19 
WRI9 
W349 
wB1i9 
wals 
VAL 
4819 
wRIYD 
WwRY9 
WR19 
wai? 
wHLD 
WALD 
wH19 
wBL9 
wA9 
wh19 
4819 
wH1i9 
WRI9 


“we{? 
" wRYo 


wA19 
WRIO 
wA{9 
wR19 
wRA{9 
wR19 
eBid 
aB19 


WALD 


wHh19 
wih {9 
wA19 
whi 
ah19 
wRI9 
wRI9 
waa 
wH19 
WALD 
WAL 
wR19 


344 


1 @NRADX, FORK NP ANPODER, wh yh INRA NCAN,NCANOR “R19 

C wR? 
C INPUT NESCRIPTINe AMA INITIALIZATION #819 
C. SET BnuNDARY CONDITION anD «ING THICKNESS OPTINNS wRI9 
Cc aBL9 
$4 Cane Che tG wAL9 
Leap CALL VERLAY CLewe tol) wR19 
WEAD0 (5,150) TITLE? wht? 

TF (LORTI WRITECHo 170) TITLE? © WAt9 

READ (5,140) LINACSITHICK, PRINT, LOPA,LEPA, LOPC.ITMAXCCTEST wR 

TF (LOVT) »RTTE (6,240) wAL9 

" LISKCeTIMICKS,IPRINT, LOPAsLCPBLESC, TYMAX,CCTEST wh}9 

TF CLINBC.GT.9) LBCS, TRUE, : WAALS 

IF (LAC, ANGI THICK GT 20) THKS, TRUE, yee monty wALQ 

€ : ° Spe "  wAL9 
Cc TAPUT REVISEO CONFIGURATION PANELING DESCRIPTINN CONTENL INTEGERS wALY 
Cc 7 wa (9 
: READ (5,180) KOaKL KA KE KU KS KOORHAF SKHAFOR,KELIS, wAL9 
{ CKRADXCTISKFORK(L), Iehed) - “wA!9 

TF CLPRT) APETE (CO 290) KOK 1 eK SKU, KS KG, KWAF YK AAPOR, KFUS, wA19 

i KRADX,KELIGX ARL® 
TAILS, FALSE, wA19 

TF (KG.G6T.G.9R,K5,67T,0) TATLS,TRUE, wBi9 

YF (TSTt) : : . wH19 

1 READ (5,1BO) (KECTIZSFINOREL ,LE2 96 de CKANCTY KANOR(T),T51,6) wBL? 

IF CLPRPT,AND TAIL) ARTTE (hs 260) KEKE TWUR, KAN, KANOR ~ wBId 

C : wA19 
CHud READ (9) REFA wB19 
TF (KO,FR,6) 6H TO So wBL9 

RE AT) (5, 100) REF AR, REFR, REPL, REFDSREFI ,REFX,REFZ wA}9 

TF (LPOT) “PITE (H,270) REF AR, HKEFB,SEFC,REFN,SEFL, ‘REFX, REFZ wWA19 

TF (REP ARE UL) PEFARNEF Aa WAL? 

IF (REFER, E0,0,) wEFoa, wB19 

re (REF E04) wWEPCat, wRI9 

Tf CREFOD,FG.O,) REFDG1, wB19 

TF (REPL EUe9,) REPL Et, wB1e 

Cc é : aBig? 
C GENERATE GENYETOY Im GROER WING, V,TATIL, H,TAIL, BODY wR19 
Cc : ; uBio 
59 CONTY w319 
. TF (ePaOw(t) LF.2@t) GO TH 70 | «B19 
wRITE (8,200) «A119 

3TOP 200 wHt9 

70 CONTINUE wAL9 
Cc wA19 
€ READ AND COMPUTE BODY VORTEX GEUMETRPY REQUIRED wwoceesenesceseeaseneenh{9 
c wB19 
COLL READVX CNBUS,NFORX,LPRT) wAL9 

c : wAL9 
c REVISE ANDY CFUSEL AGE) MERIOTAN LINE SPACING, THEN aA19 
Cc GEVISE A4YT4l PANEL SPACING ON Baoy CFUSFLAGE) asin wB19 
Cc COMPUTE NEw PANEL GEOMETRY wR19 
c wH19 
COLL VE wRAD wR1O 

CALL annean wA19 

coc CALL OVERLAY (isin ted) wAL9 
coe CALL OVERLAY (LH, 105) *B19 
c wh19 
c aANTTE CONTAQL POINTS WIN TAPES Or eee tne ee wees eens asamesaeseeeesuseane4R}9 
C OTF sCPNUIT GT. 0s SRTCET GENERATES CUATRO PINT FOR VPATHL : wR1O 
C TF NCPAUTES2, SIN AFTER MRITING PUINTS wA\9 
C wHLG 
TF CNCPOUT.GT.A) CALL PRICPT(UBIWY) mies 


102 
103 
yaa 
{os 
106 
107 
108 
109 
410 
Vii 
\i2 
143 
ita 
415 
116 
117 
115 
119 
120 
121 
122 
123 
fed 
$25 
126 
127 
125 
129 
130 
13! 
132 
135 
{3a 
135 
136 
137 
138 
139 
140 
141 
142 
14$ 
144 
145 
146 
147 
{445 
149 
1$9 
15t 


152 
153 
1S¢ 
155 
156 
157 
158 
1s9 
160 
fo! 

162 
1A$ 
loa 


149 
150 


loo. 


t7o 


1a... 


L290 
210 


227, 


23n 


250 


200 
270 


290 


Ana 


1a 


*ere eee wot 


CALL CPUTIM CTIME,OT, 1) 


“ TR (yeOte TT .LT, 4) ARTTE (60.21%) TIVE, OT 


DE Tage: 


FOwtar (7T3,F 7,0) 

FURMAT (RAI) 

FORMAT (19F7,i) : 
FORMAT (///9X% RAIN 251 ehae GEM ww) e. 
FAMMAT (247 S$) . : sede es ae 
POR AT (1d e4oHERRNRe ANDY NAS MORE TYAN 20 COLIIMMS AE PANELS) 
FURMATOS//I Ke LGHESD GEMM 4 . TIMRS, FLO, §,5¥%, 3HOTS-F IO, 3) 


wRIQ 
awk EQ 
aK {9 
#R1Q 
w1d 
«RQ 
_4R19 
wAL9 
4819 
vA{9 
wh{T9 
«R19 
aKB19 


FUORMATC//S 2, S92HADOT TT MAL PRTST OPTIONS CLPPT) #4: XZ2ePANEL SYMME TO VEgLa 


* 443m I Gets VORTEX VEL SOLN IXZSYM ,/45T7 
© gp AAS, A2IMMLAT UETINNS CLPLOT) 
* eek | GRIM, . CP WUsvs o/4T7 
* eAAEL, 2HEVIQTEX CALCULSTINAN CONTRAL 
a e435 CRT NVTX ONEVTX SCPOUT NVLIN,JSI7). : 
FRM ATOA/L ON, STIHJSDATA CORDS REQUIRED (NBO, YES,NE,0)- tae oe 
eT REFA @—NG . RORY - PANN. VAFIN WS TAIL XV¥eSYM 
o SUGH Jo Ji J2 J3 Ja JS -JSea/7I7 
ofFAAN “ING GEG: “MAF S,TSe 3, 7HMWAF IRE, IS, 
e72\H 4UNY GEO NEUSS, T,X, 6HNQARKS, UTS 
oe S3B0Y, mr KOOKS, UTS 
eft. COD GEN: - NO,TS. 3k, 7HNPCINORA, TS 
efPte VG FIN GEOMS PhSe IS, 3K, 7MNETVORS, [5 
eset 4. TaIL GEMM MCAS eI, SK PHENCAM NGS, IS) 


SE CRMAT OS /SU4 LISHC THICK [TRRINT LCPA LOA LePc . rTMax 
a” eT COTESTA/STIL72 OF 10,5) : 
FM AaTOsS/V Gt, GUMHeNATA CAHNS, ADDITIONAL CARNS FORK PANELING 


eA/504. Wee wING KUDY “fh MQFIN MSTAIL MAA 

ef 908 “o MI Ke KS Ku KS KA oe STTT 
plan vING PASELS KrAPS LS, SX, THK APORS. TS, 

o/2d2n nOoOv PANELS WEUSt, 1S ede mhAxQeOne, sTS 

eASLX, OKO XS,UTS) : : 
FORMAT(LGRK VQ FIN PANFL§, 14%, 7H KF a, 6150 /30%) TMKETNORS O15 
wg ALUM HA TATE PANEL § 516%. 7H KANS,615,/30¥, 7 RAN Dees ts) 


eee ee 


ENRMATOS/LOK, PSMPANEL REG RHEMCE LENGTH 
1 eSEX ee SMREP AD. OX, GHREE ROX, SHOE C, OX, UHREFO, OK, MRE 


* POR, UNWEF Le HAG GHRERZ,/ SAF 10,3) 
FORMAT (/6X,UH¥*LE,UX Or XSTART o/2F 10,3) 
- ESD 


SUBROUTINE INVERTCAs Tag ©RUAS). 


“MATRIX TNVERSION ewe GAUSSeJIHIAN PLISENAT IAM WITHOUT PIVOTING 


QIMENSTON IPLVAT (60), TND¥M (O04 TSDC (AO), ACIRMS y ROMS) 
MSTA 

nO 10 Jato” 

TPTVOT (eG 

CONT TNSUE 

Oo toed [slo 

T30, 

mola in Jste* 

Te CIPTVUTOS), EN,1) 6) rm 3a 
Wr APO KShe 

TE CTOTVOTES) bat) GN TH 20 


wR 
wR1Q 
wh19 
#319 
waia 
wALS 
wAiy 
wH1Q 
wAI19 
wR 
at{aQ 
wi} 
wALO 
wRLO 
wRY9 
wRI9 


-whYO 


wALS 
w349 
wRIQ 
wRIQ 
wAl9 
wA1Q 
wRT9 
wRL9 
whi 
w8h19 
aRIG 
“919 


wed 
ahead 
aha) 
war 
aK 
wRed 
alti2a 
aBh20 
ahead 
ra. -2) 
wpan 
akan 
weer 
waed 
wen 


165 
Lao 
107 
168 
169 
179 
17L 
172 
173 
174 
175 
174 
177 
178 
179 
180 
1A 
182 
183 
144 
YAS 
184 
1&7 
18 
1a9 
199 
191 
192 
193 
19a. 
195 
196 
197 
198 
199 
eon 
201 
202 
20% 
200 
29s 
206 
207 


29 
390 


Oo) 
50 


70 


89 
on 
199 


130 


140 


AaAaAaa. 
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SALVE THE 
DETERMINE 


IF CyMOT, CAMSCACT 9K) 10449(T1,5T,0.)) BA TA AO 


TRawsJ 

ICOLs« 

TEAC JK) 

CNT TMUE 

CONTINUE 
TPTVOTCICOLISIPIVOTCICOLIeL 
TF (T8NK,£Q.ICOL) GU Th $9 
N0 40 LZ1,™ 

TIACTIROKW,L) 
aACIROs,LysaClCotelh) 
ACICOL,t.38T 

CONTINUE 

TAOXR( YI SIRI 
TSOXCCTISICUL 


. PIVOTSaCTICULs ICOL) 


IF (CPTVOT,EG.9,) GO TN 136 
acrcou,1Icae)=i, 

09 70 Lale* 
ACICOL,LISACICUL.»LI/PLVOT 
COMTY UE 

00 90 Lets! 

IF (L,b9, ICL) GU TO 90 
TSA(L,TCOL) 

4(L,ICOLyac,. 

Ni BO “Stew 

ACL eMISACLeM)PACICOL ) eT 
CONTE e 

CONT] SUE 

CONTI SUE 

OO 220 Testy 

LINeLe!Y 

TE CLUNXe(L) ES, TNOXCCLY) 6Q TH 120 
TROwsINUKPEL) 
TCOLSTIMAXC(L) 

PH 110 Kai,* 

TEACH, TRI“) 

ACK, IROw)z40K,1COL) 
6(kK,ICOL) ST 

CONTIMHE 

CUNTT wk 

RE TIIRG 

MQTTE (6,149) 

STOP 


FIAMAT (1HU,30PERROR @ THE MATRIX IS SINGULAR) 


eNO 


SUBROUTINE ITRATE 


COMMON /POLTST 7 26605003 ,9NK (900) pO4K0QN0),7601 200) 
CIIMMAIN NE(CHOOD NR OAON) NT (500), 48 (690) ,R4*(ON02,NACH00), 


1 270€21001.640500) 6630509) GT (500) 


Cuyeenn PARAM / BHOOY,HWITAG,NTAIL LBC, THK, XMACH, ALPHA, BETA: ALPHAC 
i POMTR,REPA, CEPR, REFC, REP, GEFL ,REFK REF 2 
CUMMAN SVELCUNS NPOINT,* PART, TMA e IMAM GNMAX, EM, [POINT NWTMK | 


‘ 
% 


BOUNDARY CONDITION EQUATIUNS BY AN TTERATIVE METHON AND 
THE STRENGTHS NF THE ANDY SOURCES ANN THE WING, FIN 
(VERTICAL TAIL)». &8O CANARD (HORIZGNTAL TAIL) VORTICES, 


“w420 


aR2t 
wR2) 
whee 
»R2n 
wrad 
wRed 
wh20 
wA20 
when 
aHet 
a@e0 
R29 
~B20 
wRan 


“when 


4R20 
«B20 
w9en 
wR20 
wR20 
wBed 
wR2n 
aed 
~B20 
when 
wh20 
wR20 
aR20 
wh20 
wG2H 
ahead 
wB20 
wR20 
» R20 
whan 
aBen 
nB20 
wR20 
*R20 
aA29 
whad 
whe) 
#820 
#820 
wR2n 


w2) 
aB2i 
wHh2i 
wheel 
«R21 
wR) 
aB21 
whl 
aB821 
whe! 
athel 
ane} 


to NG 


Orrehe 


10 
te 


~ 


oe 


-anaanaoo 


aan 


+10 
20. 
ca 
C3 
cs 
“Ca 
‘€330° 
¢ 


¢ 
a) 


¢ 
“¢ 


5) 


6A 
Cc 





C STaet TTERATIIN 


1 eNaBLiK pNWRNA( 20) BAL GK,NGRON( 69) 
COMMON /ETERATS TTM4AX, CCTEST 
REAL “Bytv4, ST 


VARTABLE DEFINITIONS 


Ma,NB ow INPUT MORMAL VELUCITY » WING AND BODY 
Ge.G8 © AUTPUT STRENGTH («ING Ant RONY) 
9 © UTAGONAL BLOCK MATRIX ee 
RweRR «= VESTOUAL ANWMAL VELUCITY Sills ~ 
MT,GT = TE“PURARY VECTORS FOR LAST ITERATY 


TMAKZIS 


Th CITMAX MEU) IMAKET TAX 


“EPSst,to38 


IF CCCTEST NEU.) EPSBCCTEST 
REwTNO 9 


IMTTIALIZE WING 'a0 BOOY SOLUTIAN 


IF CNBNOY, EU.) GL TN 20 
9° 10 NsL,NRONY 
NT(N)20, 
RH(N)EPACN) 
-COMTTMUE 
i) NUE 
oreo te apace 20) GU 1M 40 
99 30 Nat eNSTNG 
GTCN)380, 
Ra(SySNKw Ol) 
CONTINUE 


no 250 tae as ear 
A COUTIMC(TIMESDTe ; 
TE CragscteereT) GTe2) “RITE (65390) IT,TIMESNT 
rte gten 
1#s0 
fesn . 
TE CNHODY,EN,9) GY TN 49 


C eacpute ROMY STRENGTHS FROM OLAGONAL BLOCKS = GB & O*RA 


JSs0 
ABLOKENBBLOUK : 
OC 60 MNat,*6LNK 

NRG WB HROW (CNN 

NCOLSnRnw 

READ (10) 0 

P50 TeisNROw 

T4sTaol 

GS(TH8)39, 

an $0. JSteh COL 

JIsJeus 


’ GACTbIs GACIUIENITs J) ROR CIS) 


CONTINUE 
JSsISenanw 
CANTINUE | 

BNDY CONVERGENCE TeST 
TF CIV,E9.1) Gir FO &O 

NS1,V80N¥ 

4 a aes tPS) ITESTS) 
TR CITEST,EQ,1) GO To 80 








wnat 
«APY 
wR! 
wRel 
whl 
aR2t 
wReid 
“Hai 
wB2t 
wR2t 
wRh2t 
wA2t 
afel 
#Aot 
weal 
wRet 
wR 
WR2k 
wB2! 
wA2t 
wWR21 
waed 
what 
wRe1 
WAL 
wR 
wRet 
wAel 
wBel 
whet 
wH2l 


euncreuccwevenea roca eansesaant? 1 


wh2\ 
wRal 
WB2t 
wB2t 
wR2t 
wet 
wel 
wR24 
wRat 
wH21 
WR] 
wR 
whey 
wRal 
wRel 
wRA1 
wReI 
whel 
wR 


WHat 
«B21 
wBel 
eRe 
wHel 
wRel 
w821 
wR 
whet 
wR2el 
wBet 
welt 
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74 COMTTSHE «R21 
c ; wei 
C CAMPUTE #ING STRENGTHS Fan NTAGUNAL BLOCKS e GW se NaRw whet 
c : es ? wR2} 
Bd CONTIAVE ; i , , whel 
63 Iv 3 0 ; . wBel 
ca IF (NWI4G,EG,9) GU TQ 120 wB21 
C48 JSzo : “P21 
ca _ NALGK SN HL nx whl 
ce OO 169 rimztsNBLOK wh2{ 
CH MRM weNaQlia (NN) : wAel 
cA NCOLSNR1)» a2 
ca READ (19) 9 wR2t 
cA DN 90 Tel eNROQw a wHes 
ca Taatwey ae ee wR2t 
cA GaCInyeo, a. wR2t 
ca ON 90 Jei.eCOL : wheal 
c8 IJedeJs a2 
cA GACTW)aGa(TereOCTo dy aRe (JI). “wRAL 
C390 CONTINUE SI. whel 
ca JSASSEnRU4 te w8et 
C100 CONTINUE : wA2t 
cx WING CONVERGENCE TEST wht 
cs TF CIT,EQ.1) GO TU 120 “Bet 
cA DO 119 NatsMtwinG whet 
ca IF CARS(GHCNOGTOND),GE,EPS) ITESTS1 wRet 
ca IF (TYEST.EQ.1) GO Th 120 wel 
CRI16 Chin TINUE wR2} 
Ps “B21 
C PRINT TTERATION INFURMATIUN ceemenmmecccewccenenvercenecersceseesceani2} 
C . Rat 
129 REKTND ta ; wRet 
TF (CT4BSCIPWINT)LT,S) GO TH 150 whe] 

WHITE (H,%e0) IT w921 

TF CNBOOY, GT, 0Y ERITE (6,370) “BODY, (GA(N) sat, BODY) =H21 

TF CHING AUT GC) «KITE (6.580) PEIN Ge CMR SLO eENG) wR’ 

159 Th CYOBSCTERINTYLT.89 GO Tl 140 wR2t 
Te (NRO Y GT, 0) RITE (6,290) NHUDY, (RBEN) » Mat, BODY) wR} 

IF (NY TRG LGT.9) WRITE (65300) ING, (RW(N) Na} ,UWING) wel 

ao TF CITEST, EO AND IT WEQ1) Gil Thi 260 what 
IF CIT, GE,tAX) GU TO 270 ‘ . wR 

c : ; B21 
c COMOUTE CRNSS [WFLUENCE GFTYEEN RLICKS oe wnwccnnsceetanccncccnsoocseni2} 
Cc BODY PANEL JF ON BODY CONTROL POINT 1 wBel 
Cc whet 
cA IF CNHODY,E9,9) GO TO 200 a “Rat 
CO) 165 Tstendooy wAet 
MTCT)SGHOT) wR 
PXBCT) ao, eS ; wet 

READ (9) (ACJ), U81,°RD0Y) : wR2! 

TF (NBODY.LE,NMAX) GU TO 160 ; a2y 

ON 150 Jates4opy . : W824 
O-BCTISONK (LI Fa J abH() ; whet 
199 CONT INGE “4 wH21 
160 = RACT)BNKC(T) SONROET) wR21 
oS CONTINUE “B21 
Cc 4IuG PantL J ON BOARY CONTROL POINT 1 whey 
ca TE (NaTSGEN,O) GO TU 250 we) 
C4aan CONT TSE way 
250 SFatad 9 ~B821 
c oe "whey 
¢ Porat TTERATICIN Sur awy BOOS Oe SOOO SOO OM eC esene SEB esateenssenwaseeadit? | 
260 W~8TTe (h,310) ITLEPS aR24 


199 
{ic 
44 
112 — 
115 
144 
115 
116 
yi7 
18 
119 
120 
12). 
122 

123 
12a 
125 
126 
127 
tAa 

12? 
130 
131 
1$2 
133 
134 
155 
{34 
137 
138 


279 
aag 


290 


409 
$19 


$20. 


$30 
gun 


. San- 
374. 


3A0 
gan 
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1 


* 


Gn Th aaa 
eWITE (4,329) FMAX,ERS 
“RITE (m,330) 


TF (CvBNOY.GT.0) WRITE (62370) NKOCYS (STON) Nd, lb) 
TF (NwENG GT) ARETE Cos3du) N*INGS CATON) Nat, NWIAG) 


“ATTE (6,400) 


TRE CNHNOY,GT.9) ARITE €Co,3879) NBUDYs (GROIN) NBT, YRIIDY) 
TF CUSTNG ¢GT49) ARETE (05 $A0) NWISGe (GHON) NEL, aTNG) 


bE TUR 


FORMAT COX, 1LOMQH(N) Naty es T3S/SC1K, LVF 10,5)) 


FORMAT CAX,LUHHMOMY pNBt ee LESCERLUF10,5)) 

PORMAT CYHO,2SHTHE ITPRATIUM CONVERGED AFTER, TU,2X, 
1 SSHETERATI NWS wTTH & TEST CRITERION MF,F 10,7) 
PVIRMAT CHG, SOmTHE ITERATION NIL NOT ChNVERGE AFTER, ]U,2%, 
SOMITERATIUSS TT & TEST CRITERION OFZF10,7) 
FORMAT (LHD eUIHTRE SOLUTIUN AT THE PREVIOUS ITERATION 18) 
FORMAT CUHO,GCMTHE SOLUTION af THE PRERENT TVERATION 18) 
PIIRMAPT CYPHOTTRMATIUN mUMAER, TU) 
FOIRMAT CAKe1OHGHCN) orator (S/C1X,19F10, 5)) 
FORMAT COX SLOGAN eNatag FSSCUN Se LYUFI0,5)) 


FORMATO OX,2SHCPU TIME 


Is LTRaTe af tta,ta 


“sSX,SHTIMES,FI0,49,5X5 SHUTB, Flu, 4) 


END 


SUBROUTINE MXOUT (PAR, VE! pha Ne MeL INS, LPNS, TSP ANN ,MN):- 


SUBRNUTINE 4MxaoT 


PURPOSE 


PRODUCES ie AUTOUT LISTING GF any SIZED sRAAY ON 


LAGICaAL UALY © 


USAGE 


CALL AACHIT (OAR, VAL pA etig tp LINS, TONS, TSP a Nis M1) 


NESERIPTION CF PLRAMETERS : 
PAQ © ALPRANU“EQSC PARAMETER NAME, HHeowwwnwen 
VAL © WUMERICAL value OF PAR 
A ew NAME OF (GUTPIIT MATRIX 
Moe NUMBER OF R43 IN A 
* w SUMMER OF COLUMNS IN A 


LIGS = MIMBER OF 
TPIS cnet Ong 
TSP © LINE SOact 


PRINT 1TVRS oN TRE PAGE CUSUALLY 69) 
PRIvT PUSITI-INS ACROSS THE PAGE (132) 


hG CURE. 1 SL"GLE SPACE, 2 AMURLE SPACE 


3 SINGLE §SOack, new PAGE, UY DUURLF SPACE, NEw PAGE 
“DO S “ ONTMENSTIUMEN SIZE CF A 
MY s MRP SENSTINED SIZE UF A 


SuskAUTTT ES ANN KYKE 


AINE 


ME THON 


Litt SURPROGRaMS REQUTREND 


THIS SUBROUTINE CHRATES & STA“OARD LISTING OF ANY 


STZEU APGAY «fT 
THe COE NiMARER, 


EACH COLUMN AND WA 


SOBER, 


AnY STIRSGE “ONE, FAP WH PAGE TS wEADED) WITH 
NINE STiits Aum STORAGE “NDE cp THE ARRAY, 
TS ALS me Ares wlth TTS RESPECTIVE 


aH2i 
aR! 
wh2| 
W321 
wRet 
wR?) 
wR 
«A2) 
wB2{ 
wie] 
wh?) 
whet 
vicar) 
«Hel 


- Bel 


wR 
wRet 
wB2} 
whet 


Kel 


wRel 
wR! 
abet 


wA2Q?e 
F922 
wee 
wA22 
wR22 
R22 
«822 
aRe?2 
ayep 
wRea 
wR2e2 
anee2 
wh22 
4B22 
~Bb22 
wh22 
af2e 
vhe2 
wAee 
ae? 
wRee2 
«R22 
wha? 
wR22 
whe? 
vH2e 
ake? 
a2? 
wha? 
wHee 
whee 
sea 
wRP2 
wre? 
wR? 


$39 
1a0 
ful 
tw2 
fas 
tag 


145 


Jus 
yu? 
tea 
1a9 
159° 
151 
152 
$53 
tsa 
{55 
154 
157 
158 
159 
160 
{oi 


OBvVIMoBVeR 


~— aoe 
Met oO 


13 


ae 


Aaa 


coc 


-_ 


nn 


aan 


1a 
20 


31 
32 
35 


40 


ann 


Aan 
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. 


OLeewStan aCe shi) 
ATSENST Om PARC) 


FORMATOCS 45X—5 ADSIKEYSS 4 4x,75.5H 8W8,4x%,13,8H COLUMNS, 


Gy, ax, SHORT ZT? ) 
FORMATCAx, POHROM/COLUYN, LOCI X,13,8x3) 
FOR“ATCIW ) 
FORMATCIN 217,90612.5) 


. FORMATC189,07,19612,5) 


FORMAT (INL) 
Jet 


WRITE HEADING 


MEND @ TPNS/I2e1 

LEND & CLINS/CRUDCTSPef,2) eh) Jee 
JPA4GE gf 1 

LSTRT = 1 

TF (1S0,GF.3) WRITE (4,4) 
ARITE Coe lPAR, VAL ONY, TF AGE 
JNT 3s JenEsDel 

IP4GE = JPAGES] 

IF (JvTos) 35,35,32 

Jt s & 

CONT Lk 

WRITE Co,2.(JCUR,IJCURSS, SVT) 
LTEND 8 LSTeToL eel 

Of BO LSELSTRIOLIEND 


FORM GUTPUT Re LIME 
du SS Kai, END 
KK = KeJeuf 
JT ws Jemel 
CHECS JF LAST COLUMN, IF YES GU Tn 60 


TP CJTe*) 55,00,60 
CONTINUE 


ENO OF LINE, “OW WRITE 


ITF (MODOC TSPet,2)) 65,445,799 


WRITE COS G)L A CACL AI) sp Jas KK) 


69 To 75 
APTTE (CH ,SIL eA (ACL eT o Juste KK) 


IF END GF ROS, GO CHECK COLUANS 


TF (NeL) 465.85,86 
CONT TUE 


FRD OF PAGE, NO« CHECK FOR HORE NUTPUT 


LSTRT s LSTRT+L END 
69 TU en 


ENR OF COLUMNS, THEN YE TLIRN 
TFC STM) 90,95,95 
Jo2 JTet 
60 Th yo 
QETUQN 
ED 


“B22 
aRe? 
»R22 
“822 
aed 
*R22 
*822 
aRe2 
wH22 
wR2?e 
wR22 
wRee 
wRe2 
wh? 
WR? 
wHee 
wB2e 
wH22 
wB22 
wR22 
wBee 
wR2?2 
wB2e 
wR22 
wA2e2 
wRe2 
aR2e 
wA2? 
whee 
wha 
“Hea 
wA2? 
wR22 
wA2? 
wH22 
wR22 
el #4 
wA2? 
WAP? 
wR2e 
wA22 
wR22 
whe? 
WRe?e 
AB!2 
wAee2 
822 
«B22 
wH22 
wR22 
whee 
whee 
“A222 
wRee 
whoo 
aR22 
wha? 
ak ee 
«hed 
Dlar-#-4 
wRe2 
uA22 
wad 
aB2e2 
~Bee 





e%c 
oor 


a 


ANAAN 


aMaanaannaaanaan 


SuRROUTISE <p aad 
OVERLAY (Lat,1,4) 
PRAMGRAM YWRer Ad - 


QEVISE BONY Ch -SFLAGE) MPRIDTAN LITE SPACING 
BNOV NOTEGT EAT Ys OOTTAV§ FOR Bach SEGMENT? 


Ye, CIRCULAR FUSELAGE -{[TH NO NOCY CAYRER 

ao CIRCULAR FUSEL4GE IT BODY CAMBER 

S$, AYHTTRARY ¥,Z CESS SECTION 

a, (SE -QANK MERTON an avGLEsS 

a, SbOP shaOk METPTONAN ANGLES 

ny, GRNEROTS KRADK EVUAL SFACISG VERTNTAN ANGLES 
TOTAL NUMAER DF OYLGES MUST RE LESS THAN 21, 

DO, SYMETRIC GEUMETHY an LHANS AaSStine? 

1, GEVEPSTE FULL SY¥SKETRIC CONFIGURATION 

ete SFA FULL Cute LGuwaTLos (2KPADxe, VALIES) 


J2TEST 


KGaA 


VAN EH tH tt 


TxZS¥™ 


Crimes ZICCING TZ1(4) 


' eT DeTt eo Tee SB Tbe IG, Sb a NAR SH OPUR A NPINIGANRAIXCUD, RFORN CAD: 
2 MMe PUN NE SURI NCA SCAVUR, JOTEST NY 

3 1Z2( $4) eTPRT(5) p LYZSY" 

COMMON BLOCK (79%)) 


COMMAM  ZONTT 7 ARRAY (OG0U) 
Cems Zeke Cuts KL, RWAP MAAR TIRE WADX (HU) KEFORY (CUD, KEUS MAX K4,K'S 
$ KE CRY eMANC A) HEF INAR CAV, AANGR (HY KOLA NCPT,L OCP T (C20) ,uCPT C24) 


DIMENST INS KXFUSC 3064) p 2FUSC$0,4),250630,30),F I SRAD(30,4), 
1 SFUSP SZ 30 pB),ANSTN (3G) oD ANCMSC 33) oPOMINI 30), PHIK(30),XACS0), 
2 VEGI, SOVSVE CBI ZEC SO) eFUSAZC3N D4) 


ESUTVALENCE CxPFUS(CU SD) sALiiCK CLI CZEFUSCE, 1), SLOCK(121)) 

* eA CSFUSCLe tel) shLtiCK(2ul)), CFUSRADC4,1)e¢6LUCK (C $61)) 
* a CPUSALCH St Vs4LuCKeukty) 

EQUIVALENCE Cv lel), AnPaved yd, C24 CY, VV. ARRAYC TROND) 

* A OCR CLV, AWWAY OC S0°E)), CAVSIN(TV,APIAV(36H1)) 

* eA CANCOS( VD, DRA ( SHO1)), CPYT' (1), ARRAV(3T2AL)) 
* pe (Pn Tey) ,AQRAY(S751)) 

LOGICAL wExOHT 


MINCKD A VP oe Ae VAeVISXL eC xPoxtVaCVaviss(¥2eVt) 


SEnPHTS,F A SE, 


EPSS1,Eo6 
FPQzhPSeE PS 
Mos AXT4L STATION NUMBER 
“eu 
KFISSENBIS 
x TEST30 
PaALNet  /S7, 2957795 
WEeTAD 10 
Oh $4O VEUStZNEUS 
PMPAaN SO ai KL rbily 


— KMPARSKEANY (Fi) 


J2TEST a2 3 Atn “RAD BA INDICATE 6% AWNTTHARY PISELAGE “ITH 
“ERTOTAN LIMES SFRISED RY NFAD [nN THE GEMMETRY [TNPYT 
KTEST = ARTATTWAQY BNDY [8NICAT RS NeCTOLs {wARQATTRARV 


Th OCTAVE ST bg FeANUGKRAN,EN AY KTESTSI 

TR (KRADEN)  KRAD AD 

TF («949,467,201 GO TO 136 

TR CINZSYe NEM GAN, (OOK wANw$ G7, 36) GI TF 130 
TE (WRAL LT) NEXPMITS THE, 


WHEY 
wha § 
«R23 
PLY-ay 
wROG 
aR2$ 
aR2y 
aRes 
wre 
«H23 
wH23 
whes 
wes 
wR23 
«Res 
wh2s 
wA2S 
aR23 
wH23 
wh23 
wR2d 
WR23 
wR2k 
wA23 
wR2s 
wR23 
aH23 
wR2Y 
wi23 
4R25 
whes 
wA23 
weed 
w323 
wA23 
wR23 
wheds 
B23 
wA23 
wR23 
wAZS 
wh23 


wA23 
wh23 
wBes 
wA2S 
4RA23 
whe § 
«R23 
wA2S 
wA2R 
was 
wASS 
4823 
vibes 
wAA3 
VAs 
weg 
wA23 
aK2 § 
~R23 
aH2$ 
ake 


SO PRPnNe UC wmNm— 


a? 


54 


bt 


351 


¢ 


20 


$9 


Aa, 


C- 
id 
C 


ud 


352. 


CWaHoOAN 


2. 


KRPADSTARS(KRAD) 

KRANDK (NFL S<RAN 

NP USOAStF IRS (VEU) 
FaNGBFLOLIT(2e(KRADOL)) 
NEL ES, 2835185377 ANG 


READ Sifw MERTIITAN 4NGLES FOR S¥*mETRIC HALF 


TF (NEWOMT) READ (5,360) (PAIK (K),KE1,KQAD) 


wA2S 
#H23 
4323 
~B23 
wR23 
aR23 
WAS 
4823 
w25 


TF (MEWPHT ,AND. TPRT(1),67T.0) “RITE (6,190) NFU, CPHIK(K), KEI» KRAD) WH § 


OO $0 KSE,KRaD 
IF ¢ SREPHT) PHIRSPHIK(K)#RADD 
TE CNOT NEYPHI) PHIRSDELE FLAT (KeL) 


PHIK(KYSPYIR 


IF (J2TEST,£0,43) GO Tn 30 
PHIRUSPHTR44,732589 
ANSIN(KYSSIN(PHTRG) 
A*COS CK SCS CPHIKG) 
CONTINUE 

KYSIO(C MF Ul) 22 

wZaKVeol 


MRAXTAL STATION INDEX 
vd 109 at, FUSER 
Mane) 
IF (4,GT, 40) GA TO fan 
KAQCNISXFUSCN MEU) 
IF (I2TEST.EQ,5) GO fn SU 


CaSE 1, ChHeuTeE SECTION v ¢ 2 COCREINATES FAR CIRCULAR/ELLIPTIC BODY 


HYSFUSRAN(K,AFU? 

AZSFUSAZ(M,)NFUY 

CAMSZFUS(N, NFU) 

00 GO Ks, ,KRAD 

RADEON 

TE (RY,NE,U,) 
RANSL O/SURTOCANCOSCK IBY) @e2e(CANSINCK) SALI 2&2) 

VAM» KP SOaDwanCus(«) 

ZACN KI ARALCANSGIN(K)OCAM 

CONT IMU 

GO TO 100 


CaSE2, CHMNPUTE SECTIGN Y AND 2 ORPINATES FOR NONCIRCULAR HNDY 
BY LINEAR INTERPOLATION 


KpheaCIRUMFFRENTIAL STATIUN INDICES 


Kis2 

OHTN(L)a0, 

YRCN, LT VaSFuS(t,heKY) 
ZRUNSLISSFUS(E,N KZ) 

YF C1LIEVYR (Ned) 

ZFC1)BZ79CNo1) 
ZOSOSFUSEL pM ZIOSFIDENRAD ONG KZ) 3/20 
NM ON Ns@eNRAD 

TF CKTFST,b9,1) GO TO BA 

VE (§UNISSFUSUINN, SKY) 

ZF CYNISSFUS(NN, Ng 47) 026 

NMLENNe@f 

TE CVF CEN) CEO, eg AND, ZECNS) £EG.0,) 60 Th BO 
TF CASSCVEC ND) LEE OF) YE CAN ISO, 
PMIMCUNISATANZ( YR (MND, wZE (BMD) 


wes 
WB23 
wh2s 
wRey 
WR2Z3 
«R23 
wR2 § 
ARZS 
waes 
wR2Z 
wR24 
wA23 


COMPUTE INTERMEDIATE VALHIES ARNUND CIRCUMFERENCE eannenncwnenecnweneent 23 


WRA3 
wRe3 
wRes 
wR23 
WR23 
wB2s 
wA2Z 
wed 
wH23 
wAZS 
“B23 


WR23 


wR28 
whey 
wR23 
wR23 
«H23 
wA2$ 
wR23 
wRes 
«Bes 
WR2S 
whes 
WR2Z 
wReS 
whey 
sB23 
wH23 
wWR23 
WR23 
was 
“R25 
wB23 
wR23 
“H23 
aPes 
WR23 
eB23 
aRes 
wA23 


99 
“400 
in} 
102 
“105 
104 
105 
106 
107 
108 
109 
119 
tit 
412 
113 
tia 
115 
116 
117 
ita 
119 
120 
12) 
fee 
123 
124 
2s 
126 


~ 44. 


AIA sas BANOO 
~ > =) 
o 7 


194 


190: 


170 


_ 1aA 


Lan. 


acaa 


an 


GENERATE SYMMETKIC HALF nF sony FOR IxZ$yMet 


30 #0 KSKIT,*RAD 

ao CO4TK OK) GT SPRING NG) ) G1 19 Fu 

VRC ARDS ECVE CAML) oe PRTUNCMT) GS YE CSN) pPRIN(NM) PHIK(K)) 
ZEN KVSKT CZECH LV PUT CML ZEON VY, PeIN (im) PHT ACR) IOZC 
CONTINUE , : 

«fsa 

65 Tn 9n 


CASE 8, ISE {NPUT Y2Z VALUES 


VACNg MW YSSFUSENS pS ORY) 
Zs On pxsNnysS€ St view s*24 
CONT TNO 
CURT ue 


IF CixZSy~,tt.!) GJ TA tvo 

AA {OM Val, sFUSIIR 

KSK«Ran 

OO 104 [s2,<2a0 

KSK ef 

IKkeKRanetet 

VACtigM yp seVG(n, Ta) 

ZACN, KSLA (fie TK) 

CONT TNO 

KRANIK 

“HAY (MEW) BKOAD 

COUT Pe 

MAASM 

aeTTe cio). vA,va,Z4 

COhT THE 
_ RETHQN 

eRITE Co,pen) 

STEP 120 

HRTTE (5,170) 

STrP 130 

ENRMAT (LOFT, 1) : 

FIAMAT (ddr FPRUIR © ANDY HAS MORE THAN 20 MFRIDTANS 

of” 27TOX,1Amew VE wo) we) 

 FAURVAT (CaS ERRGR © ANY SOS YORE THAN 49 A¥fat STATIONS 
* ehSrxelAhen wEWwRAD we) 

FARM ATC TH NENSeTSp/TIH PHT KS LGGL2,5,20/7%,10612.5)9) 
EX0 


SURRNUTTINE PANEL CUR CTI, Je% ele “Pe AP) 


CALCULate PAYEL GETMETRY (BASED ON Tre HYPER SONIC ARAT TRARY SLY 
PAEGRAM CB AL bh, GENTRYY FQ NTinePLANAP PANELS 


Cevny PT Ts KOTCSONSYPT (CONN) -ZOTC ADDI, THET(CAONV, DEL TAC AN), 
rT XCOOEM PALI A VOCS, 207g ZOOC SIG 20) 6 UA C1200) 

MS, “1009907 LUC Sree) 

Stren sgrn MTNCOV EVE CO) ep LINCO ATC SVE TACHY 

REAL Ket Vo’ Z 


REORDER Tek PANEL CORWER CNTR TS TH CUNRESPOND Ti GENTRY Cueves Titi 


ROS 
¥ReS 
wR23 
XR23 
“R23 
a ee | 


. AR23 


aR2y 
4ADS 
wR23 
ahHey 
aA2$ 
aB23 
B23 
ak es 


seusmasasacveassaevenwa tii? § 


«Res 
“R2$ 
aHes 
“R23 
~82 5 
A225 
wB23 
«B23 
rRe@y 
aB23 
aR23 
whe 5 
ahey 
ao 
«R23 
aay 
HR23 
MB2h 
aRo§ 
wes 
wR2S 
aH23 
#A23 


. #hes 


whey 
«Hey 
1323 


w9A25 


ae 
-AR24 
ahead 
R24 
wR2u 
aed 
#94 
wR 
awed 
abed 
wR2U 
A224 


“ wA2u. 


127 
1QH 
1e9 
15. 
13! 
132 
135% 
134 
135 
13o 
137 
158 
139 
$4) 
{at 
142 
14$ 
{a4 
105 
145 
147 
14a 
4ua 
153 
15t 
152 
153 
154 
15S 
156 
1S7 
1558 
159 
15% 
lot 
toe 
160$ 
tha 
165 
104 
Yo7 
168 
169 
179 


Orn Ffi wn 


ne we 
Nee 


13 
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FP8st, Es ¢ ashy, Fs 





HsJet : wH2a 15 
K1LsKel . 4B24 16 
KINO IEXC(TEAKE) wh2a 357 
XIMC2ISXC(JsA1) ; aneo 18 
KIoCSVeExC (5.6) ' wh2u 19 
XINCG)SXOCT1,K) ; wB2a 2) 
VINCLISYCCIt Kt) wR2d At 
YIN C2YBYC(IoKE) wH2a 22 
VUECEISYC (See) ; wR2G 23 
-VINCaVBYCCI1,%) wud 2a 
IF (L,FQ9,1) GO TN 10 wR2G 2S 
ZIsCpyeZCC IL, KI) = “624 26 
ZINCZISZCOIAKL) ; wA2a 27 
ZINC3SZCO5 eK) WH24 2A 
ZINCOSZCC UIA) wRea 29 
: Ge th 206 ; : : “B2G 40 
19 ZINCLISZUCII,KS) rare . wR2G 3 
, ZINC2SZUC TAL) : wH2d 32 
ZI C§)VSZ2UCT OK) wB2Q $3 
ZINCadyR2UCI1,4) : wRea 3a 
Cc .s peat wR2G 35 
c FORM DIAGONAL VECTURS ; wA2G $6 
c FOR” VECTOR C8OSS PROVUCT., N B Te xX TI wB2G 3 
c ; ; ; wAQ0 $4 
ea TAXSXLING Sextet) ; wBeU 39 
T2XRKIN(CT)OXIN(2) wR24 4 
IF CTPLEQ.1) Taxserex AH24 Ut 
TIVSVIN( 3 wYINCL) = s WARL 42 
T2YSVIN(U)OVIN(2) aB2a 43 
: Te CYP,EQ,L) T2Yacetay "  wBea ou 
TIZSZINGSeLE CL) ; «Bea us 
TEZRZIN(CUIeZIN(2) : 5 ah wREG 46 
1F C(CIP,£9,1) Tezz=t2Z : waza a? 
“Xetove4lhtZeT1¥eT2eZz wR2G UB 
NYSTUXaTIAZetexel1Z ye wH24 49 
MZETAxaTP Veli  Calay : ‘ ‘ aAReG SO 
TF CARSONX),LE,EPS) Nese, : ~R24 51 
TF (CABSC(NY),LE,EPS) sven, ; «Bea $2 
TF (CARSCNZ),LEQEPS) NZ84, 
VNSSART CNX RN XENVONYONZ WZ) 
IF CvN,FQ,0,) GO TO 30 
c 


c FORM UNTT NORMAL VECTUR, THEN COMPUTE aVEQaGE pnqNt 


VsOs1,/Vt 
RXSAK eV AD 
MYSNYaVAD 

3 NZS ZaVN) 

30 AVXE, 25a(RINCLIOKINCSPOCINC SOIC) 
AVYS 25a (VINCLIOVING2ZIOYIN( SIO VIN(4)) 
AVZe PASM (ZIN(AVHSINCS]POZINC SIO ZIN(ED) 


Cc COMPUTE PRANSECTIOM PTSTAUCE 


DSM RCAVEORIN(L) Ona CevreVIN(L) denle(avZeZIn(1)) 
TASGRICTixefixeTiveliveriZetiZ) 

te (7T,ER,0,) BN TH 40 

That st 

TIXsT {ver 

TiY]sTivern 

“TE2ETIZHTN 

ao T2xenVYoalyLZevZallY 


354 











TovarZeTy xonaeyiZ 
ToLZENMaTIVenYaVin 


» COOPUTE CNGROT! ATES QF COCNER PNI-:TS IN REFERENCKR CORanyuate 
SYSTEM 7 
TRANSENRY EGR ER POULTNT TH) ELEMENT CUURDINATE SYSTEM (C¥T,E TA) 
wITH AVERAGE POTVT AS NRTGIS. 


AAA ADA 


ny 80 aat,d 

SPASXT* (CS Dorn eD 

VPASYIS C1) o! Yaty 

ZPASZINGWVO*% Zar 

Ngef 

XOTFexPdAwavx 

YO TE SYDAwAVY 

ZTE EZR Awan] 
KTQCNSVSTEWOXOTFeTiVevOTFetT1 ZeZh IF 
| FTAC SV STAVeXUTEST2 Vera TF eTaZe7U IF 
4 COR TINUE 


COYPUTE CEXTRAIN 
FMTATN COPMER POTNTS IN YYSTEM ®ITH CENTROID 48 ORIGIN 


ANNAN 


ETACKSETACA ee TAH) 

TF CR TACK SE .O,) Gi TN 60 

“yIeso, 

Gt: TA Vu . P 
HO UIGCECKT CDV ACE TACLIPETAC[])VONTC2) RCETACUV@ETACL))I/(3, ETACK 
70 ETAMZOETALIDZS, 

yICLYSxTCterxrgo 

XECAV EAT OQ) enn 

XECSpSKTC Sexy 

xICuyexl(ddento 

J RTACEYSE TACT) wp TAD 

ETAC ASE TAC 2 oF TAL 

ETACSISETALY) ETAL 

"ETACU)SETACU) @F TAO 


PR AVSEMRM CEC TONTO TO REFERENCE CURDTNATE SYSTE4 


aaa 


KOT (NPYSAVYST eek Oelaxeb TAY 
YOTC yOPRAVVOTL vex OoFAvVeeTan 
ZOTONBYSAVZ+TIZHXTOeTAZeE Tad — 


COMPUTE PANEL INCIDENCE AND INCLIVATION ANGLE 
COMOnTR PALEL AREa 


‘onaa 


PEL TAGCNP YS, 

TMP TCUOVaD, 
AVASGRTCNVe? ver. Jar7Z) 
TE Che ENC) GU THe OU 
SLset, 

TF (LEM e) Stoel, 


OFLYA & at Gik SETcRE* THE weAxT§$ AND THE LINE §R [NTERSECTTIIN 
WTTH THE PANEL DF a PLANE PASSING Treg THE ve AXTS 440 THE 
PEROFAOTCULAR Ty fee PANEL, a 

TE Core beg) MEL TACHIISATENA( St wx ew) 

SPSEI_ ATC J a2eTP) 

TE (AAS(SOD LE, TFESGMESS)) SPS1, 

TF CTI,E6,13 GR Te 84 


NAA 


C HET © Avot bk SE Tank? Tee Year TS AvN Tet CINE OB TuUTERSECTIiN 


aAeu 
aReu 
a3e@a 
aR2y 
“82a 
wida 
aBe4 
»RO4 
wAey 
“R24 
«Rea 
wReug 
aR2d 
wRea 
wAQ4 
wR2u 
wA2u 
vd 2u 
wR2ag 
wR2a 


‘wAe 


wBea 
wRQU 
wR2ug 
wAeY 
wA2a 
“Reg 
whey 
wA24a 
#B2a 
wRea 
wOPa 
wea 
“Bea 
aReg 
O24 
wR2u 
wRB2a 
wRea 
ARG 
wA2u 
aReu 
+H24 
~R24 
aRn24 
wag 
wH24 
@Aeu 
wReu 
a82u 
whoa 
w4GPu 
wB2u 
wan 
sBeu 
aRheoy 
43240 
oWeu 
aR2u 
ahQu 
aR2QG 
«4Heu 
wR24Y 


7? 
74 
79 
An 
el 
a? 
KS 
Ad 
a's 
Kn 
7 
eH 
ag 
94 
9 
92 
93 
uu 
Qs 
94 
97 
98 
99 
109 
tot 
tu2 
193 
Loa 
pos 
196 
107 
108 
109 
119 
11! 
tte 
113 
114 
15 
flo 
117 
lle 
119 
12 
tai 
122 
12$ 
124 
125 
126 
1e7 
124 
129 
134 
131 
132 
133 
154 
135 
1845 
137 
134A 
139 
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anan 


AQAANAAA 


C OF Tek PANEL wf TH THE YeZ PLANE, 


40 


90 


199 | 


10. 


TE (NY,* EF U4) THET( iPYSATANA(SPHNY, wGP RZ) 
fy TH 148 
TF ONZE ie) THE T (APY SATANS(eSPAN se SPRNY) 


-6U Ti 100 - 


1 


‘INVERT DTAGONAL KLOCKS 
IMVERT BODY INFLUENCE MATRIX AND wRITE ON TAPEIO 


IF (eK NE UL) DEL TACNPSATAND(ONK SKM) 
IF OMY Fe hs eNO NZ FR, ) GO TO $du 
THE TC NP YSATAUACANVY,NZ) 

APS SCX Sexy (lL) )eE TACK 

TF (TO,EN,1) Apeeap 

RETURN 

END 


SUBRNUTINE PoR@TIn 


FOR WINGeBNDY CUMRINATIONS, INVERT THE MATRIX PATITIONS (PROVIDED 
THe, 


DRNOER NOES NUT EXCEEN 40), 


FAR ISOLATED *INGS OR BONTES, ALS) SOLVE THE BOUNDARY ene, 
EauaTINngS anh HETERMINE THE wdhG viIRTEX STRENGTHS OR sobs, SOURCE 
STREYETHS, 


CORON N(600) 68 (600) 0 NT(000344(6%,603423(300),64(600), 
GA0600) 2670600) 


7 COMMIS /PARAM fF NRDUY,NAINGONTAIL SLAC, THK, AP ACH ACRMAG DET De ALPMAC 
4 


ePHTP, REF A, REF, REPEC, MED, SEFLDRERX, REFZ 
CUY#NN JPNINT £4 ABRAY (0000) 
NIMENSTOs (69,60) 
EOUTVALEACE (OCLs lL ,ARRaY(1)) 
RF 4b ‘we hBe dT 


COLL CPUTIMCTIME eh Tet) 

NOTMS60 

REWIND 9 

HP AMEL BYRQIDYONWING 

TF CNMTNG FOU OR VHUNY,EQ,0) Gf) Ti) SO 


WE*®IND 10 
90 10 Tet,sSi0y 


READ (9) CCT, Wodet,wunnyy 


CORT TSU 
COLL THVERTC »NHUDVeNDIM) 
wRITE Cioy v 


C READ PAST ANOY/AING INFLUENCE MATRICES 


356 


D9 20 121,N6N0Y 

READ (9) (DCYeI) Jey, winG) 
CONTINUE 

nn $0 TatenbtnG 

READ €9) ONC Ted) o Jet ,%BRDY) 
CON TENGE 

9 GO [Sl eNatnG : 

REAM (9) CNCT SI Jat esateG) 
CONTISNE : 

FOr INVERTONS VWENG NUT) 
“WITTE (30) O 

REXIND 9 


wB2a 
wH2& 
wAa 
wH24 
wRea 
WA28 
wH2u 
wA2a 
wB2a 
«B2aq 
@Bea 
wH2u 


wR2S © 


wR2S 
wB2S 
wRe5 
49325 
wB25 
wRAS 
wB25 
wAeS 
wAaS 
wBas 
aRBe5 
42S 
aRas 
wB2S 
wheS 
W825 
wReS 
wRes 
wR25 
whas 
wHeS 
aBeS 
wRes 


sbeeeceeSwesdddccsescccccedeeuecccneseeewecuenas 


“R25 
wReS 
WA2S 
wReS 
aR25 
wReS 
#825 


w825 


wRe5 
wA25 
WR2S 
4B25 
wReS 
aBeS 
wH2S 
wheS 
wA2S 
wheS 
ws 
waps 
wA25 
wR25 


tao 
144 
ld2 
14a$ 
tag 
145 
14h 
147 
Las 
149 
150 
151 


WOON FUE WN = 


ANANANKE ANNAN ANAANAAAAAADANAAO 


REaIND 10 #825 


Gi TM ys : ends 
€ akeS 
ia Smiiveé ENTIRE MATRIX ITF NPANEL) of © USLY &TIGS IR ANDOTES evancewoneweaat2S 
Cc. a825 
50: OD AN Jet, PANEL ; #325 

BREAN (9) CACTs Jo Jet, 4PSPEL) : anes 
69 CONT Pik aR25 

WEIN & : Abas 

CALL TS VERT CA eNPANEL, IDI) : 4H25 
c #825 
C SUBSTITUTE «IuG 4MUNDARY CONDITION AND COMPUTE STOENGTHS © Ga was 
c aA2S 

TF (Mat 5.8.0) GO TA at anes 
C4 DN 70 Tel ehatNG #25 
C8 Gu(T)20, woes 
CR BV IN sate naleG ; “ aes 
c4 GeCTIsGeCl)+acl, al «B25 
cHT0 CONTT SUE : »  WR2S 

BO TA goa aR2S 
c : a4825 
C SUMSTITUTE 30CY BOUNDARY CONDITION AND COMPUTE STRE*GTHS © 6B : wR2S | 
Cc : 2 te . k wh2S 
§0 » PM 90 Tes1,"8600Y ; ‘ wags 

GHC) a0, . ah25 — 

/ On 90 JEL, SRUDY P 3 . “R25 

fs GACTYEGAT) #8 (Ted) #® 803) : wR 
90. CONT ue. . : : : . — R25 
100 9 -REBING 9 ; ; ARAS 

: COLL COUTIMCTIME 291) rr rts 
aKITE(6,9'O) Trt ,uf . wH2S 

{in ENQMATOCSIDKs LARE WD PARTY, TIMES eF 10 dp 5, SHOTSFIO,U) . wes 

| RETURN 432s 

J ERD : oe aR25 

SUBROUTINE PLLITAD CX, Ve TOPT NP, NPP CLRID LENG) +A2n 

C teem saresewneccconrecesecwscnsaneneesas ens amunenvensensmnavesesmoneseaHnah 
d ; “Beb 

SUMINUT ISR PLOTA2 « mi aes 

«Bah 

"PURPOSE Ae 


ROUTINE Trl GEREQOTE A SINGLE CHARACTER CLOT HF NC STYMULTARKFOUS sR2n 
CUAVES UF y VERSUS X, THE Tater CumVE 18 3TARED CHLUMNAISE IN «A2h 


AMRAVYSG ACI, J) AMD VOL, J) ANN “AY WAVE & VARTALE NUMPER uF aR2n 
PNT TR, “PC 5) ; «22h 
«R26 

: hel 4a) 

MALLING &ORMAT : ‘ wH26 
CaLtL PleuTae (have LAPT, NP, NOP ,*CeoLUTD,LENGY . «226 
#226 

PAW ANE TE OS whee 
SAE TYPE L448 te de SCALP TION . “Aah 

. ahon 

v,y 2 LT CLDR, CO) mT VATE © AKSCTSSA AR8RAYS _ whee 
te7 I I WON CPTI NG TYE OF POE SCAILIUG aH2n 

fe SEM SPECTIFTFS SCALE LIMITS ¥A25 


Qe EXTERNAL BuTevYATIC AeST SCALI'-G aROk 
S$. aut MATIC TRF SHAPE SCALING, SES#A25 

WATT IE Oa eIPSLESG & WDTER SY OTR Fe aan 
te SE Max AND -47N VALHHES OF DATA aHeb 


OBUnNTV NEWN = 


qa 
a 
53 


St 


52 
$8 


Sa 


55 


SA 


$7 


54 
6 
ol 
2 
o$ 
64 
45 


“69 


67 
a 
09 
70 
71 
ya 


Ta 
75 
To 
77 
78 
19 
4) 
at 
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AAHAAANANDHAANAMANANINAANANANNHANNANAAANANANAA 


ND j 1 J KOKE 
"DP J t NONE 
NC 1 sf ead 4 
Lafd I 1 1atyd & 
LENG 1 ! NOWE 


USER SUPPLIED COMMON RALOCKS 
TOPT 21,5568 


COMMON /BRSCALES 


Olresspaa 
INTEGER SYPANL C80) 


5S, TSPUT “Max, YMTNe@ AUTON yeSCaALING 
by INPUT YYAX,YMING® AUTO xXeSCALING 
VECTE:R UF NUFHER NF POINTS IX JaTH 
CURVE, IF NDPst,. se 
TO 1 FOR ALL ClRVES, 
FIRST OLMENSION OF ARRAVS wXeY¥u 1 
CALLING ROUTINE 

NUMBER CF SPU TANEGUS PLOTS, 

Ik MOCXE), CHARACTER SET PEPEATS, 
4TCTN UF PLOTTED RFRTIUNS “aT 10 
CHARACTERS/INCH, NORMALLYS100, 
FOR CRT MWR T,1, TERMINALS=5S0, 
MAXIMUM OLMENSTIONEN & 100, 

NUY“BER OF LINES IN PLOTTED REGION 
“CRMALLY350 4T 6 LINES/SINCHS 

FOR 8,5" pAPERZzUN, 


JZASCALES MMA XMIN, VMAX, YMIN 


CF td TYPE I/O/8 Of NE SCRIPTIAE 
XMAX R Ts) NONE “AXIMUA ¥ SCALE VALUE ACROSS PAGE 
xe yp a | 28) NONE MINIMU4 ¥ SCALE VALUE ACROSS PAGE 
y¥uax 2 tein NONE MAKEN ¥ SCALE VALilE AT TOP QE PAGE 
VYrIn R Tsu NONE MINIMUM ¥ SEALE VALUE DOwN PAGE 
EXTEANAL JEFERENCES 
PLOTA SUASQUTINES: PLOTAT, PLOTAA 
AUTHOR 
WOSEPH MULLEN JRee NIELSEN ENGINEFVING @ QFESEARCH, INC, 
NATE, CFCEMBER, 1970 


XKONDP nC VAY (NDO SNC) es KPRINT( 7) ANPC(NC) EMT C6) 


COMME JBPLTALS aXPRNYPO,TVANIS, IMA IS, TOFEK, LOFFYSLLINE 


COMMON sBPLTA2/ LINE (103) 


CHHMON SASCALES KRMAXg eMIW,VY“AX,ZYMIN 


DATS SYMAOLS Hae DHoeothwy th, pLHOoIhisIHe, 143, IHU, tHS,1Nb, 1H? 
ee IHR LH Ost ray LHR LHC TD, THE, LP ARG, LRH, THT, LHS LAK SHEL, LM 


CO®20TNATE) ANO Y (AHSCISS4) 


c 
DATA ENT/UH(IN GOH Glas dh bebe UH( AY, 4HGth,,aHd)) / 
RAN, PHN, LEE S THOZ LAN, IHS SALT THU tev, thw, LHX, THY, IRZS 
Cc 7 « 
C FIND MAK ANO *IN GF X 
Cc 
wWIJs 1 
TF (Ue TLL) LOPTs2! 
TE CLOPT.EG,1) GO Ti) 44 
TR fF yoPT.FEN,S) GO TT) 60 
XMAY 3 XCt51) 
XYIN = NCt,1) 
Ay SO Jet.sc 
JF ¢8:NO,GI,1) HPS Ss ECS) 
TF (OPILLTLLY GI TO 59 
ON UN Jat,s PJ 
KMANX Bw AMAMICACT J) oxMax) 
40 R@Th Ss AMPULCKCL SP KYIN) 
50 CON Prue 


IF CUOPT,EG.6) GY TY AY 


wR26 
wR2n 
wWREhA 


TS ASSUMEI EQUAL «Rh 


WREA 
wR26 
AR26 
aK26 
wR2e 
sB2o6 
wB26 
wA26 
whew 
WB2h 
aA2Q6 
WH26 
B26 
nH2o 
WwA25 
WR26 
wh2b 
aR2o 
wR2H 
WARDS 
aR26 
wR26 
wA2h 
wR 
WRAQ6 
Pir ae! 
*B826 
«B25 
aRes 
WH26 
what 
WR26 
WK 
WR2A 
aR2b 
wKeo 
*B26 
WR26 
ARQ 
aBeo 
wH26 
wH26 
WRES 
WR2 
wWR2h 
wB26 
wARK 
wR2b 
wH26 
WRAb6 
WR26 
wA26 
w2h 
wR2b 
wR26 
wR26 
aA2b 
wHe6 
«H26 


a0 


55 


Oa aan: aan EwAOOM 


anno 


nan 


210 
c 
Cc 
Cc 


c 
Cc 
Cc 


yvax Vettel) 
yugou Yet.) 
yin TO Jer,rvc 


TF (NP GT,1) NPI = PPC) 


TE CNPS LL TI) GO Th 2a 
ws 6S Tst, "PJ , 
VAC & AMAXTCY( Le J) e¥ha 
yeTh s AMTNSICY OCI, JV eV 
CORT TSE 


NETEOIMTUE SCALING ANO HQGND OFF Vat And MIM VaLokS ah LOCATE 


Ke 4%) YeAxeS, 


CaLt PLOTAA(OX,DY,ENT,LAIO,LENG, TUPT) 


wWWOoOWwS Ss LERG4! 


INITIALIZE PL VTING dated 


YL iw = YeAneN Seny 
vey = ¥4AX 
YUR = Yano Sal 


FOR 1 PRER RIUSDARY 
CaLt PLAray (LIbe tel) 
-AMTTECO,1) CLINE CT) efet 
Oe 250 Lele ews 


TSIThaprZe G&L aed OO% GR Ke 


TR CL QSESTAAXTS) CALL PLUITA? (LEISE,LeTOFEY,?AY 
TE CLZEQ, TKOLTS) CALL PLITA? (LIVESL@TOFF N,N) 


TEST FOR DATA IN Lats 2a 


OO G10 Jaber 
USve Ss sga(sat,anyel 


») 
y 


tr 


eLL Eve) 


ax?rs 


TR (adP,GT,1) SPY s NOCD) 
TRE CNOT ETI GE TD atu 


“7 299% Tele, #45 


TE CVO Dee Te vuP) om THY 210 


Te OV CT eS) eLe a VLila) G.? 


FIND X LCATIO: RF POINT © CHECK IF STTHIN STDF BOUNDS 


WIR so TETUCOKO Te JL okN Ts 
TR CNDK IE 1) GU Td At 


tl 210 


V/NX$I,51¢2 


IF CNOK,LGE LE INED) SL Th ALY 


LISé (sox) & SYeRUL CIS ye 
Cu TINue 


POTA.T vas OE ptTOUT © TEST 
r¥fity sg YOADCy aL R Kel, y 


TE CTNAN E59) ARETE Ch 
TR CTU IVE,U) -METeE Ce 


TSCBEMENT VeST9IPy KEDEFTH 


ViIP 3 Vi-clw 
yeTO Ss veToeny 
TF CASSC¥YTHSOVI LT AYE 


,] 


Tt) WRITE SCALES 


Pa) 


odd YMIMGCLISE CTI, FSi el LEve) 
oS) CLISE CT) STSLOLLINED 


PF YLOw AWG YD 


4) YeToso,e 


»H26 
AQ2a 
wH26 
“RAA 
WR20 
AR 26 


aPR2a. 


s20 
«R26 
wR26 
“B26 
KAP 6 
AH2G 
who 
wR26 
aR26 
«B26 
«R26 
4HeA 
«A2e 
wR26 
wR2t 
WBA 
sRAn 
»R26 
aA26 
wR26 
826 
4A26 
A826 
aR2b 
web 
“426 
wA26 
wR26 
wReb 
aB26 
aRea 
aR2o 
nR26 
wR26 
wR26 
aes 
«226 
AH26 
wR26 
4AV6 
aR 
“R26 
wA26 
S826 
web 
wH26 
adh 
aR24S 
«Reb 
ahh 
wAAb 
w426 
aRh2b 
ano 
«Reo 
«426 


119 
129 
12% 
12e 
12$ 
124 
125 
126 
127 
125 
129 
139 
133i. 
132 
1$3 
13a 
135 
136 
137 
133 
139 
149 
1441 
ya? 
1u§ 
{ya 
145 
146 
147 
148 
149? 
159 
191 


359 


360 


MANMAGMAAMANANNAANNAAMANAAGAAaaAABAAAA Noaan 


¥L Ow 8 YLC*ReDY 
230 CONT HUE 
Cc 
C FARM LimER AUUNDARY 
c 
CALL PLOTAT CLINEstol). 
eRITE Coed) CLIVE CL oe TALOLL INE) 


c 
C PeIAT SCALES 
€ 


MEP S (LLINE@EIGFEV Y/N KORO 
XPRINT(H) BS AMINED KEC TURF Veg) 
OC 280 Tse,nxP 

MPRINT(I) S KPRINT CIT o 4) 60x ah XPR 


TR CARSCYPRINTOIT)/OX) 07.0, 901) XPRINSTCT 20,0 


240 CANTINUE 


WRITE CmH,FMT) CXPRINTC(CTI.T BL NXP) 


RE TURN 
PORMAP (C1mI,d4K, 10388) 
FORMAT (1X,G13,4,1%0105AL) 
FURMAT (15e,19341) 

EAD 


Pr) nd 


aR26o 
aA2b 
aR2b 
wR2o 
«B26 
“B26 
wWR26 
WBae 
B26 
ad26- 
when 
WRen 
wH26 
wheo 
WHAb 
WRE6 
WB2t 
AB26 
AHO4 


_ WReo 


SUBROUTINE PLOTAS CX ¥p Le XPeNNPANC , THETA, XCG,xXP,YP,YSC) 


C4000 080 9 008806 8e FO O88 TA OREO SENEEHTED SEATS BAN SeTenZevannossnenasaeseWwhay 


SUBRNUTINE PLI)TAS 
PURPOSE , : 
ANUITEINE TO SCFREORM AN ARBITRARY ROTATION Im $eSPACE OF (%,1¢2) 
MATA, THE THREE OFMENSICNSL VATA [5 RFOUCE TO THE (XY) 
PROAJECTIUN, XPe¥P, = 
CALLING FORMAT 
C4tc PLOUTAS Cee Ve ZehPesPynCyTHETA,XCGsXP,YPLISC) 
PAWAMETERS 
NAME Type {/N/78 oI” DESCRIOTION 
XoV,Zz R I (HOP ,eC) COUKOTsaTE PUINT AHRAYS 
Pp I 1 MONE VECTUR AF mluMBeR UF POINTS IN JaTh 
Curve 
eRe I 1 MIWE FIRST PIMENSTON OF ARRAY aX,¥,Z6 IN 
: CALLING ROUNTINE 
Nc 1 J NOME NUMER OF CURVES TO KE TRANSFURMED 
THETA a ! (5) ROTATION ANGLESeTHETAX, THETAYs THETAZ 
COEGREES), A@ATATIONS ARE PERFORMED 
TA KEVFRSF ORNER, 
XCG R I (4) LOCATION OF CENTER OF RUTATION 
“CG 2 (x€G,YCG,7C6) 
x2, YP R DN CNPP eNO) COORDINATES OF TRANSFURMED POINT 
“UTES P,YP MAY BE STORED IAN XY, 
tSc { I NE SCALING NPTTAN 
: 1, auTimarte gc ar[rxG 
2e AUTOMATIC SCALING GN QaLYy 2 
3, SO SCALING NF CNIRNINATES 
4, INPUT SCALING VECTOR « § 
Se [PUT LAK epee e ZINN © SCALE XeVo2 


aA26 
wR26 


“ReT 


wR27 
wR27 
WR27 
wae? 
aRey 
aH27 
wR27 
whe? 
wi27 
wR? 
WR27 
wR27 
wK27 
wH27 
whey 
whey 
whe? 
aA2y 
wR2? 
WR27 
wRey 
“827 
WA27 
He? 
aR27 
AR?T 
wR2? 
ake? 
427 
whey 


a327° 


«aA? 
an27 
whe7T 


1S2 
1535 
184 
{55 
15” 
157 
154 
159 
{an 
Lot 
162 
163 
loa 
165 
165 
{67 
164 
109 
174 
17t 
172 
173 


WsevVR OV Pn yFUEMWM— 


ee pe wee 


Isc 


NAME 


XMAaX 
xMTN 
yuMax 
YMIN 
Zax 
ZMIN 
8 


AUTHOR 


DATE 


aaananaananaanaananaanan 


34,53 


m4 


COMMAN /ASCAL2/ 


TYPE 


REaOEEKCE 


USER SUPPITED COMMAN ALUCKS 


JOSCALZS KAMAN XMIN DY 4AX, YMIN, ZMAX,ZMIN,S(3) 


T/O/S Ot 
tw NOME 
r/9 NONE 
tsa NONE 
Ts NOE 
| 28 NORE 
to VORE 
T/ij 0 NME 


JQSEP4 MULLEN U8ee 


DECEMGER, 


1976 


CESCRIPTION 


MAXI 4UM AF 
MIN] “ye O- 
MAXISUM OF 
MINT*u's OF 
MAKING OF 
MINTY MF. 


VECTIR USED FOR RELATIVE SCALING 
DF XeY¥eZ COMPQNENTS HEFQRE HOTATION, 


REAL RYCEs SARC Se 3S eRZ03 0 Sd ,ROSs $) 


Coetwpyn 


JASCALASEMAX eK AINA YMA KL, 


DATA AMARV AZAD Vol AeA ot es lemUsdyl  O/ 
DATA PADDEG/N,)174532926/ 


NPJ 3s 1 
c 


cSsX 
SINxX 
cQsy 
SINY 
cousZ 
SINZ 


unneauwnu 


aan 


RXC2Q,2) 
RXC2,3) 
Qx(3,2) 
RxXC3,3) 


aan 


RYC%,1) 
wY¥(L,S) 
RV(3,1) 
RYCS,3) 


aaa 


PZ(1.1) 
92¢1,2) 
RZCeet) 
R262,2) 


oao 


Bi TN CTA, ‘100,956, tor ,1$9). 


100 X4AK 8 


C AUILD THANSEARMATION MATRICES 


COSCTHETACL eR ADNES) 
SINCTHETACL) @PANveG) 
CUSCTHETAC2) ®RANDEG) 
SINCTHETAC2) #RAaQUEG) 
COSCTHETACS) #RANCEG) 


SINC THETAC 3S) #RAUNEG) 


= 
s 
s 
= 


at wu 


DEFINE KerntariIon 


CASXx 
#SI vx 


“SINK 


cosx 


. DEFINE YernyaTION 


csy 
SINy 
eSivy 
Cosy 


DEFINE ZeROTATION 


Crgz 


eSINZ 
SINZ 
C:1§Z 


MATATE SCALING © BIND 


x(te1) 
XEN = wet,t) 


“axeTh a AND 


“INT Aa 


msc 


NN << OM 


MATA 
DATA 
Dara 
DATA 
DATA 
NATA 


VALUES 
VALUES 
VALUES 
VALUES 
VALUES 
VALUFS 


HIELSEN EWGINEERING # RESEARCH, 


YsTN¢ Z4AXST4IN,S(3) 


INC. 


aRe7 
wBer 
“Be? 
wR27 
AB27 
aAe7 
aBb27 
wB27 


_WR2? 


wR? 


N27) 


wR27 
«B27 
wA2T7 
wAe7 
«R27 
sA27 
wR27 
wey 


Boe Deve ce cwabelenaecoueseCusceswoebseebe secesdcowcccesecelouccwceseasceanda7: 
DIMENSIAN XCNDP PIC) GP YENDP SNC) LZENIP ONC) pNOCNC) 
OIMENSICN KPCNDP SNC) se VP CWOPSNC),TRETAC3),XCGC3) 


aR27 
«827 
wha? 
wR27 
wRa? 
WR27 
wR27 
wR27 
«827 
wh? 
wh2T 
uA 


wh2? 


waAe7 
wR2e7 
wR27 
WROT 
wT 
«827 
aRe7y 
aR27 
wR27 
wR? 


awher 


WR27, 
«827 
sAQT 


whe? 
wHh27 


wB27 
wROT 


W827 


“Re? 
who 7: 
ane? 
«R27 
#Ae7 
wR27 
»Re? 
«R27 
«R27 
w827 


wR27 


362 


fo 
129 


aAag 


130 


40 


[OOD 


59 


—-Aan 


60 


170 | 


1a9 
c 


yeax 3 Y¥(1,1) 
YNTIN & V¥(46!) 
Zeax = Ziel) 
Zvte = Z¢161) 


00 120 Jal,C 

TF (NDP,GT.1) NPJ a NPC.1) 
TF (NPJ,LT.1) Gl TN 140 
99 119 Teteupy 


YMAX = AmMAKECKMAK, X(OT,I)) 
MMIN S AMINE CRMIN, KOL,S)) 
Y"AM & AMAKECYHAK,Y(T.J)) - * 
YMIB & AMTAICYMIN,YCI,J)) 
ZMAx Ss AMAXE(ZHAX,Z¢0E,J5)) 


Z4IN & AMINECZHIN, ZC1,3)) 
CONT TUE 

KOIFF s ¥yMAX@XMHIN 

VOTER s YMAXeYNIN 

ZOIFF = ZMAXeZMIN 


CHNNSE SCALING © ISC81,5, SCALE £,Y,Z2 


GU TO (13026140,159,169,130),1SC 
D & SARTCXDIFE RXOTFReYDIFF a YDIFF¢CZULEF RZDIFF) 


S8(1) = O/XDIFF 
802) = D/YOTEF 
8(3) 3 &s/201FF 
GO TA 1460 


c 
C [8Cs2, SCALE ONLY 2, 
c 
1 


CG 2 SARTCKXUIFF aeXDLFFevoIFF eYOTFE ) 
8(1) = 1,0 

g9¢2) 3 1,9 

$(3) 2 O/SZULFF 

GO TO 160 


1SCs3, uSt NO SCALING 


§(1) 2 1,9 
§(2) 2 1,9 
8(3) 3 1,9 


COMPUTE GLOKAL TRANSFORMATIONS RS R7HRYWRXOS 


No 190 Jailed 


. 39 180 Tate 


Sum =S 0,9 

NW 170 Kets § 

no 170 Let,3 

SUM & SU4sRZCTKIORV(CK LI eRX (LOS) 
WOTgJ) = SUM#S(J) 


C TRANSFORM CONWDINATE VARTARLESS XP 5S Re(XeXCG) 


Cc 


ON 210 Jsi,ve 

Te CNDP,GT,1) NPS & NPCJ) 
Te (SPILL T.1) GI TO ein 
Nf) 209 Tst,vFJ 


OX & X(1,J)<3CG601) 
NY = YF, J) @xCG(2) 
OZ s Let, JV9KCGCS) 


KOCT, JY = KROL et POKER OL 2IMPVOR( hs SP eNZ - 
YPCT, J) & RCSpSIANKOR (CA, A2IAIVER( 2, S1aNZ 


at 


«AQT 
«827 
wRe?7 
827 
aR? 
aA27 
wRe7? 
whe? 
aHe? 
wHe7 
wB2? 
“B27 
wR27 


WAT. 


aRe7 
aR2?7 
«827 
wH27 
WAT 


wH2T” 


wie? 
wR27 
“B27 
w327 
wR27 
aaor 
wR27 
wT 
wHeT 
ae 
wWH27 
wH27 
wh? 
wRe? 
wA27 
nae27 
wae? 
whe? 
B27 
wB27 
wae? 
wBe7 
wR27 
wWROT 
4827 
whet 
whe? 
wR27 
wR? 
wH27? 


“ WR27 


e4e7 
wH27 
wReT 
WR27 
weRaTy 
«R27 
andet 
ah 
wh27 
wer 
«Ah2? 
wR? 


$00 
101 
192 
193 
va 
195 
196 
{a7 
108 
109 
11¢ 
Mil 
{12 
113 
114 
W415 
116 
117 
148 
119 
120 
1e1 

122 
123 
124 
12S 
12r 


127 
124 


129 
130 
($1 
132 
133 
134 
135 
134 
137 
1393 
159 
140 
tat 
{42 
14§ 
{44 
145 
146 
147 
148 
189 
150 
St 
152 
155 
154 
15S 
156 
1S7 
158 
{$9 
19 
lot 
{o2 


200 CONT Te 

210 hURT EVE 
RETIN 
END 


SUBRONITISE PLUTAS CX. TEAPSTRNNI)) 


ah e7 
aR27 
w4o? 
whe7 


“Bea 


C temwcee mace eta se eee eee ee tae eh eee ease Pesce asesessanseeesencanoseassoneen RIA 


SUBROUTINE PLOTAS 


PURPOSE 7 
Cra hae, GLA AONA SOREL 


CALLING FNQAT 
CALL PLUETAS CXeTEXP,IRMUND) 


PARAMETERS : 
NANE TYPE I/0/9 GIA — OESCRIPTIE™ 


x R Tso SONe VALUE TRUNCATEN AT GIVEN FXPNNENT 
TeExeP I 1 NORE EXPONENT AT WHICH TRUACATION UCCUSS 
TROUAD I I RUSE RuUND TFF THDTCatTnRs 


ROUND LP (eet), ANWN (20) 


ASITHOR ; 
JiSEPH HULLE® JRee ITELSEN E ‘GIMERRING @ RESEARCH, JIC, 
DaTheN: VECEMBER, 1974 


NOTES 
CALLED HY PLOTAR, PLOTAD, PLUTIe © TROLOT, 


NANGAANANAANANAEANANAAAIANANAN 


COMMON sHHUGA 4 IPR 

TR CLT Ga) IX S&S TROUNDet 

IF (x.GF 2060) 1¥ S TRAYHO 

Y§ = xk 

HS MAL, eal EXO 

Ix 3 TFIx(x) 

TR CFLMATCTAASCT ADI LITAAS(X)) LX Ixere 
eS FLOAT(Ix yejO,welexe 


c : 
TF CLPRAGT.9) ARITECOGE9) MoTERP,IROUND, YS 
19 FAAMATECAZK PLIITAS © NBME PRINT @,dm xXenuTs,612,5.6 
* Te Te xXPS, Se 8H ERiuAns,tu,7m Xeth2,612,5) 
RETURN 
enn 


SUMANGTINSE PLITAG (UX, TEXP, PRINT) 


«825 
«B28 
whe 
wRAA 
wBeA 
«A288 
aRee 
«828 
wWR28 
wAQB 
wR2Aa 
aBew 
wRAe 
wA245 
WRK 
wReA 
aR2A 
nQQn 
ahaa 
wR2A 
aRQAR 
sB28 
wheA 
#A2B 


conn ten aren eseneensereeetweeneenennennennnceweneeen ssw eerenen neem eeenen add 


wR 
PLY -4.) 
WROA 
wR@A 
“A248 
wA2R 
WH28 
wR2A 
«92a 
aR2a 
anes 
aA28 
ABQA 
whOAR 


wROEQ 


C Fee 06 0 088 8 OS OHO 9S 8 FES SEO ASSESSES ETE DAS FST OSH ESEES Bese ones esaeaaaeeHehOD 


Cc 

c SuBRNTTAE SLATAA 

C 

Cc PUAENSE ae 

Cc PAITI 6 TH RUUND OBF SCALING Th) NEAREST secepraaie PLUTTING 
Cc SCALE, 


whad 
aed 
«829 
wR29d 
#Rh2Q 
“R29 


163 
Ad 
16S 
tha 


z~anNFWU EC wD 


363 


364 


ANMNAANMAAAAAANGANAIAAAAAaAN 


lo 


C. 


c 


12 


“B29 

CALLING FURMAT E : : «R2O 
CALL PLOTAS (DK, TEXP,HPRINT) aR2Q9 
whed 

PARAMETERS wh2q 
MAME TYPE I/n/S MI DESCRIPTION aA29 
«829 

Ox ] 140 NUE VARTABLE TO ROUNDED OFF «B29 
TExP I is) NOME EXPONENT FF ROUANEND VARTARLE wR29 
NPRINT = I a] NUNE VUMNBER OF CHARACTERS BETREE™ LABELS 4H29 
4829 

AUTHOR wh29 
JOSEPH MULLEN JRee NIELSEN ENGINEERING @ PESEARCH, INC, “B29 
OATENs DECEMBER, 1976 wR2Q 

. : : WR29 

HOTES : wA29 
ARRAYS X3SCL AND NPR TN THIS RUUITINE AETEQMINE TRE sACCEPTARLE® *B29 
VALUES 15) BE USED AS EVE INCREMENTS IN PERFORMING SCALING, wH29 
“CALLED &Y PLOTAR, PLOTAD, PLUTI, + IRPLOT, wR29 

. : whad 

Oe Ow FO OOOO OBO GES OREO SATS ENA EESHOSHSSOHAAASMETERAEG SSCS SATHonnewe4RG 
COMMON sOB8UGA / IPR wR29 
OIMENSION KSCL(6)eNPR(4A) wR29 
DATA CSCLI2% p22 U eg oS ep Meo lys : ¢ wR29 
DATA *:PQR £25,200 29,20.25 20/4 »NBSCL/H/ wH29 
DNATA OXSAVE 41,07 «B29 
wR29 

A4SX = ABS(NX) : . : . aB29 
If CAHSX,LE.O,) WRITE (6,19) ox wR29 
TE (ABSK LE D4) SHONENGAVE : «29 
IF (A488xX,GT,U,) OXSAVEB4HSX wB29 
FORMATC/ 7/51 2H #),95H HARNTNG © ILLEGAL DNATA TN RE SERRE? (CPLOTA6) WHE? 
* 06H © NNS6620,15+5( 2 4)) ; wB29 
wH29 

DETERAINE EXPONENT MF 2x a wA29 
al. = ALOGLOCABSK) me 2 Ase A ; wh29 
TEXP = AL ; . wR2Q 
TF CA4SX,LT.1,) TEXPSTEXKP #1 a0 ; whed 
AL s OX Ne < wR29 
wAag 

SET AHSX RETHEEN 4 AND $f wRe9 
AASX = ABSX/1LO, ex TEXP wAR29D 
; wBR2Q 

COMPARE 4TTH + LOCATE ACCEPTABLE SCALE wR29 
ON BO Tat,XSCL : og wH29 
IF (ABSX,LE.XSCL(I)) GO TO 8S : wA29 
CONTINUE : wRed 
I 3s vStl wH2g 
ABSxX = YSCLC(I) : : ah29 
NPPINT = NPROTY / wR2Q 
wi29 

RETURN SCALEN VaLueSs wR2Q 
DX S SIGNCASSX, OK) a1O we TE uP wR29 
TF (TOR, GTO) wRITE(C6O,12) OX, TE XPeNPRINT, IT, At 4B29 
FUERMAT( 234 PLOUTAG @ DEBIG PRINT ep 4H DXeUUTS,G12.55,7N TEXPS,I5, wA2Q 
* BH NORINTS, PU, Fore TS, 7H Nxel8,612,5) wReg 
RETURN wh2Q 
erD . whe9 


9 
19 
Vwi 
12 
15 


1s 
16 
17 
14 
1? 
an 
21 
22 
23 
2u 
as 
2b 
e7 
2a 


30 
31 
be 
$$ 
ga 
$8 
36 
3? 
38 
39 
un 
Gt 
4a 
43 
wa 


dh 
a? 
43 
ug 
50 
51 
S2 


Sa 
55 
56 
57 
538 


ot 
61 
62 
63 
64 


46 


Sur 


ROUTINE PLOTA? (LISEsths LUPT) 


PRT) 


C paw e ewe wee eee eet SSE O ett eet OBE E BO OHS ew weT eet enaseeatamaeeestenasesse yi) 


Sur 


Pu 


cat 


AANMARANOAANRNAANDADAGBAANAANKRANAN 


NT 


NANAANANRAAA AA 


TNT 


Nar 
CIRM RAT 
SY“ 
ae | 
c 
Cc SET Ye 
TF 
LIN 
LIn 
IF 
C. 
GC tNidrta 
4 
70 L ts 
, 1S 
TF 
‘ OS 
89O LIS 
(yi 
94 u!. 
. Qe 
_¢ 
c ritvya 
~ 200 aq 
aig ttn 


YF 


ROUTINE PLOTAT 


POSE : 
ROUTISR TO TNITPALTZE & ROw OF PLOTTED niireut, 


THE ARRAY LINE 


IS INTTSALTZED altm THE RUPNER AND wITh ye ANN VeAxtS, 


LING FORMAT 


RUUNPARY AR AXTS 


Call PLATA? CLINE SL TOPT) 
PARAMETERS 
aMe TYPE [yess OM OESCRIE Tras 
LINE I ‘) NONE VECTOR CONTAINING LINE OF OQuTPuUT, 
L I t NONE Late Rw OF. OUTPUT . 
Inept 1 1 NONE OPTIONS TOPTSL, INITIALIZE LINE 48 


TOPTS2, INTVIALIZE LINE AS BLANK 


AUTHOG a -s 
JOSEPM MULLE™® JRo, NIELSEN ENGINFERING + RESEARCH, INC, 


OATEDS DECENHER, 1976 


ES 
CALLED GY ARPLOT, PLOTAL, PLIUTA2, + PLOTVA 


ak bu 
v830 
+830 
an $y 
wA$O 
R40 
wR 5A 
anton 
WAZ) 
wh 50 
wa SD 
whSQ 
w339 
#930 
WRSO 
wA30 
W339 
wA59 
#850 
wh 30 
wBS0 
aB30 
wS330 
wB3O0 
wA3O0 


wASC. 


wk $0 


THE MATA VAQTARLES DASH, SLASHs SLANK, -ANQ SLASH DETERMINE THE WRSO 
CHARACTERS whICH MAKE UP THE PLOT ANARNER AND TICK “ARKS, 
THIS TS THE ONLY STATEMENT WEQUIRER TO CHANGE THESE CHARACTER 


REPRESENTATIONS, 


EGER DASH, SLASH, SL AMK, SLASHISSYMyL INF (193) 


& NASH, SLASHs BLAMK,SLASHI/1 He, INT, 1H ,LAts 
A NASM, SLASMpILAYK,SLASHI SI Hee lH, 1H ,VHT/ 
= SLase : : 
e LliInveget 


SC4L& TICK MARKS 

CMON (Lets v¥PR/2)6EN,0) SYM & DASH 
E(1) s SY 

& CLLINE) & SYM 

CIMPT.EQ,2) GU TI 2ca 


LIZE ROUNDARY WITH X@SCALE TICK “ARKS 
70 SBP d 

F(J) 3 O838x 

= MOOCTORFY,10) 

CTS,L& Oo) TSSlSe10 

AN JSISeL“1,19 

E(J) 3 SLASH 

9) JRTIFEY,LMISNEPR 

E(J) = SLASSI 

wtQe 


LIZe SLANK RON 

21) fs2,usl 

Ect) s myas« 

CLTVYANTS GTAV).LIVECIYAYIS) & SYM 


OOOO OPER SHOT SSS OATS ORS SSE Ss SEAT AAHSOSHSSESS STEHT SASSSSEHLSS HASH TOLETHFSEe 


COMMON SHOLTALS SXPRAMNYPRATYAXISS INAYISe TORE, TOFFY,LLINE 


wR3O 
wAZ0 
wi30 
wA30 
«430 
wA30 
wR30 
aK30 
wi 34 
a830 
#450 
wA3O 
4850 
wHSO 
w830 
WR§A 
«BZ 
aR30 
wA30 


wB39- 


ak g0 
4R50 
«B59 
#830 
wA3) 
#430 


“wi $d 


wh $0 
4933) 
wAS0 
sAZ9 
a83n 
aAgy 


Ve ENF MC wim 


oe we ne 
News Sw 


ee ee oe oe 
OPN NE x 


fj 1 fh MY TU fy fy fy ft ft 
ern FewWNeR > 


39 


LY al 
Ge 


om al tol 
ew 


Wla wn 
now 


wi 
ow 
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RETURN 
END 


SUBROUTINE PLOTAS COR,OVSFMTZLSTOOLENG,INPT) 


C oe 80 60 00 6c 0 e280 8 FOSS FESO TESTER SETEAS OFFENSE C et eneteenesvasaveesaanaunah $i 


wAgO 
wR SO 


~831 


C wRS 
c SUBROUTINE PLOTAS wB31 
c #R31 
c PURPOSE aad 
Cc ROUTINE TO SELECT SCALES. ANA RUINED MAX OND MIN VALUES TO #831 
C ACCEPTAHLE VALUES, aANi? LOCATE X* AND YeaXkkS, wB31 
Cc aR 
Cc wR St 
Cc CéLLING FORMAT wR3} 
C CALL PLUTAB (COX,DY, FMT ,L*IOs, LENG, IOPT) aB31 
c 4S 
c PARAMETERS : wASY 
Cc NAME TYPE 1/0/48 IN NESCRIPTION aR3i 
c . : wA3) 
C x I Tso MONE x DATA TMCREMENT (OUTPUT) Ans 
c fy I 176 BONE YY DATA INCREMENT (OQUTPHT) wA3t 
Cc Fey i] To (6) OAJECT TINk FORMAT FOR PRINTING aR31 
c XKeAXITS SCALES, © wh $1 
c Lawfo I 1 NONE «ISTH OF PLOT CNN, OF CHARACTERS) «AS? 
C (ENG I I MONE LENGTH OF PLOT (sO, OF CHARACTERS) «RS 
c TOT I T LONE OPTION FOR TYPE MF PAGE SCALING wih 3{ 
C ty USER SPECIFIES SCoLE LIMITS wRSt 
Cc 20 INTERNAL AUTOMATIC BEST SCALING wA3t 
c 3, AUTOMATIC TRUE SHAPE SCALING, USES#HS! 
C MATIO’ O,6eLWID/LENG & XDIFF/YDOIFEWHS1 
c te USE BMAX ANN MIN VALUES OF DOTA wRS1 
c Se I! Put xMax,¥MING AUT) VeSCALING aB3t 
Cc 6p INPUT YMAX,YMING AUTO XeSCALING wRSt 
Cc waASt 
c EXTEQNAL REFERENCES «BS! 
C PLATA SUARQUTINESS PLOTAS, PLOTA6 WHS 
Cc «3a3t 
Cc AUTHOR wAS) 
c JOSEPH MULLEN JRe» NIELSEN ENGINEERING # RESEARCH, INC, wA3Y 
c DATED) DECEMBER, 1976 aBS\ 
c wAS1 
C NOTES w3t 
c 1, SQNPUCES SCALING CONSISTENT whTH ARPENT, PLOTAL, PLUTA2, ANDWH31 
C PLUTV2, VALUES COYPUTED KESTPES Tht ARGUEMENT LIST AWE XMAX, AAS) 
Cc XMTMN» YHA, YAMIN NEO D NYP i, UMAXTSs IVAXTSs [QFE X IOFEY, 4nD PMT, wH3l 
Cc CALLED KY ARPLITs PLOTAL, PLOTAQ. # PLOTVA, wRA31 
C aBht 
¢ 2, THE PATA VARTABLE #RATID® TN THIS ROUTINE SETS THE CHARACTER AMS! 
Cc SIZE alOTHeTNerE(GHT QATIN FOR TRIF CHAPE SCALING, 10 CHANGE «R34 
Cc SET eRaTiOw EQUAL TH NO, OF CHAWACTERS/INCH DDN PAGE DIVINED whS3t 
Cc By “Tl, CF CHARSCTERS /SINCH ACROSS PAGE, aS 
Cc wASY 
C ww 608 ew 80 8 eee O66 FEN SBR e eT OE SCE EHT BOWES eeeTenawaseresseseccessesceseenh}{ 
DIME NWSTOR ENTCaeBVICGT, TEXP CG eNPR(UVEMT (GH) PMT (COT) «RB 
CUMMAN S60 TALS NXON gt VPRATYAXISe IKAXIS, TUFFY, IAFF Y,LLISE aK31 
COMMON SRSESLES MMAR 4s VOR VSI N wA3} 
Coen /O8iGA 4 TPR : aS 

c ’ aASt 
DATA FMTx/s UHC eOr(uk eHH( 7K eGH(4x ,dHI9X eUHC LOK GCE 1K GHEY AKAs] 

nts $f 


* Pe SHOL GY GACP OMG OCI GN UEP AXe CCI Z KL, GNC LAN, GH( 19K, GK (20K 


oa 
6S 


~ 
POIAANFSFCKWN = 





2 POH CPL OAC PER UH( PSM SUM( AEX, UHC ASX, UNCAnK, UMC ATX, UME ORK 


* oe UHC AEX Par (ZUM, am( ELK 
NATA QNH,4ALE/O,0001,9,509)/ 

C DEFINE RATION CE PRINTED CHAHACTER AID THe INeHEIGHT - 
MATA RATININ bs 


Cc 
C - TEST FMR ILLEGAL wIDTH AD LENGTH 
C . 
TR CLENG.LT.2) LENGS44 
IF CL' tO ST.100) Lalostoo 
TF CLsTe tT.) L»l0s100 
LLISE =& LelDO3 
C 


CC AgRiG PATA CHECK OF INSUT 
Tk CTPS,LT,9) YPR=A 


wH31 
wASS 
wR 
wWREY 
wR3t 
“B31 
«B3t 
ans 
“B34 
wRS1 
wR 
ABS 
wR31 
wR'S) 
wASL 


TE CIPR GT.) WRITE (0,19) TOPT,LaIDsLENGSLLINE »XMAK So XMIN, VAAN, YMINWRS I 


. FORMAT(2$H PLOTAG © DEHUG PRINT #674 [9PTS,15,7H 
e TH LENGE, TSe7@ LLINE SSIS, /19%, 7H = xXMAXE,G12,9% 
* TH OKMINS GLA eS p74 YMAME,GIA,3507N YHINGE, 12,5) 


KOLEF 3 XMAxKeKMIN és 
VOTRE 2 vvaxervinla 

OX 2 XCLFF UWI 

Ny gs YATFESLENS 

Ix5a8 2 0 

IYFag 3 9 


HOAICH TM APPRIPRTATE Type (iF SCALIAG REQUESTEN 
34 GE TY (PUN, E56, 200624) ,290, 300) FL IPT 


IPETS1,4, SPECIFY keY SCALE LIMITS 


BwWORWAN|AAN 


ag .xPRQ 8s 2) 
NVYPQ & 10 
tr CABS CRATIiIANY/D KL OV LTO, IL) MYPRS{? 
69 Ti $30 


TNPTS2, COOUTE autOMATIC SCALEO LIMITS 


waan 


$0 COLL PLATAG (OX,TE KPX,NXPO) 
COttl PLUTam (OY, TEP Y,NYPE) 
.¥PQ a 19 : 
6S Ty 310 


c 
C (HP TSS, COMPUTE OYTOMATIC TRIE SHAPE SCALES 
c 
251) nyT(yy s Hy 
PxL(2) 2 EVeRARI 
OXTC3) soe 
NVT(4) s UxsRATIO 


CALL PLITAGCUVICHD, LE XPCI),sPR C11) 
COLL PLE TAS (UXT (C2), LExXP 2) esPN(2)) 
CALL PL ITANC OKT CS), TE XO 5), 4P905)) 
CALL PLOTAn(UYTC4), TE xP lu) PR(n1) 
CHetdd) Ss cvrerpyeharfy 

NYECR)Y S OUTCA]YSRATIN) 

OVTCZ) = CAT CSVATIN 

AeTCU) =F PvICe)#HAT(A 

Das s AMAKTCQRICLY, OXTCA),OXITO3) p ExT Ca)? 
ny APA Tst,u 

TE COMTOTYL TNX) Gi TM 270 

Te CNYTCTISLT, OY) GU TH 270 


Lwins, IS. 


wHS1 
AWS) 
w8$1 
aH34 
wAS1 
wR3t 
wH34 
WHS 
wBS3L 
ARS 
wB34 
wH31 
wA31 
wASt 
WROL 
wASY 
WAY 
ABS 
WARSI 
we3t 
wH3t 
CLES 
wAZt 
«431 
“931 
wAS) 
W931 
WHS 
wR 
aR31 
wBS1 
wh3t 
wASt 
wast 
wAB1 
wA3{ 
wA31 
wh3t 
WAS) 
wast 
ahd 
ws 
a¥S1 
«431 
wA31 
#R3t 
“KSI 


ina 
105 
106 
107 
106 
109 
lio 
11 
112 
1133 
114 
15 
13a 
117 
118 
119 
129 


367 


IF (CDXTCI)D,GT,Ox4) GO TO 270 
Ors s Axt(y) 
T4est = 1 


270.0 CONTTAWE 


468 


Mx a OXICITREST) 

Or sf OYTCIGEST) 

TExPx 2 TExPCTSEST) 

TExPy = LTEXPCIRE ST) , . 
IF (THEST,LE.2) WxPRs26 

IF CTAEST,LE.2) VYPRANPA(TEEST)/2 

TF (YREST,GE,3) NXPRENPR(TUEST) 

TF CIREST,GE.3) NYPHE2 

GO TO 310 


c , . ; 
C ImPTtsS, SPECIFY XeSCALES, 4UTUMATIC YeSCALE SELECTINN 
Cc 
2 


90 NXPR & 20 
CALL PLOTAO(DY,IEXPY,NYPR) 
NYPR 2 10 
GN TA 310 


Cc 
C IMPTsb, SPECIFY YeSCALES, AUTOMATIC YeSCALE SELECTION 
C 
5 


v0 NYPR Bw 10 : 
CALL PLOTAG(OX, LEXPX,NKPR) 
69 Th) 32u 
¢ . 
C RELACATE AND ROUND OFF Y4AX © YMIN 
C v4IN 
$19 TYPAS = TYPAS+et 
fF cyvPpas,G7,1) GO TN 315 
1YPAS 3 1 
YPING B& YMIN@O Sa(NV al ENGOYDIFE) 
CALL PLOTAG CYOIFF,IRxNyNRND) 
CALL PLOTAS (YMINI, TRND.0) 
315. TF CYMER GLE .0,) VYING SOVAPLIOTCIFIACYMINI JDYESIGN(RND, YMINI))) 


C CrECK FOR ZERO AS A POSSIBLE MINIMUM SCALE 
IF CARSCYMIM/NY) LT ed, 25) YHTVIsU, 
TF CVT, GE e040) YMINSAMAXICY¥4INI,9,0) 
IF CYSTIN LI QU,0) YHINaY" IH : 
IF CTYP49,67,2) GU Tr 320 


cls 

c CHECK FOR POSSIBLE LOSS OF LATA 
YYMAXE & YMINODYRLENG ; 
TE CVMAXESLT,YMAX) UVa(VHAAK@oYMIN) /LENG 
TF CYMAXE SLT, Y4AxX) GO TO 256 
YMAX & YMINODYRLENG 

c 

Cc xMIN 

Cc - ‘ 

320 TF Craer,&a,5) Gu Ti! 339 


TXPAS S'IXPASS) - 
IF (2"P4S,6T.1) GI TA $25 
_.TXPAS @ 1 
XMINS & KMIN@O Se(Nxa_wINexulFe) 
CALL PLATA® (XNIFF,TYND,NaND) 
CALL PLUTAS (Xm Lat, THnd. 0) 
325, WING SOMAPLOAT CIE IRC xm TEL /N KOS TSN CAND, XMINED)) 


€ GMECK FOR ZEIQ 4S & POSSISLE MINIMUM SCALE 


TE (AdSSCKNIM/OK)LTQ9,25) KMFN1 E040 


was! 
WAS 
«P31 
aA31 


121 
122 
125 
j24 


“B31 425 


way! 


ASI 
wASt 
aad} 
wad 
wi $1 
WARS) 
aBS1 
wB31 
wH S31 
«B31 


WAS 


wR) 
why 
aR31 
ARS 
aB3i 
aB31 
WAZ 
wAS 
aasi 
a83i 
wROt 
w33i 
WASY 
wWR31 
wASL 
wAS 
an3i 
wA3)4 
wA3t 
wHS3t 
WAS 
wASt 
wHhS) 
wBSt 
aa st 
“B31 
wast 
wB3t 
wAS! 
wH Sy 
wh SL 
Pe | 
WAS) 
wast 
“B31 
wA3t 
af31 
wR $4 
wAS1 
#BS4 
#B31 
ahi 
WAS 
wR31 
wR34 


125 
127 
125 
129 
130 
931 
132 
133 
134 
135 
136 
137 
134 
139 
149 
$44 
142 
143 
144 
145 
146 
147 
143 
149 
150 
194 
152 
153 
$S4 
155 
156 
157 
158 
159 
160 
161 
162 
163 
16a 
165 
fos 
167 
168 
169 
1790 
171 
172 
173 
174 
175 
175 
177 
LTA 
179 
180 
1681 
182 


Bwaaa 


$9 


anna aaa 


aan 


nana 


lo 


‘ode 
299 


TE CENTS GE 8,0) KMD VEAF AKI CKH END OQ) 


IF (X¥ IN GEO 0 GAN, C¥MAX@OKOL aL) LE,0,0) LMINZO,O 


TF CXMEIN LT,0,9) KM iNaxedd 
TF (YePAS,GT,2) GN TH $509 


CMECK FR POSSTHLE LOSS OF (Ata 
AMAXE So MMP MONE apo 
TF CRMANE LT LeAR) Ona xMAweksEN)/LATA 
te CxMAet LT xmeax) GO Tr 25C 
XVAN S KYTNOOKaL aA 


“ESTAHLISH LOCATION CF VeaxIS, IF AMY 


TE CKNTN ALT SIM) LVAXTSSIFIXCABS(KRMINJAXYOHALF) 62 
TR Cxrde gb .9,0) TV4AxXTSso : 


FSTaBL ISH LOCATION CF xXeAxIS, ITF Any 


TE C¥4Te LT UO) (KAXESSIF IY CARSCYMAXK SDV ORND) OF 
TF COVMIN GE CU aC VAR GLE, OLT)) TXAXI320 


COMPUTE YeSCALE OFFSET OF ZERO OR BUTTON OF PLOT 


IF C¥MIN LT ,0,0) ISFEK 3 MODOC TAAXNIS,NYPR) m4 
Te (VHT GE,9,0) TREK & “NOCLESGe VOPR) 


Crepurte ceSCALé OFFSET HE ZERQ OW FIRST LABEL 


re Cxsre tO.) INFFVYstT¥axIS 

TE (AMT GE Ie) LUPE VSYE EX Cox] VSD XOHALF 02 
TUbEY = wT CI ORE Y,NxeR) 

Te CUMEVY LT, 2) ISRF Val IRE Yen ree 

TE COTOPTED IV UR CIMT EG,S)) LOFFVs2 


SeT FORMAT, Fr, FIR CeAxIS 


TEmT = satu S,TCRE VOL) 

FYT(Y) & RMTKCTF4T) 

TE CUXPR ERS) PUTCUVEEKTN(S) 
IF (NsPOQLEN 20) FC (uysh~Tx() 
TE (8 aPE EO, Jo) FUT (Carse4TKCh) 


TE (CTORLE,9) GI TO @a9 


sOTTe (6,12) AMAK GRIN, (US KPO, LUANTS, IQEEX, YAN L SXMINI,TXPAS 
wi TTE CA LU) VAAN SYA INA OV et VERA TVARITS, IQEFY,YUANI GS YMINIGTYPAS 


I& CT IPTEN,3) RITE CH, 1O) OT, TYITDTEXP,NPY, TEST 
oN TTE(CA,1A) FUT 
FURMATC2GM FLOTAK @ KNeSCALES of ?e YMANR,G412,5,7% 


XMINZSGIL2.5e 


* 7H NEBGLS Te IM IKPAS,TIebM THAXTSS,1U,7H IOFF YS, LU, 
* PPA TH XMONDE BLA Fe TH RVTUISeG12,5¢ 74 TYPASESTS) 


FCOMAT(CQ0m PL Tan © YeSCALES ay Tt Yo ane, St2.%e 7m 


YMTNS,G1L2—5¢ 


e TM AVS,Gidedo 7TH NYPOS,IS¢9H TVAXTSE,14,74 TOPE VS, I 4e 
* P2IAN TH VARNES SLA. 50 7m YE TIS eGt2, 5,74 TYOASEL1S5) 


BRMAT(26% OLITAG = JOPTSS wp,6" OxXIS,40612,5, 
* F2°% 9m DYTEPUGVA Se 2K, am LEXPS,4TI2, 

* P20 Am NPATOUTIS, LEK, SHTRESTS, 14) 

CNIVAT (AWM PETG © BNGKAT oe, 7h F4TB,2Ke hau) 
GETIIR® 

[ae 


«R31 
eHSI 
«831 
«R31 
wASL 
~Q34 
wR SY 
aBbS1 
wA31 
«831 
wAS! 
wAS) 
WAZ) 
aR3i 


eA SL 


ae Bi 
WHS 
aR $1 
«A331 
ABS 
wASL 
ARS 
wh3} 
a331 
#31 
aA3i 
“851 
e311 


«B31 


wast 
wh3t 
aasi 
wad4 
wBS! 
wB31 
wAS) 
wid) 
*wRA31 
wRSL 
a $4 
wRS$1 
wA31 
wRSt 
wR 
wA3y 
e451 
aASl 
“431 


A831 


wAS) 
aAdi 
akh31 
#83) 
ar3i 
¥R3) 
wH31 
akK3y 
wh3] 
wAZ 


183 
{4a 
14S 
186 
147 
188 
189 
190 
191 
{92 
493 
194 
195 
195 
197 
194 
199 
2n4 
ent 
ace 
295 
anu 
205 
2th 
eo? 
ana 
299 
219 
eit 
2i2 
213 
ata 
eis 
215 
a1? 
214 


“219 


22% 
eat 
2c2 
223 
2ea 
ees 
226 
227 
228 
229 
239 
2s\ 
232 
235 


“eka 


235 
23e 
237 
238 
259 
249 
ut 


369 


370 


AMANAAANAHN 


on 


aan 


NHAAAAANAAAN 


SUBROUTINE SLOG 


RNUTIME TN PLOT PANEL GENNETRY ABD RUTATE CONFIGURATION FOR 
PERSPECTIVE VIEWING 
DATA STNRAGE (TAPET)?2 j 
1, ARRAY(A000) «© KEING/TAIL CORMER POINTS AND PANEL GEOMETRY 
2, ARRAY(H000) «© ANDY CORWER PHY.7S 


DIMENSIONS APRAY(6000),%(5, 300364154300) ,205,390) 
* eCHORO(69)), SLOPE (H00) - XP (5, S00), YF (5,300) . 
e eNPLT(30%),xXCGCS),ARNTOCSI,LEINEC SION) 


COMMON JIOPTNSZ 12108) oe : 

1 elOe TL eI2e IS Sb IS, JA NWAP,NHAFUR, KFUS»NRANK(U) »MFORK CY) e 

2 eNP,NPOLUR SNF SNE LOR, CAN NC ALOR, JOTEST, UW : 
3 eTZ2C3G),LPRIC5) ¢ Ix ZS¥e 

COMMON /PARAM 74 NBODY,N*ING NTATILSOLAC, THK» XHACH, ALPHA, BET As ALPHAC 
1 +PHIR,REFA, REFS, REFC REFN, REFL,REFX,REFZ 

COMMON /POIST 7 XPOTLENNIGYPT(H00) oe ZPT(C HON), THEY (O00) 
* PMELTACHG0), KC630,20),%C(39e20),20(30, 20), AREACH00),XLE(600) 
COMMON BLOCK (759C) 

COMMON JNE@COMS KE KWAF pK eAFUR, KRADX(U) pKFORK CU) pKEUS » MAK, KU, KS 
1 2 KF (6) KAN (6) KFINAIR (CO) KANOP(6) KOL NCPT,LNCPT(20) -XCPT(20) 
COMMAM /SEG 4 NSEGeROW(20).NCOL (26), COS8(29),SIK8C20) 

1 eHTCA0) Oo MNT(20) -3L (149) 

COMMO® /HSTZE 7 XYPT(4) oT TAPE 


EQUTVALENCE (ARRAY(1),xX°8T(1)) ope 
eo OUCH ALLUCKC1)), CYCE),8L0CK(1501)), (Z01)¢BLNCK 030019) 


e 
* oe CXPOPVSSLACK C4901) 26 CYP C1) e BLOCK (400113 
* ae (CHORICL),SRFACL)Y, CSLOPE CLI OXLE CED) 
‘ff e CXPTCAI,LINE C1) 
CATA XCGeAROT/YRUes 3H0,4, NPLTSS0N8SS 
NATA TOPTENOP LAID GLENG/3,50190,567 
NATE HLIN/3SNN0S/ 
rTaPEsy 
COPY sING PANEL POINTS It 1: (xeY6Z) 
COLL CPUTI*CTIME,OT1) : 
REWING 7 
Pos 0 


IF (K1,EG,9 gAND, KU,ER,O 44ND, X5S,E0,0) GO TO 150 
READ (7) APRAY, CKIRU, SLUPE ; 

ONE st, 

CALL MxMmuT (BH KCOKINGNME XC 3026 bOotS2nt, $0029): 
CALL VKOUT CBM Y¥Oew ING es INE oD VE e 30720, 604132514 30029) 
CALL *XOUT (CBr ZOM4ING UNE» 200 S020, 00,1 Seat, 3Mp20) 


NEF TEE CLOSED CURVE ARGUND BOUNDARY LF PANEL 


POINTS AGE ACCESSED JN THE FOLLOSING URDER 
1 © (Jat ,Kel)4 3 = (Jel,x) 
2.6 (J »kel)s Qe (J ok? 


CURVE 13 NRAWN ITN FOLLUWING PROERS 0€1,2,45351) 


TF (NSEG,EQ.Y) GID Th 150 
Ls ft 

of Jud Nai, SEG 

ud & NANW(N) 

“C 3s "EILON) 


WAZ? 
*B3e 
4aA32 
wah 32 
wh32 
4832 
ah32 
aAR¥2 
4A $2 
Lo Fed 
wh§2 
08352 
aA3o 
wh32 
wh $2 
#832 
aR%e 
4832 
aAd2 
«432 
«R32 
«432 
aR3e 
wR32 
wR32 
wH32 
aR32 
wR SP 
wRhS2 
#8332 
«832 


wA32. 


wH32 
wA32 
wH32 
"B32 
wA32 
anda 
wi332 
ah $2 
wR32 
wh 32 
wh32 
eA32 
wA32 
wB$2 
wh32 
4B32 
viB32 
wR32 
whe 
aA32 
wAh3e2 
wae 
wi 32 
«R32 
wB32 
ah $2 
“B32 
aR'$e 
wit $2 
oH $2 
aR32 


Cc 


c 


120 
130 
149 


Cc 
ia 


Cc 


150 


AANMAAN 


No 130 «s2,*C 


Lett 


<1 2 bel 


PM $26 Jsedene 
Joi os feat 
JP so JFel 


1S¥ CORNER 
¥Ct2JP) 
v¥Ct.JO) 
: ZC1,5P) 
2N0 COPNER 
x€2,J°) 
v(2,J°) 


202,5P) 


_3PD CORNER 


WO3,Je), 


¥C3,9°) 
Z0$,NP) 


4TH CORNER, 


¥(4,JP) 
V(G, IP) 
200,59) 
STH CORNER 
¥(S, IP) 
VOSedP) 
-Z05.JP) 


IF (JP,.GE,390) GO Tu 250 
COMTESb. 
CONTIONE 
CONTINUE 


READ YOY PANEL Data FIR CURMER POINTS (xC,YC,20) 


xCCQabgK™1) 
YOC IM), Km1) 
TCC Imi eked) 


aCOJ,kmt) 
yOCJ2K™"1) 


“2CCI, KE) | 


KES es) 
VOCS, «) 
ZECS pK) 


KCC IML eK) 
YCC S19) 
20 CU ,K) 


e CLOSE. CURVE 


eCC IMD K4D) 
VOC ESL AST) 
2ZCUIMigwmt? 


TF CONFESS. EGO) 6f TO aSe 


_ WEB) (7) AwGAY 


tL #1 


Ten © 2, 
CALL “xCUT (4H 
CALL 4xQuT (4H 
CALL “KOUT (aM 


~CNOY BHAY CHQMER PNITATS INTO CURVES 


OO 240 TFUSSLnEUS 
NC 8 KPADXC(TFUS) 
na @ KENRYCTFUS) 


- 43th 230 Kee@eriC 


L = el 


KM1 a La! 


CO 220 Js2gnx 
JP = JPoi 
IMP os Jaf 


1S? CliQNER 
kO1, 0°) 
YO%, JP) 
Zt, JP) 
250 CORNER 
x¥(2, JP) 
¥(2,JP) 
Zl2e5°) 


ACCUM KML) 
YCCIML pa) 
ZCI teknt) 


xCCSekME) 
vCCJ oat) 
ZOOS ent) 


KC @AiIV, TWO, X04 3962066001 3201430220) 
YOSBUIDV Ge THM le SV p20 O00 1 32nt ye 80,20) 
ZCOPRONV, TH, ZO 4 3p AO ON, 132615 39029) 


argo 
wR 32 
wr 32 
aR32 
wA32 


aR32 


aR32 
WAS? 
aR3?2 
wA32 
wAS? 
wA 52 
“R32 
S352 
wh 52 
wRAZ2 
was2 
wRS2 
KB32 
«R52 
was 
w832 
wb 
«AS? 
wi $e 


wA32 


4832: 


“R32 


- wH32 


wR32 
“432 
a $2 


enevaavaveeveunzavne nto 


wRb2p 
“832 
wR32 
wide 
aR32 
“832 
“H32 
wR 32 
sBS2 
«B32 
wA32 
wA32 
4A32 
«ASQ 
eRZO 
W432 
wh32 
“832 
wAS2 
aHn3e 
wAS2 
«832 
aB3e2 
wAS2 
«A352 
AR3Z2 
4A $2 
#A32 
WAS! 
wA32 


64 
oS 
bA 
o7 
fos) 
69 
7A 
7A 
72 
rs 
14 
7S 


77 
78 
79 
By) 
Bl 
42 
83 
au 
AS 


47 
aA 
49 
qn 
91 
92 
ag 
94 
95 


97 

QA 

99° 
190 
191 
102 
103 
104 
105 
106 
107 
108 
109 
110 
ttt 
$12 
113 
{ia 
115 
114 
117 
114 
119 
120 
t2\ 
122 
123 
124 
125 
126 


371 


372 


220 
230 


BRO CtRNER 


«O3,5%) & KCOS,K) 

YOS$,IP) = YC(S2K) 

703eUP) 2 2009,%) 
OTH CORNER 

MOQ, 3P) s XCCIMIZK) 

Y¥(U,JP) = YMC I41,K) 

ZOG,JP) & ZECIM1,K) 


STH CORNER «© CLOSE CUaVE 


KOSeSP) & 1CCSM1AKM1) 
¥(CS5,5P) = YCCJMI,KM1) 
ZOSeUP) = 2EC IMI eK) 


VF (JP.GE,$00) GUO Tu aso 
CONTINUE . 
CONTI UE 


240 Chiat Puue 


Cc 
c 


wAsa 
4832 
«832 
whde 
wR $2 
wugp 
wRS2 
wA32 
wA32 
aR$2 
anya 
wR32 
KAS! 
wh'$2 
whe 
wB32 
wB32 


PLAT PERSPECTIVE VIEWS OF PANEL GEOMETRY Seat nenwneeevocoresunsoseswaanl32 


250 CONTINUE 


C 
Cc 


aan AaAQ 


aan 


IF (J°,.LE,.0) Go fu 99a 


TOP VIttw 
CALL PLOTV2CK Ve TOPT NPL Ee NDP, JPeL MID LENG ,LINE sNLIN} 


“RITE CO,19) 
CALL PLUTI CKe Ve TOPT, NEL TT. aOR, JPo le lp 2hxwsQHVe) 


SIOE VIE. 
CALL CLOTV2CKs Ze IGPT, NPL INUP, SP ele lD, LENG LINES NLIK) 


mRITECOe11) 
CALL PLOTE CXpZeIGPTNPLT NOP, IPod ele 2HXey2H7Z 4) 


FRONT VIE« 
CALL PLOTVAC Ys ZelLUPT, se PLT» VORP, JPeLHIC,LENG LINE SNLI*) 
sQ{TE(4,12) 
CALL PLUTI C¥eZeLQPT, SPL TsNOO, SPolet,2H¥ ep AQh7e) 


PERSPECTIVE VIEW 


AWOT(2) B US, 
AGCT($) 3 04S, : 
CALL PLITASCKe te ZoNPL Tg ilPg JO AKIT s XOGsxXO YP 2S 


CALL PLOTV2(XP,YP, IOPT ,NPLT,NDP,JP,LWID, LENG, LINE, NLIN) 


CALL PLUTY (2P, YP, UIPT, IPL Ts HDPs JP, ict, Sates cauvRa) 
wPTTh (6,13) ARNT 

CALL CPUTTIMCTIME SIAL) 

~RITE(C 6,15) TIMESGT 

FORMAT S260 ,2aCHTOP Vigw = v8 xX) 

FORMATEsANxX,2ONSIDE vIE~ © ZvS KY 
FORMATO S20 ,eOHFRONE vVIEw © 2 VS Y ?) 

FORMAT(S20X¢ LOHPERSPECTIVE VIEW © 
* oe THTHE TAXS SEALS, 5K, THTHETAYS bg 3e5X,7HTHETAZE FA, 3) 
FORMAT(/10K,18HEND PLITG » TI¥ES oF10,$,5X,3NDTS,F(9,3) 


999 BE TIQN 


ENO 


QUHRIVITINE PLOTV2 Cag Vy LUPTe NP, OP oe SC eLATO LENG LINES ALIN 


wi $2 
«R32 
WR32 
«832 
ase 
wR32 
«A32 
“K32 
«Hh $2 
«442 
wR32 
wH32 
wB3? 
w9s2Q 
#A32 
«8 $2 
wA3Z2 
aBS2 
wA32 
wAS2 
wR32 
«ASe2 


te7 
128 
129 
130 
131 
t3e2 
133 
134 
155 
156 
137 
138 
139 
140 
14i 
{a2 
143 
14a 
185 
146 
147 
148 
149 
159 
151 
152 
153 
194 
1$5 
156 
157 
15A 
159 
160° 
161 
162 
163 


164 


16S 
Los 


Added 


aK SP 
wA3o 
wh $2 
0B $2 
wa Se 
wR3Q 
wh32 
wR32 
whe 
4452 
wA $e 
wA32 
«B32 


#A3Z3 


Chenncnencennwecn ect enecencece ne nnnnemstsenennenccancnencnnwenansmeeeeand ss 


“¢ 


c 
c 


FtaRNUeT Ie SLOWVE 


WA33 
WAZs 
wa 53 


167 
168 
169 
1709 
174 
172 
173 
17a 
175 
176 
177 
178 
479 


Few N 


DEMEMST OS UCDO OCD VOOR NCD AESITY ICD) POMC) EMT (CE) 


ae 


eA $3 


Cc PURPIISE 
C ROUTINE TO GESERATE A CHARSCTER PLAT OF NC SIMiILTAMNENUS wh33 
Cc Curves t+ vy WS xX, A LINEAR [NTERPOLATION JS “ANE KETWEEN wad 
Cc SPOUENTIAL OUTNTS, ard 
Cc HRZ3 
C aAkgs 
Cc CALLING enRAT «R33 
€ CALL PLAT V2] CXsVeTQPTNP,NGP UC PLWTO,LENG LINE SLT) ae 
c wAS 
c PARAMETERS eo 
Cc AME TyP—E I/0/8 OI OESCRIPTTOA” vias 
Co «BSS 
¢ Xe 8 Tl (DP,NC) GORERISATE #¢ ARSCISSA ARRAYS WA3ZS 
¢ [PT I 1 NIQUE OPTION FAR TYPR mF PAGE SCALING — wA33 
c 1, USER SPECIFIES SCALE LIMITS wR3B 
c 2, ENTERNAL AUTOMATIC REST SCALING aH33 
Cc 3, AUTOMATIC TRUE SHAPE SCALI"G, USESWR33 
Cc RATIOS OfbeLeTOSLENG = XOTFE/YOTFEWR SS 
C Bs, USE “AX AND MT" VALLES MF DATA wA33 
c S, [TePot xXMax,¥mMEnt AUTO YeSCALING wR§3 
C' . by INPUT YMAX,YMING AUTO X@SCALING 4A33 
c NP I bf NONE VECTOR GF NUMRER OF POINTS IN JeTH wH33 
Cc CUPVE aRSS 
C NDP 1 i NONE FIRST PIMENSION OF ARRAYS #X,Ye IN 1B33 
Cc “CALLING POUTING WR 
C NC I 1 NUNE NUMBER OF SIMUL TANFOUS PLOTS, #385 
C TF NC%Z41, CHARACTER SET HEPEATS, wA33 
C Lele 1 I “NOME WIDTH UF PLOTTED GEGIGNS AT 10 _— WH SS 
€:3 CHARACTERS/INCH, NORMALLYS109, wA3s 
¢ FUR CRT OR TSI, TRAMINALSSSO, WRSZ 
c. MAXIMUM ATMENSTIOUED & 100, aR3S 
Cc LENG I I MONE NUMHER OF LINES IN PLOTTED REGION wAS3 
Cc" NURMALLYS5O AT & LINES/SINCNS wh33 
Cc ; FUR A,5" PAPERzuQ, wASS 
Cc LINE I S (LINE) 3CPATCH MaTRYX USED IN PLOTTING wR3S 
& CHSRACTEPS, 4HERES 4333 
C CLeTUF3 LE SNLIN LES CI WIN} S)CLENGSI) 933 
C MLIN I t NONE DIXENSTONEN LENGTH OF SCRATCH ARRAY WH3S 
C " #LTvia, VALUES GREATER THAN (LHID+3)wH33 
c OMY [4PROVE TRE ERFICTESCY WF THe wR33 
Cc PLUT ALGARTTHM wn 38 
c 4633 
Cc : aBh3S 
c HSER SUPELTED COMMON ALOCKS 438 
im TPT ateSeGy SASCALES XMAXLXOIN, MAY, YMTN wR33 
C aB33 
c COMeOM sHSCALES 4ABS 
Cc. NOME tYPE L/9/9 NPI CESCHIP TION ek 
C 4833 
c xray i] tsa “time MAYIMUY ¥ SCALE VALUE ACROSS PAGE 4B43 
C KATA R- rs SUSE MI™TSum © SEALE VALUE ACRUSS PAGE wh $3 
is vyvay a Ts NE MAXIMUM Y SCALE VALUE AT ThP «iF PAGE «35 
C yYeMtn R Tse SANE MIS TMU ¥ SCALE VALUE DQYN PAGE sh 3S 
C : wh $4 
Cc EXTEOUAL WEFERFACES wRS3 
Cc PLOTA SumROUTINE SS PLATAT, PLOTAR “RY 3 
Cc wR3G§ 
Cc AITHAG ARAB 
Cc AASEPM -LLES JSR ae UEELSEN EIGINERRING © RESEAYCH, INC, 4A S38 
c JATE DE RECKMHEN, 1075 wh $$ 
c «RBS 
t 


Oe Fe OOOO we 6 2820S MOO BEBE SORAE SCOT ESTO Pegs een ee seseSZeasstsassevasensentss 


wkSS 


TY TEGER S¥PMOL (UCD LINE Crt) a434 69 


Cremri ZADL TALS NROR, VOPR, TAXIS S TRANTS, IOFFER, LOPE Y SLL INE aX$3 tad) 
COMMON AASCALES RMON MIN, VO aa gre A on33 = O71 

c 4B$8 72 
DATA FHT Zam (CTX sh gGt asd u,o,U4( Or, 4HGlb,,ukuy) / aAZY 73 

Nata SV BW SIM ee Leo dmc thy pL ROUND eA LHS, IR, INS, thos IH? aH34 tu 

Pe to) Pe ec ee ol eA le el Pe ok ee Ol 2 ere a wMOS 75 
SLANT, preP yg LID, bmre,tiS, Imlay tals lev, tHe, Ine, tiv, 17s aA$3 TAs 

C : : »K&33 #77 
CO FIND MAK ave FIN AF & (CORNINATE) aND V (4ASCISSa) eAgZs 7A 
c : *AS$$ 79 
“PJ 5 wH3S$ ay 

TF Crew LT.1) OPTS! wASS BI 

c “A344 2 
TF CT20T FG.1) GO Td ay AH3$ 33 

YF (POPTLER.S) GO Te Aa *R335 AG 

X“*AX BS ¥(1,1) “RSS BS 

KMIN 2 X(1,5) a®335 Ba 

WO So Jeyecd «333 «a7 

“PS s APCS) : ASS AA 

Te CvPyoet.t) Gd Tod So “833 Bq 

PO wn Tsp,sPs ; : a835 90 

MUA S AMAKECK (Te J) e MMA) wAZZ 94 

ay XPTN @ AMTVECKCL ed eK PN) “833 92 
50 CONT TS Ge ~4$3 Of 
Te CTOPT ER. O) GE TU AO wA3$ 9a 

c 5 835° 9S 
69 yvAn 3 ¥(121) ‘ “n$3) 9G 
Y°IN @ V(te!) wAZ3Z 97 

90 70 gater€ : , eiSS 98 

“PJ mw bt) sh335°0 99 

TF (vO T,t) Gti TH) 76 a433 109 

“oS yer, Ol 7 wR¥S 101 

- Yar FE AMAXECY(] pSV evar) © = #A33 102 

6S Veta = AMTNECV(T eS) eo rvtN) : ; wRH33 103 
749 CONTINUE : wASN LAG 
Cc ; «R33 105 
Cc JETEOMTME SCALING AD Sun CRP 4Ax AND MEP Vat YES AND LECATE «ASB 106 
C Xe At voaxtS, “433 107 
c . : 4AS3 108 
40 CAEL PEANTAR(OK UVF AT Leh pL EVG, IPT) #9$3$ 199 
NWS @ LENHOI «A333 110 

ROG Ss wAROCTLIN/LLT bel) «435 111 

TE CHAL GTS IWS) VOL SE POAS “ASS H42 

Cc wH35 115 
C LS ETIACTZE OLCTTING BANDSITOTHR *A33 118 
c eH S$ 115 
YLOe go yuaxe(O SenDL eDY aR33 Jdo 

vyTo a Yerax ; 4AS3 117 

VIR gs vNAXOU. Sony “K33 918 

c wASS 149 
C FARS UPOER ROUVDARY . #4335129 
Cc ; #833 121 
; CALE OpuTary CLT Ee ted) «453 122 
seEth (aed) CLINECT YS Teteucl’-€) «B33 123 

Cc : e453 124 
C STaet [N18 AN CUYPUTING ALL LISES TeaT FASS THanquGs \E¥YT SCL LIVES 6338 925 
c aR$3 120 
SRE we MANE SSNOL #4335 127 

TE CHALMANUL SLT 9 N91 *SY SALA SNAL KO) . sAS3D 128 
Save gos aA$8 129 

: YO FRM Jep asi ,rars WBE YZ 
C : : s3255 0351 


374 


C [AITIALIZE ALANK Ww 12 xeaXTS 

¢ 
Joa JSavet 
Je 8 1 
bon) 940 Kat, YOL 
Jos Jel 
Te CS,GT ShAS) 6N TO 115 
TE CSE, TKAKTS) Carty PLUTAT (CLINE (JK), JeIOFF XSL) 
TF (CJME,TXAKIS) CALL PLOTA?T (LINE(CISK),Je1OFFX,2) 

Te ss Meet INE 
19 CONTINGE 


i 
C 
C TEST FAR VECTUR DRAw*s ACROSS NEXT NUL LINES MF nuTeUT 
ce 
1 


15 NG tal Leyend 
LS¥N 3s MUOCLeL dO)el 
NPL 3 NPL 
Te 6s eT.!) GO TO 140 
X¥2 3 x(1.L) 
y2 s Y(1,1.) 


STant COUP ON SUMRE? UF VECTORS YN EACH LINE 


aan 


A 1$0 wate” PL 
x1 x2 

yi v2 

Ye «(*K,L) 

v2 YOK,LY 


TEST ade THR VECTOR CROSSES ALACKA CF LINES 


aan 


TE (CVI GE YUP SAN, (Y2,GF,VIPI) GO TN 193A 
TE COVE Te YLEW) AND, CVA LT, YEN) GH TH 130 


CWwWePUTFE Te TERMEOTATE PINTS ANN STOR Th LINE, 


aaa 


DELK = X@exl 

HELY & Voevh 

TOM @ TFTYCARS(DELX/DX)) 
TOY £ TETXCAHS(CTEL Y/NY)) 
wV S MARU CTOX,TUYV) ol 
MELX = GeLAsNY 

NOELY &3 AELYSNV 

“wy BB ONVed 

sVia xX 
vv s Yt 


HO YAS TValanv 
Tx es TEU CX vVexsI™)/0KO0, 5942 
TY 2 IFIVCCYUBSYV) J0Y61,) 
Th CCTV TALIA CTY, a "PLY) GY TO 120 
IF COTYLT ed ettRy (TA, ESLLIKE)) 64 TO {an 
Tsé¥ 8 LLESESCIVOLELE. 
Lee erevy = S¥¥HUL (LOY) 
129 ¥V BS CVeneL a 
VV fw YVSOUDELY 
123 COMP Les 
130 CONTI NHE 
149 Col ye 
C 
C PRTHT SAL LINES CF LUTRPYT © Cink FUR SCALES 
c 
1s JSAVE 


2A 33 
wR355S 
wBS$3 
«833 
R58 
wAS4 
wRS3 
wR3D 
“BSS 
aR $$ 
“BS 
aB¥Y 
#433 
«A833 
wRSS 
~83$ 
ASS 
ASS 
wA33 
wASy 
+8353 
wAZY 
wh $3 
# AZZ 
4833 
“433 
wh33 
wh SS 
aR3Z3 
0B33 
«333 
wWA33 
NBSS 
wRBB 
aBSS 
wR3B 
WRSS 
¥R33 
#833 
wAZS 
wh $$ 
W933 
#833 
wh $3 
wASS 
wASY 
wH S$ 
wh $3 
a8s§ 
“B33 
ASS 
#53 
03 $3 
eS } 
wRZY 
wid 
WAS 
aR33 
wA33 
aA35 
wR 33 
ARS3 
a435 


132 
133 
134 
145 
156 
137 
$38 
149 
144 
tat 
142 
145 
au 
14S 
146 
147 
144 
149 
159 
151 
1$2 
153 
153 
155 
154 
157 
158 
159 
164 
161 
162 
163 
164 
145 - 
164 
167 
168 
169 
179 
171 
172 
173 
17a 
175 
176 
177 
174 
179 
180 
1Aat 
182 
$H§ 
tua 
185 
184 
147 
1498 
189 
199 
191 
192 
195 
194 


375 


we sol 

Jk2 2 LLTNE 

Oo ySd Ket. Ge 

J o2 Jel 

Th (3.67, RIWS) GO TT) teu 
VOD s&s MON(Je( MFR XeL, VYPR) 


TE CT FU) ARITE (Coe2) Y4IOS(LINECT I, IZIK, KA} 
TP CTH Ne) wRITE (ood) CLIVE CI) I sda, J«2) 


Ios Jee rk 
J<2 3 IKP+LL INE 


Cc Name 
C  TNCREMENT YeSTRIP: REMERTANE YEO anv Yip 
C 


YUP 3s ypedyY 
y"—n sas YA Dehy 
TF CARSCY“ED/DY).LT.0,001) YaTv3s0,0 
YLO* s YLORSOY 
150 CONTINUE 


, ISAVE 8 J 
- 160 CENT TRE 
c 
“¢ FORM LOWE ROUNDARY 
c ; 
CALL PLATAT CLINE so tol) 
eM ETE (6,3) CLEVE CLI, TSL LLIMF) 
c 
C PINT SCALES 
c 


AAMANHANANAAA 


376 


MEP S (LLINE@INFFYISNYPR ES 
KORINTCL) 3 XMIN@OK MC TIF RV Oe2) 
Nor 249 Tsa,sxe 

OM INTOD) 2 KPRLUTOC Let pox anyPR 


TE (CARSCHPPINTCT ZOE) LT, O91) MPRINTO(TIS0,0 


2uo CUNT YUSUF 
NATTECOOFMT) CXORINTCT) sat, nuh) 


RETURN 
{ FORMAT C1MY,2UxK, 20541) 
2 FIRMAT Cids GL 3S G,lxe1O3A1) 
$ Fiteaa th C15x,10541) 

ENN . 


wRS3 
a9 $3 
6 AZZ 
wAS3 
wASY 
wHSS 
wR33 
WH33 
wH3S 
aH33 
wHhS§ 
aHh33 
ARS 
~KSS 
WAY 
AR SS 
wHS3 
wA33 
0855 
aB35 
wd33 
wB3$ 
wA33 
wh3S 
ARS 
wR33 
wAh33 
WASS 
«943% 
* 834 
wh 5S 
ah33 
wR33 
wA33 
wRS83 
wB3S 
wASS 
aBSS 
wess 
aB33 


SUIAROUTINE PRESS(NPs KMACHs SRA gis Vere CPP,CPSTAGSCPCRIT Ss CPVAC »COMPT) WA3U 


BNUSCARY COMOLTI OW GPTLON, IN TRESE CASES, THE 


TS LIMITED BY THE vaCue PRESSURE CUEFFRICTENT, 


COEFFICIENT, av VACUUM PRESSURE COEFFICIENT, 


COMHON /DAGA4 / NANDY,UKING SNTATL (LEC, THK, AMAL H,ALPMA,RBE TAs ALPHAC 


1 ePHIR, SEFA,REFA, REEC WEEN, PEFL REE Y, OEFZ 
ALIVENSTON HCLI,VCL Ie" C1),CHPCS) 

T? TEGES Cer 

LOGICAL LARC 


THE PRESSE CUEFFICI€F VT 1S CALCULATED UST'G THE EXACT ISENTRIPIC 
FOOMULA [XS ALL CASES EXCHOT FU vIt, CANARD CHORTZUNTAL TAIL), 
And FIN (VERTICAL TAIL) COMPONENTS ANALYZED. UNDER THE PLANAR 


(TNEARIZEN THEORY 


POESSHGE COEFFICIENT FURMULa [8 USED AND THE PRESSURE CHEFFICIENT 


COMPUTE THE STAG VATI(iv PRESSURE COEFFICIENT, CRITICAL PRESSURE 


wA3G 
wk $a 
aha 
wA34 
wA3u 
aga 
aB3a 
wea 
aRba 
wh3y 
»A34 
akKSa 
wR3a 
wit3a 
ah$u 
re R34 


195 
194 
197 
1949 
199 
200 
2ot 
202 
20s 
2048 
20s 
ene 
207 
205 
209 
aya 
ett 
212 
213 
214 
21s 
214 
eT 
218 
21g 
P29 
2et 
2e2 
223 
2240 
225 
226 
ae7 
2eR 
229 
230 
asi 
232 
233 
e234 


OENFICWUN& 


AAaa 


XM QBXMACHAXY ACH aR $a 
CHCRITsh, «B34 
cPSsTaGst, wR $a 
cPvacso, aA$a 
CISARAECNS (ANA) wAS$G 
SISARASSINGARAY wK3G 

TR (442,F9,9,) GU TO 10 wA3o 
CONBL, 42857 /242- vA $a 
CPvacs=CaNn wA34a 
CONS, 20042 wR Sn 

ct wh $d 
CLAD THROIGH NPePANELS Ti CALCUALTE PRESSUQSE CNEFFICTENTS svaccenenowh $4 
c F 7 S wR34 
19 nO 4QO Jar,rP wh $d 
“UaPMauC I) eCOSAHASA( ST) eSINARA ahSG 

TE (LBC ANNO COMPT EGF) Ge To 26 WH $a 
UaleOel,euwee : wH34G 
vatunavegs) wih3a 
wWINDSvC J) WCOSARASCHC J HSTVARA wi $a 
VA2EVWIND eV TN eaw Naw [dD wR3G 
N2GUWIND RUB INDeVa2 wHSO 

TF (XMACHLEQ,0,) GA TN 30 wi34 

AnGBL CNN all en2) wH34 

TE CARG LT,C.) ARGRO, wA3G 

CPP CJISCONACARGRAS Sol.) wASa 

; GI TM 40 wA34 
20 CPPCJ)Se2,eU( J) “834 
C3 wR3a 
Cy CONGTROIS THE PRFQGSURE COEFFICIENT SO THat IT ANNES NOT Wad 
C FXCEEI THE VACUUM PRESSHQE COEFFICIENT wi 3a 
¢ wAR3a 
TF (CPPCJV,LTeCEVAC) COP(S)BCPVAC wHSd 

BN ™ 40 wR3a 

30 CPP J)S1, 82 wH3U 
40 CONTINUE WRG 
: TF (x“ACK,E9,0,) RETUON B34 
CPOSTAGSCHMNA(C (1, COND) we, Set.) wASG 
CPERITACON#( (5S, SO,eXMP/ by) ems, 5016) NBSY 
RETURN asa 

Ban «Ada 
SURRWUTINF PRTCPT(NHMNY) #335 

: : ; j wA35 

ROUTINE Tr PRINT A COPY OF TRE CONTROL POINTS AFT AF aVSTARTS W935 
An FORWARD OF aXvLEe ON TAPEY FOR USF BY OTHER PROGRAMS . " WASS 

; 4 W835 
Coma ZITNSZ LZ1059).NVLIN “835 

e eNCOMUT,KASTART SX “LE NUCPT,TPLUTCG),IPRT(S),1XZSY" wR35 
COMMING SOVPET SF KOT CHNN)D,VET-CHOO s ZOT(HNOd,THET(COU0Y,DELTAC600), HSS 

1 KE CSG 620) 6 YC(30,203,20039,20) VELTI (600), xXLE(600) “B35 

: wH35 

IF (4mCOT NEO) GY TO 999 AK35 

TS CAVLIN,GT.U) GM TT 999 #R55° 
WRITE (6, 7S5U) wA35 

Bea TA 4 aR35 

Joa 4 #435 

OM FOU Tey, 89pY aAass 

TF CKPTCT) LT xSTSRPT) Gu TY 100 wAd35 


2 $i 


— oe re ‘ 
Ver OOBDN FTV CwWN- 


13 


378 


190 


999 
730 


74u5 


NAaANM 


fm) 


an 


a ANAND 


196 


AANA 


420 


999 


IF (xXPTCE) GT, xsL—E) Go fT 160 

IJ 3 J+! 

ORITFECS,7S5Y TyexPOT(Ty, YOTCL),Z9T(1) 
“RITE C6,7495) Tye XPTCLyevPT(I>,2°7C1) 
CONTINUE 

ES OFTLE 4 

TF (NCPPUT,E2.2) STEP Soo 

RETURN 


FORMATCYHL, IX, G2HSUNNAWY OF CONTROL PHINTS eRITTEN MN TAPES 
* eS3X ef 2hae PRICPT ve) 


FOCQMAT(3S,.$612,9) 
ESD 


SUBROUTINE READVX CNFUS,NFORK.LPRT) 
ROUTINE TO RESD THE VORTEX LOCATIONS AND STRENGTHS OF BOOY VORTICES 


WIMENSTION KFUS( 3054) »FUSAY( 3054) /FUSAZ( 80,0) ,NFORK(4)- 
LOGICAL LPRT 


COMMAS SAVRTIX JS MVTR,IKMVER KV CIC) oAVCI1O) ,SVES0) 
COMMON B8LOCK(7500) 


EQUIVALENCE CXFUSCLe Ly eRLACKCN)) 
# —-  CFUSAY (Lot) eBLOCKC361)) - —- e CFUSAZ( 141), 8LOCK(G81)) 


TF (AXVTY,LF 20) GU TO 999 


REAN VORTEX PATH XeSTATINVG 
READ (5,160) CxVC ToT sto nXxvTx) 
TF CLPRTY HRITELOeL TOY C§HVC LP oTBLeNYVTK) 


THTEAPOLATE IN GEOMETRY FUS 4AJN® AND “INNR AXES, 
Q avO & RESPECTIVELY, 


HV 120 Kote KVTX 
FIND GECMETaY B8g0¥Y STATION, 
NO LOO NFS t ss eFUS 
NPUSOR SN PORX CEU) 
9) 100 Ja2esFUSOR 
TE CXVEKD LESXFUSCJeNEUD) GN TO 110 
CORTINUE 
Jf s AFysne 
NFu 3s NFUS 
J*t a Jaf 
NE f LEUNG (CIANFU eKFENSCIMS SNF) 
TF (MX ,NE GGe) OXSCXV (EK) OKFUSC IMTS MFU))/OXK 


INTEGPOLATE FIR 4 AND H 


AV(K) = FUSAZC Io lewh yoo eCFNSAZ (De Fl) ebIISAZ (IM) ¢ NF) 
AVCEK) so FUSHYC IML es KPUY ON Xe (FUSHYV (35 FU) eFUSAY (IML eo NFU) ) 
CONTINUE | 

IF CLORT) ~SITEC MeL 40) CAVETI se LELoNKVTX) 

TE (CLPOT) «RITECOe190) CAV(LI se TSL ot evTXy 

WE TINA 


435 
ak35 
w835 
wASS 
w835 
«B35 
ASS 
aR3S 
a835 
@ASS 
aB35 
aR35 
wASS 


wah 
“836 
wi s6 
83h 
wR36 
wh36 
AB36 
wBS6 
WB Sb 


WH S6 


wAS6 
who 
wH36 
wR36 
wB36 
wB36 
who 
wa $6 
wA36 
4h$6 
wA36 
wh34 
aR36 
wWAS6 
wih36 
wR36 
wiSe 
ads 
«AS6 
AR3G 
why 
4A36 


KAS6 


eB $a 


WE36 
wWAS6 © 


WR36 
aya 
wB36 


“eho 


ah $6 
aBSe 
#836 


aR $5 


18 
{9 
20 
et 
22 


2u 
25 
29 
e7 
2a 
29 
30 


-— 
eV8G SNF UMC WW — 


oe oe 
a ad 


oe oe oo ee 
SOneryNMEe., 


wan 
wo 


Www TG te Ps te 
=O Gane we 


ed tol tl ts 
ASWts 


SSE iw Vu 
we oD Oanse 


ee 
iw 


160. FIRMATCIOE7,0) 

170 FORMATO S/S 10%, SOMVURTEX LUCATIONS AND BODY AXES, 
* TOK, Leas FEAUVK be p//SH AVSZLOF IO, GO) 

189 eeaReaTCs/SHA Kye, luFiu,e) 

190 BORMAT(/54 AlaeLUF LO .4) 
PND 


SUBROUTINE HOVEL CVA esa, XPT, YPT,2PT,VAQOY, XSTART, KLE) 


c 
C ROUTINE Th PEAD VELOCITY COMPONENTS AT CONTROL PNIKTS MEFYNED IN 
C ePRTCeT, 
Cc 
HUE VST VACHVeMACS)XPTCID VOT CLI SZPT CL) 
REWIND a ak, 
c , 


WRITEC 6,750) -. .. 
pe yan Te1,nanoy 
TF CHPTTD LT XSTART) GH TO 190 
IF (xPTC(TI,GT,Y*LE) GO TO 100 
AEANC A, TUS) LU,xCPeVCR,ZCPsVACL) pHACT) 
TF CENF COYNE.) GU 1S) 2100 
wi. MRETECS, 745) T,xPTCL). VPTCL) sZPTCL) eVACL) @WACT) 
199. CUNTINVE 
“RE TUWN 


74s Feamat((§,5612,9) 

750 FremMaTe pH s9Xs SE4VORTEY VELOCITIES READ FROM meres ’ 
* SoX,1aHee =NVEL way 
& far, Ty 5X0 SHRP OC SHYPT 9X y SHZPT, LOK 2MVAS LOX 2HE AS) 
FLL ‘ 


AANMAANMAAAAA 


SUsQQUTINE SCAMPUC Ke Pets NDASNNH DA si H,CySeM) 
GIVEN A SET OF N PLINTS wHOSE ARSCISSAE FORM A STRICTLY MONUTONIC 
SEGLFNCE, AND GIVEN & FTRST OR SECUNI) NERTVATIVE AT KCL) AND A 
FTRST NG SECOND DFRIVATIVE AT x(w), Ti) FIR THE SHNDOTHEST POSSIBLE 
CURVE PASSING RIGURQUSLY TH2NUGH TRE GIVEN PLITINTS, SATISFYING THE 
SPEFCTETED ROUADARY CUMOTTTUNS, Awd POSSESSING CONTINUNUS FIRST ANN 
SENN AERTVOTIVES, THE CRITERION OF SHNUTHMESS JS THE 
“METRIMT ZATION OF THE TUTPG@4L vik THE SGUARE OF THE SECOND 
MERIVATIVE, O°0 THE CUMTC FOO TS ACCORPMINGLY 4&4 CHAIN MF CURICS, 
le Foe A SEPARATE CUBIC uN EACH INTERVAL CXCT)KCT#L)) 

XIMEMNSTON CLUE CAE TON L te) 

Lai 

«nage t 

yista 

Neszna 

re (Hue ta) 6a tn tu 

<<82 

{0 TE CONMAOLDALT LO) DLEMERTV2ACK YAK) 


TE CONDASIY EN YU) OIBIERTVICNS YS 1) 
SasTandS (Va) : 

49 CE CC OFFI LT GY DABDERLVACK (NSS) V(N@SIAKON)) 
TE CORA 1D EDLY) DEMBNERLIVICK(CNO2)s 7 (N02),3) 


aA36 
¥Aa3S6 
wASs 
aH34A 
w B36 
+236 


«B37 
ui37 
aB37 
wR37 
wR37 
«337 
wB37 
wA37 
wHS? 
wAS7 
“957 
wAS7 
wA37 
wA3T 
wA37 
w337 
wBST 
aBS7 
“857 
wh 5? 
wAST 
“637 
wB37 


wR38 
“R38 
wB3B 
wASB 
wA3A8 
wASA 
wAZB 
9358 
4838 
wA3B 
wash 
338 
~B3R 
wR3A 
wR3B 
w¥A3ZR 


#438 


wR38 
«ASA 
aA 58 
wA38 
~93a 
aAZA 
a#83A 


as 
an 


ua 
a9 
So 


SCOPING ene 


M1 


20 


30 


‘ao 


- $0 


cec 


380 


AANgNANRANANAAANANAAANAAAAAARAAAAND 


ao 
a 
fe) 


“HSETAIS§ CHO) 

CALL COMCULOL,02,8,4, Votgrer hyn) 
TF (M.NELO) PETURA 

Biot 

Oo) SO Je1L,% 

CALL CURICACKOJI4YV(J),S0II020") 
TE (M,FRL1) GO Th 29 

“S108 sox 

weTUGN 

TF (K€ ,EN,2) GA TN By 

nel $0 Tat, 

CCl,Je2¢1) 

CENTYS ue 

Gf) tn gn. ‘ : ¥ . : 
LS7?eJ tbe 
ClLebetsxtJ) : 
ClLeS.tax(Jely) 

C(led,1)83,. 

€(t93,138a201) 

ClLed,tdeZ2e) 

CCheote122203) 

ClbLelaZCa) 

CONTINUE 

“20 

QETURI 

ENN 


SYUHROUTINE SOLVE 
QVERLOY (Ld, 3,0) 
PROGRAM SOLVE 


SALVE FIND THE STHENGTIHS mF THE ANNY SiUURCES AND wING VORTICES 
wwIC! SATIS#&v THE BOUNDAIY CUMDITICN GF TANGENTIAL FLGw AT THE 
PANEL CONTROL POINTS, AL Sf DETEQK INE THE CORRESPONDING PRESSURE 
NISTRIBUTTON AND THE FURCES AND 4OIMENTS ON THE CONFIGURATING, 


TRE PANGAN MUST SMLVE A SYSTEM OF LIE AR FOQHATIONS OF MAXT MUM. 
NMQNER 1727900, THE SOLUTION TECKYITQUE SELECTED CAs HE DESCRIBED 4§ A 
ALUCAED JACOAT ITEVATIVE METHUN, THE 1200 AY 1200 MATRIX TS 
NOTUG@ALLY PaRTITINGVED INTO FOUR 609 BY 600 ALOCKS, EACH PARTITION 
TS FURTRKER SUGNIVINED INTO BLOCKS OF MOXIMUM SIZE 60 BY 60, THE 


“MaATQLX ELEMENTS IN FACH ALOCK AWE CAREFULLY CHNSEN Tl! REPRESENT 


SOUYE “ELL TERINEO FEATURE OCF THE GRIGINAL COMBIGHRATION, FOR 
EvAMPLE, 8 HUDY BLUCK RPEPPESENTS THE INFLUENCE OF DNF QING OF 
PANELS ARKUNM THE BUOYs weILE A WING HLIICK REPRESENTS ThE 
TVELVENCE OF (KE CHURDY TSE CULUMN UF SING PANELS, FOR *4INGS USING 
THE MONOPLANAR BOUNDARY CONDITION OPTION, THE RLOCK SIZE 

CORRE SPOR TO THE TOTAL mM tIMPER OF PANFLS ON THE YOPER AND LOAER 


“SPR ACES CF THE COLUMN, THIS EXSURES OLMIRANCE MF THE FLEMENTS 


ALANG THE DTAGINAL 


“PME PNTITTAL TTERATION CALCULATES TRE SINGULARITY STRENGTHS 
“CORPESPONDIAG TO EACH ALHCK IN ISULATINN, FOR THES STEP, OKLY THE 


NYTARISAL HLUNCKS ARE PRESENT TS TRE AERODYNAMIC “4TRIK, NCE THE 
INITIAL APPQUxl arya TA THR SENGULAKTTY STRENGTHS TS PETER“MINED, 


“TME LT TEOFE CENCE REFECT MF EACH RLICK Th ALL THE iTHERS TS 


CALCULSTED AVY “MATOIX MULTIPLICATIUS, THE INCREMEMTAlL KORMAL 


VELACTTTES GRTAINED 49€ SUSTRACTED FRUM THE SQeMaL VELCCITIFS 


SOFCYFIEG BY THE RounndaRy COKOITIGNS, THIS FRNCESS IS ITERATED 


4458 
wR3A 
wR3B 
4639 
“RAR 
aB $a 
wise 
wAS$A 


ASH 


~H3a8 
4H38 
aAZA 
wA3a 
wA3A 
“BSA 


4A3A . 


wA34 
wA3A 
sA38 
wR38 
aR3B 
wR38 
wB38 
wAGA 
+ RSA 
«855 


nB39 
aR39 
aK39 
wA39 
wA39 
wR39 
wB39 
wA39 
4A$Q 
4AS9 
“B39 
#359 
aHh39 
wh $9 
wAh39 
aR $9 
wh39 
«A399 
“wa39 
a9 
“R39 
aA39 
B39 
wAS9 
4439 
aR 39 
aii ga 
afh39 
aA39 
aA39 
aAZO 
#A39 


25 
26 
27 
24 
eq 
30 
3t 
32 
LE} 
34 
35 
36 
37 
38 
39 
ao 
at 
42 
as 
a4 
4s 
46 
47 
uB 
4g 
54 


OPN TWEVN = 


AAINANAANNANANAAANNANAANAANAGMAANNAAAAAAAAA 


tATIL A CONVERGENCE TEST (8% TRE “MAKTOUM GESTOUAL IS SATISFIED QR A «AZO 


MAT *UM NUMRER OF [TERSTIGNS 15 FEACHED, wR39 
seslasantetalesacnnentdensekscehaecoeveseusesvenseeesaascenstecssiecensd so 
SNOY ONLY VERSIONS: JUNE 1977 -  #A39 
TRISE PORTIONS OF THE URIGINAL PROGRAM #UNAFROe® WHICH PERPTAINEN wKh39 
Try CALCULATIONS OF WINGS WAVE BREEN DELETED, — ARZ9 
: JOE MULLEN . ah39 
080 08000 OOS OOOO FOSS SECON SOOO RTE SE TESST CTeBESSO Ea SSTCON SEBS eSwennA sd 
: wA39 

TACK USAGE IX SOLVES wB5S9 
TAPE73 SYLVE » REA) ARRAY © C4&LCULATE BOUNDARY CONDITION wK39 
DNTAGIN, &EAU Df e INVERT DIAGNNALS, N GY NMAX aR39Q 

SOLVE. QE» INA WA39 

REG) ARRAY @ CALCULATE NORMAL VELOCITIES wB3O 

REw [ny wAs9 

445 4859 

TAPER? SOLVEs. REwIND : oi wA$9 
WEAD UaeVA,wh © CALCULATE UpVeh ah39 

REWIND pate «R39 

eo ise. Se . #839 

TAPEDG OCORTIN, WEH DED W39 
READ 9 e TNVERT DIAGONAL BLOCKS, N LT NMAX «39 

REWIND wWR39 

NTAGIN, RESIND i «439 

REaD © INVERT DTAGONAL BLOCKS, VY LT AMAX #839 

TTRATE, RF) : WR39 

READ & @ ITERATE wITkK AIC FGR SCL #A39 

WAS 

TAPES PARTIN, REWINIS : wR39 
WRITE OCINSVERSE) ~ wR3Q 

REwINh wA39 

NTAGIN, ReEAIND ; : 7 wA39 

WRITE ACINVERSE) © DTAGONAL RALOCKS . “WASOD 

REv TANI wR39 

TTRATE, RESINA ; : : 4439 

READ NCINVERSE) © ITERATE OM SOLUTION aR39 

4 . * : ‘WROD 

COMMON /IOPTNSZ 1210659) ¢%VLIN wat : ; wAS9 

* eNCOMIT, XSTARTy XMLE yp SACPT, IPLOT(L) pTPRT(S),INZSYM : j wBS9 
CoMacy CHU0Y, VCOO0) oA (O00), A(60069)5 230300), Gu COU0), 4839 

1 GACHO0ILNZTOX (600) «B39 
COMMON sPaRam’ f NBODY,NWINGSNTATL LEC, THK, XMACH, ALPHA, BETA, ALPHAC an39 

{ ePHTQ, REF A, REF, KEFC REFN ,REPL pREFY,PEFZ : wWRZQ 
COMMA SVEL CUMS NPOINTs NPART,IMAK Jax yp UAK,EMZIPRINT,NHTHK .- wARZO 

1 ONAL OK p SHR ( 20), KBLOK »NBRUS (6(') : : W839 
COMMON SOOENT £4 ARRAY (6GU0) 2 = oa #39 
COMMA sZMATCUMs MATIN , wh39 

: , 7 : é «839 

MIMENSTOn LACOOU VAC HOD) 2 MACHCN) CPC H001 NS (600) CHIEN (600) wh39 

1 DSA) chine Agel et A LAL cate a LAS Ce aS - 9 WHO 

2 eeu Sra tena XPTCOONIs YPT (O00) -2PT (400) wRS9 
wR39 

FANTVALENCE . CuchyehwCty) - #839 

1 Oe OVED DS OHCL IY, Cerys TC1)) “B39 

é oCACY)FACILZI) I» CVAC1Y, ACL 29199 wR39 

3 oe CMACEDPACL 21) I+ CCPcty, adi, std *. : #A39 

a eOSELDANOLZ GL) Ve CE" C1L)eDELCH))- : wH39 

5 0 (GH079,COSTH(1)) , : : wRA39 

4 eC MPT C1), ARHMEY(1)), CYPTC(L), ARRAY( RUT) ) wR39 

7 eCZPOT(1)eAMRAVOCHTA9L))» (Tat TC1),A4RPRAVCIAD!)) wA39 

a eCMNELPACL A ARRAV(Q4UL)), (CRHEN( 1), ARRAY( 5601)) #839 
SEAL eying TANS: . wh $9 

I= TEGES CoMPT : , 4839 


382 


LOGICAL LAC, Thx 


wH39 


DATA RAONEGSV,OITES32926/ «B39 

C a439 
CALL CPUTINCTI“£0,9T,1) wa39 
EMSYHACH «A349 
vP4aSSs0 #859 
QEWIND 7 ak39 
REwTD & wkhS9 

AL Peal PH4eRANOFG wA39 
ALPHACSALPHA a4A3Q 

PHT SPRTOeRADIDEG aA39 
SINALSSENCALP) wB59 
COSALZSCUSC4LP) wR39 
St*wso, a439 
SINASSTIN SL wA39 

c wH39 
C 4B39 
Cc ALPHACccceeeeINCLUDEN ANGLE MF ATTACK wAS9 
c CML ce cecce ee ANGLE OF ROLL wA39 
c ALPHA, se eee ec AMGLE OF PITCH wh §Q 
c RETA, secceses ANGLE TF SIDE SLIP wAS9 
c 4LL IN MEGPEES, wa39 
c #Ah39 
C : wBS9 
Te CEXZSY4,F9,9) GO TN S wA39 

_ SENASSTNALSSIN (PRT) 0859 
STNAsSTValLeCOScPHIy wA39 

BE TASASIN(SINB) /RAQDEG wB39 
ALPHASASIN(SINA)/RAUDEG «R39 

TF CTOWINT NE, 9) BRETE (6,480) ALPHAC,PHIR,ALPHA,RAFTA wB39 

5 CONTINUE : wR39 
c ; 0839 
C CALCULATE “ORMAL VELOCITIES REQUIRED TO SATISFY HOUNDARY wR39 
C CASALTIONS af 8NDY CUONTRAL PUINTS WB39 
¢ . : wH39 
20 TF CNANDY,E9,0) GO TO 70 WAXD 
Cc a939 
C ANUMNPARY CONATTION FUR BODYACONTRIdUTION FROM FREE STREAM, wh39 
Cc WR39 
READ (7) aQeay wR39 

Mts Jo Tsiessioy¥ wR $9 
SMCLISCIUSALSSINCDEL Facty) wA39 
+COUSCDELTACT) eC @SINASCOS(THETC I) YeSINHeSIN(THET(II)) wR39 

0 CHUN TINUE wA39 
c wBR39 
Cc 806800 OOOO SBME Sa Be ASOT TOROS ESS WES CRA EASTER ESET OS AHS eweeEDeasaaWwh $Q 
C SALVE AATOTX EQUATIONS @ DIRECT SULUTION IF MATRIX LESS THAN 00X60, aR39 
c OVHERR TSE FTERATIVE SOLUTION wA39 
Cc wR39 
70 TF (HANDY LEG MMAXS ANU SNWINGLE,NMAX) GO) TO HO wA39 
TE (MATIN, ED,E) CALL DIAGIN wB39 
GEWIND 19 #B39 

a. To Qu 4AS9 

89 CALL PARTIN 439 
IF (NKENDY,E9, 0, OR NAING,E9,0) GO TO 390 4839 

90 CALL IMM are wh39 
100 REweTHN 7 wA3q 
110 GPASSSuPASsel wAZ9 
» FF OVBNDY,EG,9) GU TO 220 «A39 

C WA39 
C CALCULATE VELOCITY COMPONENTS ON BODY PANELS wewccennceseuveceoosasawh 39 
Cc ! Uo 3 UAeGB, Vv & VA@GR, 4» = wAeGR wA39 
c wAZ9 


94 
Q7 
94 
99 

109 

1u1 

192 

103 

joa 

tos 

106 

107 


‘108 


199 
110 
ti 
112 
113 
114 
115 
116 
117. 
118 
119 
120 
121 
122 
123 
tea 
1e5 
126. 
ie? 
124 
129 
130 
434 
132 
133 
{34 
155 
156 
137 
138 
159 
149 
144 
142 
143 
1a4 
145 
146 
{uy 
148 
149 
{$90 
1$t 
152 
{S$ 
54 
185 
154 
157 
158 


Oo puot Fat,’ s8Nor wR39 
crys, aA3ZQ 
v(fsu, wR39 
aC) 3 6, +839 
READ (AY CUACZS A VACI) HAC Js TSE,NBODY) 4939 
NO 1460 Jat, sony wRS$Q 
ICT BucT)+uaC Ji eGR (J) ; wk39 
VETISEVETIOeVACIY eG ds) wh SQ 
a(Tian(TyeaaA( Jy eos (J) wA39 
150 CONTINUE ar3ze 
140 COSTE B30 
c wR39 
C CALCULATE 41°9G VELOCITY COMPONENTS HERE NUE TO VORTEX SHEDDING evoweenh 39 
C Fou Anges Vo = V4VCVLIRD ® S wee (VERY 4839 
C e839 
IP (NPASS,&%1) READ (7) ARRAY : aAB3d 
oC 145 Tst,VvHONY aR3o 
VocTyen, “w839 
145 wACT)SU, wR3Q 
Cc wA39 
C COMPUTE vorTex VELUCTTIES BY INTERPULATION IN STRENGTHS USING VVELS «839 
c . wB39 
j COLL ELHYOVT (VA, #4, XPT, YET, 2P1, HOLY) wR39 
Cc #839 
C REGAN IM VELOCITY CUNTRI@NTIONS FOR COLTRAL POINTS ARITTEN Cut BY. AB39 
CC PRTCET, VELOCITY CUMP NER TS ARE COMPUTED BY VRATHL wA39 
C W839 
TE CNVLINEGed 24D, NCPOUT,LES) wAS9 
‘ * CALL RAVEL (VAs wae XDOT,YPT,Z2ZPT,nBUIDY, XSTART, XWILE) wB39 
C wh39 
C COMPUTE ungeat VELOCITIES AF CONTROL POINTS “B39 
c was9 
OF FOH Ter,4sinny «B39 


180 SECT ECM CTIMCOSLTHETCL) DAV CLI MSINCTHETCIDIIMCOSCOELTACEIISUCTI® © waSe 


Vo Srecnecracr)) wA39 

190 CONT SUF “B39 
TF CrawScCTPRInt) LT.2) Gi TH ain : wA39 

a@ LTE (hm, 559) EM,ALPMAC PHI © wh 59 

wOTTE (H,400) W839 

OF Aout y2s,5KdOnyY aR39 
 NMEITE FO, G2) NeGSIND UCM eV CMD DHONI ENSON) pVACN) » MANY wB59 

200 | CWT TNE wes? 
Cc «839 
C CALCULATE PRESSURES CIN BRODY PAELS, THEN wH39 
C CALCULATE FiIGCES axO MOMENT ON BNIDY 4839 
c w8 $9 
2190 CIUMPYS4 : «A39 
NO ASa Tst,*8uny ~R39 

v(l) s verjpeovart) -wA39 

159 CE) & eC Ty ewacl) wR39 
CALL PRESS -ANKEV DEM, AL OgilsVewe,CPsCPSTAGSCOCRIT,CPVAC,CIMPT) wA39 

CALL Frietae (N4UDY SPARS, ALP CIMOT, FALSE.) wA39 

c wA3Q 
C COMPUTE BNREE AND MUMENTS FOR CONTRUL POINTS BETKEEN XSTART AND XWLE »%H59 
€ . wR3Q 
CALL Fr Puny(* HAE, PASS, ALP ,CUMOT, TRUE.) aH39 

220 CONTI ak w839 
B44 wOTTE (mH, 390) CPSTASSCOCHIT,COVAC #439 
QE TN ? ; . 0332 

¢ Beats w wA39 
Cth Cerny (TIME eel) wh $9 

TST Ee TIES ; #839 

“MITE (o,4ue) TIME SOT . . eRS9 


159 
to. 
1o\ 
162 
163 
{64 
165 
{6s 
1o7? 
168 
169 
170 
171 
172 
17$ 
174 
175 
1745 
177 
173 
{74 
189 
181 
182 
183 
{as 
135 
186 
‘487 
188 
189 
{90 
191 
192 
193 
194 
195 
196 
197 
198 
199 
204 
2ut 
202d 
203 
20a 
298 
2906 
207 
aoa 
209 
aio 
211 
aie 
233 
ets 
215 
214 
2.7 
21a 
219 
2e" 
221 


383 


384 


350 


390 
aoa 


420 
430 


4ao 


aaanana 


1 


2 


_enmpute Trib 


RETURN 


FORMAT (///10X,10RVELACITY UN ouDY, Bux, 12Nee SOLVE ; 
415%, SHMACHS FO, $6 3X, 5HALPHAS,F7,3, 3K e5SHPHITREDF?,3//) 


wi 39 
was? 
wR$9 


FORMAT (/9% COSTAG S2,F INS, 3X ,BRCPOCEIT 3,799 Se 3x, 7ECPVAC B4F10,5) «8 $9 


FORMAT (AX S,SHOAMEL,SX,OHSUURCES PX sSHAXTAL, 19%, 7HLATERAL SLUM, 
BYVERTICAL, LOX, 6HNIRAAL AX, LOHLAT VORTEX, TX, LO4VER, VORTEX 
0 FB, SHO, POX, BHSTIENGT He OX BHVELOCITY,S (9%, 2HVELOCITY)) 


ENRMAT CT126610650615,5,5G617,5) 


FORMATC//10X%¢25KCO4ST VEN ANGLES OF ATTACK, 75¥,124e" SOLVE ae 
ho ASE, THALPHACZOFI0,U, 5,74 PHIRS, FIO LG 

* e750 TH ALPHASSFIO SG, 5X, 7M YETAS, FIO, 4) 

TIMES,F 1D, U.5X%,380T2,F10, a) 


FURMATE/SK,1BNERD SULYE,. 
END 


SUBROUTINE SORPANCUPM, VPM, KPM) 


"CQHMNN /RONCOM, AMACH,SA,CKeXC(G) eo VCCI ZECCA KT pVIgZIeXUeZd 
“ DIMENSION SXCG),S4C4),0K04) SDV(U) oe DZ(4) DC) ECE) oF (CK) ,GC4S), 
MODY, XPM(U), YON (4), ZAXCUD,AYM(U),RPH2C4) 


WE at mis 


1 DATA FPS,PI/1L F950 3,14195205/ 


EP2SEPSREPS 


“ BTZEL, eAMACHWAMACH 


BTAassnarT(aBS(Ata)) 
HOASRT2AnSAaSA 
TASL, +8402 


“TE (14,bT.0.) GU TO 200 


SMC(S)50, 


“Or 190 tai,d 
 2CCTySsVJeSaalxXsexC(l)) 


IF (CTghE.2) S¥CLIZCYCC2I@ YC CLI IZEX 


TF CY.G1T.2) SMCSIZCYCCHPHYCCS)ISCK 
S$" (2)s8"(1) 

BNC4)289"(3) 

SSMS8IGNC1.¢94(1)) 
PMASAT2eSM(T) #Sh(T) 

TAMST AHO 

TF (CAGSCTAM),LEEPS) TAMBU, 
SAMSSORTCABSCTAM)) 

s4yvDe1,/8am 

CPN=CxaSAM 

UXCT)2xTeXxC(T) 

AYCT)=zV¥TevC(T) 

OZCTIB2Te2C(1) 

IF FA4SCOXCT)) LESEPS) OXCI)=0, 
TF (COBSCOYCT)) SLEEPS) HYCT) 80, 
TF CARS(HZCL)) LEEPS) OLE) a0, 
oPre(1)£0, 

Ox!aNK (TIA OKC) 

OY2eny(T)avV(T) 

oL4esnZ(Lryeb 21) 

DRASNVYPeNZ2 


TRREF COMPONENTS QF VELOCITY INOUCED AT 4 SPECIFIED 
CONTFOL CNINT KY & CONSTANT SHURCE OISTRIAUTION ON A 
AUANAILATERAL PANEL MAVING LONGTTUNINAL TAPER AND INCLINED AT AN 
ANGLE DELTA TO TNE FREE STREAM OTRECTION F 


w339 
wRS9 
wASD 
WAS? 
w&39 
wis 3Q 
wB39 
ARSED 
wR39 


wR4O 
wBa0 
wRat 
#840 
wHGO 
wBuo 
4B40 
wAan 
4aRQ0O 
wRUD 
whQ) 
wBR6O 
wH40 
wBag 
ARGO 
wRUd 
wRan 
wRUO 
aAa0 
wBad 
NRaO0 
wR&O 
B40 
‘#840 
wRGn 
wRGO 
wAU0 
whad 
wBug 
wRag 
aBuo 
aB40N 
aBU0 
wBa0 
aR4O 
wAUO 
wH4N 
wRUQ 
«HO 
wRad 
wan 
wan 
ry) 


“wRUO 


“AO0 


222 
223 
224 
ees 
226 
227 
228 
229 
230 
231. 
252 
235 
254 


— 
ST OPDPvyYOVCwHNH 


— oe 
ew wa 


-~- 
meee 


Met ed I RN I DG 1G oe ome oe oe 
—SCOPNO ME BUNK OD Oen es. 


we Mol tot 
wh 


Fee Uwwewuw 
Ve SO OBEY 


Sec 
KF Swi 


10 
20 


70. 
30 


90 


110 


NYASNxQeRT2Ae0OReS 

ACT)sa, 

IF CAMACH,GE.1,) OXZEOK(T eH TARABSCOZ(T)) 
TF CAMACH, GE sL, eANDeD¥Z LIU.) GU 1 170 
IF (N2.6T,0,) OCT e8QRT (02) 
XPX(TYSNKCT Pentax (SaCtpaOV(T)sSAeOZ(1)) 
YeKCTISOVC LT aSa(1)eOx¢1) . : 


ZENCTVEOZ(TISSAeDXCT) 


AYMCT)SSdeNY(TyeSh(L) eid) 
TF CASS(XP¥(CI)),LE,EPS) XPMC IT) EO, 
TF CASSCYMHCTDD SLEEPS) Y4KCTISY, 


“IF (ANS(Z4XCIT)Y),LE,E PS) Zax(T)G9,— 
"TE CABSCAVM(C ID) LE,EPS) AYNCLISU, 
TF CY GLE 2) RPMACL)SY4X(C LD MAE LAKE Lee 2eRTAaavn({ dana 


RPMO(2)sRPPMAC1) 


TE CT,GT,2) RPMZC3)SYMXC Sd aaeeZAXC 3S) aw2vAT2ZeAvM( Seer 


QPMP(4UySROM2(3) 

TF CABS(RPM2(T)I LEE P2) KPMA(T)=0, 
RPMSSORT (ARSC RPMACT)Y) 

IF (ROm,LE,EPS) RPSU, 

NPMRSamend( 1) 

FCI) 50, 

PNOMEOOKCTICVANCT WAT 2eOZ(1) eA YM CE) 
PuUMSOCT)#ZAX(L) 

TE CENUM EDO. AND ONIN. EU,0,) 60 1 19 


YF CNCTI,EO, 0, UR ZAKCT), bQ, 0, » FNUNSO, 


FCT)= ATAN2CFNUM,ONOM) 


TR COCT), eq, a.) FCLYVSECLYMSIGNC1 oe ZAKCT)). . 


IF (Tam) 100, 90920 

TE CAMACH GT, 1, eANDDCT)FN0,) 60) Yo 70 
TE’ CRPEM,LE,EPSY GU TO 40 : 

Vumexem (fy egoM 

GCTISALNGCNUM/ (U1 AoRPM) ) HSAMD 


‘6 TO 180 
SXCTYASIGNCL oe XPM(T)) 


TF CAMACH,L ILI.) GH TM SO 
TE CLSEQe te AND, KP™C1) LT.CPM) GO TU 130 


PTE (LEEDS SAND KPMCS)CLEACPM) GN TO Jao 
“TF CLEQ,2) SGN1258K01) "5% (2) 

“TE CT, ES, 4) SGN3UESK(3) #Sx(4) 

TTF OxPMCTD) 60,74, 80 


IF CL.EN, 2,490, SGNI2,LT,U,) GO TU 1S0 
Th CTSEOG4, AND, SGN34,LT,0,) GO TU Lun 


B01) 24L 0G CABS (KPM(T)1) #3440 


GA TN 160 

GCT)3s4, 

Gl TO 160 
GCTISALGGCXPA(T) I eS AMNH 
GO TN 160 

GBCy) 20, 


TF CXPHCT),GTAHTASNPM) GCTIGOCLIZKPMOT) 


GO TO 140 

GCT)s0, 

APGASIGNC Le KP4(1)) 

YE (POY KE LU,) ARGSKOMCTISCATARRPM) 
IF (A2G,GEe!.) GI Til tn0 

IF (A9G,LE.e1.) GU TA) 110 

TE (N01) GT.9.) GCLISACHSCARG) SAMY 
GO TO 164 


bs ZbeSb4S4(1 aS CT) 
TAMLE(CS4CT MOVIL ¢SOMNZT( TI FABSCAY* CTD) eSasy sare 


TE COKOTILGT,TOME) &O Tr Fav 
F(T)so, 


wRao 
wRGO 
aRao 
wHaO 
wRGO 
«Rad 
wROO 
anag 
what 
wBuO 
#RuO 
~WAN0 
wBad 
wA&d 
wRag 
waAan 
wBRao 
wAao 
what 
wWRuU0 
wRao 
wAu0 
waa 
_WRa4 
WB&O 
ahan 
wBao 
#R40 


WRGO 


w840 
who0 
wRan 
wRagd 


, 4840 
wAUO 
, «B80 


wAgod 


" wA4O 


wR4O 


, 4849 


wag 
wB40 
wRdO 
wRQd 


‘. wBuo 
. WBan 


wRdo 


arr yy.) 


wAhad 
wR4ad 
w8G0 


wan | 


wA40 
aBdG 
whdd 
wR49 
wihd 
whan 
whan 
wRan 
= AO 
aWan 


wagn 


386 


120 
130 


140 


160 


170 


180 
190 


200 
210 


coc 
coc 


an 


AAAMAAANAAN 


IF (S84,G7,0,) FCTISPLeSIGN(1.e Zax (ld) 
GQ TO 160 

TF (CSS“aY4XCE),GE.0.) GO TO 160 
GCL)sPTeSamhOd : 

60 TA 160 

G04)5599,83AmMD 

TF CataCH tT...) Glelse=G(1) 

69 Ta foo 

G03) S500, #Sany 

TF CAMACH,LT,1,) G(4)e"6(3) 

A(Tys0, 

MARGSwHTAROY(T) y 

IF (DCT) ENC. AND, HARG,EN,0,) GO Th 180 
IF CAMACH,LT,1,) HCI) ShTae TSRALGG(COCT) #HARG)/ (OCT) @HARGI) 
TF (CAMACH,GT,1,) HC I)= BTAeATANZ(U(T), HARG) 
“GN TO 180 

F(T)SG6, 

GC(1)s0, 

H(T)=S0, 

aYM(J])s0, 

YMX(J 20, 

ZAx(T)s0, © 

XPM(TIBO, 

nPMsa, 


“RbMen, > Hs GR 


PPM2(2)SAPM2(1) 
ROmMACUySRPMA(3) ‘ 
“RCTIY EMC T OAT2eSM(T) *eG(T) 
“CONTINUE 

ransi,sTa ; “ . 
‘F1Gs Chet jab (2ick (3)9E C42) eT aD ; oe 
-FLUECF (Leb C2) oF 05) 4F (0) TAD > 
"G142G60310G6(2)9605) +6(4) 

RGOPTS1,/(4,*#°1) : : 
“TF CAMACH,GT,1,) RUPLS2,eRUPT ote 
UPmsANPTeCELU/AT 20S ASF 14) : 

VPMeeRuUPTaGiG © si . - ook 
aPmeRuPTa(hldesase td) 
“RETURN 


“WRITE (H,210). * Lp ee a a, ae 


sTaP 
“FORMAT (1HO, USHERROR © BOY PANEL SLOPE EXCEEDS. Mach: ANGLE) 
END : P 


SUARNUTINE VELCMP 
“OVERLAY (LeH,2,9) 
PROGRAM VELCMP- 


COMPUTE THE VELOCETY CUMPONENTS (Ue¥e™) AT THE PANEL CONTROL 
POINTS AND FORM THE AERODYNAMIC INFLUENCE COEFFICTENT MATRICES 


TAPE US4GE IN VELC¥Pe 
TAPES s REAN 1*ACH, ALPHA, PHIR 


“‘TAPE73 VELCHP, REWIND : 
REAL ARPAY @ CALCULATE BOPY TROUCED VELOCITIES 
aRTTE 9 © OTAGNNAL SLOCKS, N GT NMAX 
ME aIND 


“wAad 


wRU0 
w8an 
wRa0 
aRan 
wAGO 
wR&ag 
wHG0 
whHao 
wRdO 
#7AGO 
wRdQ 
wRdo 
waad 
wRUA 
wha 
wHG0 
WARGO 
#840 
aBUO 
WHU0 


~ wR4O 


a Aa) 
4RU0 
whan 
wRUO 


» wRUn 
»wAdd 


wR4O0 
wAao 
wRuOo 
whan 
WRUO 


,WRGO 


wid 
WwRaQ 


: whUd 
- wRUO 


wRUO 
wR40 
wAan 
WRGO 


+ wWAUO 


WAGLT:. 


WHO, 
WAGL 


- WRUY 


wAQt 
wRal 
wRut 
wAG{ 
*BQy 
wRat 
WRdt 
wRol 
aAay 
wOuL 


199 
{to 
ai 
tie 


115. 


114 
415 
116 
117 
118 
119 


120° 


{21 


122. 


1es.- 
124° 


125 
126 
127 
128A 
129 
130 
151 
132 
133 
134 
135 
136 


137. 


138° 


139 
140 


144. 


142 
143 
144 
145 
146 
1u7 
148 
149 
150 
151 


OOWoNeUne 


aad a 


AaaaaaaanananIaann 


TAPEAS VELC™P, 
MO )VEL, 
VELO™MP, 


TAPEOs = VELCMP, 
RONVEL, 
VELCMP. 


TAPFIN:g VELCYP, 
RQOVEL, 
VELC™P, 


REwIAD 
aRTTE 
REaTND 


REwIND 
wRITE 
REWIND 


REwINn 
whTTE 


wEWINa 


READ 


REWIND 


US, Vege @& COMPONENT VELOCITY PATRIICES 


an eo eLRMAL VELOCITY “ATRIY 
On @ OTAGONAL BLOCKS, N GT NMAY 


© CUPY TO TAPE? 


TAPELY: NAMY USED BY ANDY VERSIGN 


CAMMON ZJOPTNSS LZ1(65),54CPT, TPLOTCU), TPRT(S),IXZ3Y4 


COMMON JDARAM 4 NBDOV,NwING NTATL OL, THK pXMBCHy, ALPHA, RETA, ALPHAC 


{ »PHTR,VEPA,REFA, REFC) REFL, REFL»RERX,QEFZ 


CUMHNN SVEL COS NPQINT, VPART,TMAX, JSAXNANMAK GEM, ITPRINT» NATHK 
| eNAALOK p MiRIIW (20) ,B4LOK,NRROw( $0) 
COMMIIN /NEWCOM/K ED KWAF KHOFAR,KRADX( A) KEORK (4) KFUS, “AX, KU GKS 


1 KF (6) eX ANC 6) pKEINOIR (A) oKANUR (6) KML PNCPT,LOCPT(20),XxCPT(20) 


COMIN 


Chuan SSG 


BLOCK (7500) 
“COMeAN SBNINT 7 ARRAY (H000) 


7 NSEGINSOK(C 20) NCUL C20) .0089020),S5INS(20) 


{ PATE CAI UHT CANS, SPS (ZN) 9 RLE*C209 BLE C20) ZLE* (20) 428 (80) 
ceases sm ATCUMS MATIN 


#AQ4 
aba} 
aRG{ 
weat 
wRat 
wuay 
aAa{ 
wRay 
wROY 
wRaY 
“Bat 
way 
MRUY 
wROS 
wRaY 
WROL 
wR 
WR4UY 
WALY 
wRat 
wBad 
WR4Y 
wBas 
wROt 
wBat 
wROY 


WB 


AIMENBTON XLE (600), KPT (Hd) HEL COIN), COSTHEONDT XAT CO00), VET CO00). 
1 'ZAT (HOO), VPTCH0C),ZPT (99), eS ae a Bh eee 
2 Slog, bu), PELTACEN0) ,DELTI (609) : sd 


BAUTVALENCE 


NN FUME WY 


“wATINGEO 
WhAXsad 
FP9a1,F 3 


CALL CPUTTMCTIMEU,NT,1) 


BRAD Ts “ACH NIMBER AND ANGLE DE ATTACS 


2 (COSTH(1) ALOCK(601)), 
e CYBTOL)D SALMCKCUS01) Dy 
CITI eSLICK CSTV) ), 

e COZTNKO1),A8LOCK(6991)) eecateee 
e(XPT(LI,ARRAY(1)), 
ea CLZOTCSV,4RRAV(1201))— 

e (PELTACL),APRAV(Q4ULII» 
eS OMLE CH Ve AGRAV(S49G)) -. 2 a teen 
LUGICaL LAC, SUR 


COEL CL) »ALACK CLD). 

CKET OLY, BLOCK (3901)) 
CLZATCAY,RLOCKESIMGII:W ..- 
COHONRNC1eRLOCK (93019) 


CYPT(E),ARRAY(H01)). 
CO2¢1),A4RRAV(NBO1)) ; 
COELTIC1) -ARRAY(GAOL)) 


REAN (5,290) X“ACH, ALPHA, OHIR 


ALPHACSA| PHO 


TF COMA tT 49, Rg MACHEN EM) HETURN 
TE CYANSETORINT) GTI 


SURE ACh LTel, 


aRITE (Oe $90) 


HE TA4SS9OT (OHS (X*ACHOY4ACHOL,)) 


PETANSY,/HFTAM 


VAL OK SH 
veh yasd 
DEWTAD BR 
QkE«TISD 9 
OFaTen 3¢f 


wRUY 
wd 
wads 
wRay 
wROL 


wBad 


ary 
WRU 


rire) 


. 


wRUt 
wRa 
whd{ 


- Wha 
wBaY 


wOat 
wRGd 
ABal 
wRat 
wROL 
WAU 
what 
wRG 
wBuy 
apa 
wRal 
aut 


_ w8G4. 
edt. 


wRal 
wRUt 
wKu! 
who] 
akal 
wROY 
«BU 
whut 


388 


wnmaaAAANAN 
; 3B 


°o 


1S 
cB 


0 


AAO So 


100 | 
160 ° 


a 


A1AAaAN. 


179 


189 
190 
c3 


HPOTSTSaNCPT wRGY 
KP ONELS*BOCYeNWING 2 wRGt 
TF CRPStIEL ED, A) RE Siig ms -wRad 
/RE IND 7 wha | 
NCPTaNwInG . ; wRGY 
TF (NWING,EG,C) GO TO 76 ; wha, 
wAuy 

COMPHTE STZES DF wING DTAGUNAL BLUCKS, THEN . wRaY 
COMPUTE CHORAFISE CONTRAL POINT LOCATIONS AN WIRE ; wha] 
(PLANAR BOUNDARY CONOITIAN UPTION UAL) wRUY 
8 wBUt 

wwewvesconaconeene INSERT *1NG BLOCK CANE HERE. mosecuncoasevenaaeoeawh i} 
: i ; wedi 

EMEYNACH . wHU4 
“PARTS ; wad 
“RITE (6,510). NPART 6. oe! sesh wR 
-wRITE (8,259) NWINGsNSONYANCPT NSEC . . WHat 
IF (NSEG,EN,9) GO TA 75 : : * WROL 
WHITE (6,260) NSEG, (NANK(N),NE1L,NSEG) : ve wRGt 
WRITE (6,270) NSEG, CNCOLONIZNS1,NSEG): ~ ss wnat 
COMTY MULE . wBOt 
TE (NWING,.NE,0) REAN (7) ARRAY CHORD, OZTOX at j waAgt 
TF (NAODOV,ES,0)} GO TN 100 wAU) 
PEAND (7) ARRAY WBat 
nid 80 NELeNBODY ; wRUt 
KATCNJSKPT(N) wRut 
VATONJSYDT(N) WAG 
ZATONISZPT OS) WROL 
CONTINUE WROY 
NPOINTSNANDY we . wRO 
IF (NOART.EQ,1) WRITE’ (6,520) | ; > vo gS waa 
ne oe as wR 
COMPUTE VELOCETY COMPONENTS TNOUCED HY BODY PANELS) seas wat 
oe : , ae WRI 

CALL BOOVEL NS WHS 
CALL CPUTTHCTINE OT +1) WHO 
WRITE (C6, 360) TIME SOT ,NPART ; wROt 
CONTINUE : : : what 
PEWIND A _WB@t 
REwTHn 9 ngs wAd{ 

. REeIND 10 , a wat 
_ MATING1 , or , wat 
; ~ i eae ee: : WAG) 
WRITE OL4GONSL BLUCKS UF AERODYNAMIC HATRIX UN TAPE 7 WRO{ 
a. wRUL 
Ie CuRnoy,kO.0) 60 TO 190 ; WRUY 
NBRLOKSS wROY 
“MBROWCL)SMAQOY : weal 
IF (NRODVY,LE,NMAX) GN TO 190 weal 
*WHBLOKSO “ wRay 
‘Bh 180 KEEL, KEUS “wRGY 
NRenRanx(kFU)o} pee wAU{ 
“MCSRFOQX (KFUS @§ waat 
00 AO “NSE —NC WRG 
NABLOKSNHBLUK#+1 : wha 
NHROW (HBL OK)SNR wrat 
HO 170 sy,nR ‘ wROY 
MEAD C419) COOMA DANSI,NR) 4ABGl 
- CONTINUE . WRG 
WRITE (7) 1 . : wRuy 
“CONTINUE WwAot 
CONTTSUE wR 
“Th ONWTNG LEG MMAX OR, WeING,EN,0) GOTA 22an whut 


109 
a9 
111 
tt2 
113 
114 
115 
114 
117 
118 
119 
129 
tet 
122 
123 
124 
125 
126 
12? 
124 
29 
139 
131 
1352 
133 
134 
135 
136 
1$7 
1345 
139 
140 


cs 
220 


230 


230 


264 
270 
240 
290 
300 


344 
329 
$60 


370 


IAOMAAN-:- 


oO 


TWENSFEQ w1sG OLAGONAL BLOCKS 
NviRL OKs] . 
-MeROW OD SNAING 

REWIND 7 

-QEWIND 30 

WRITE (6,289) MBBLOK, SeRLDK 
Care CHOUTIECTIME,DTI1Y 
OTSTT pel IMFO 

*RITE (6,370) Ty“e oT 

RETURY 


FORMAT (7H NeINGS, (0,27X ,RHNHOINVS 


1e,2x,SHNCOTE, fo, 2K, SHNSEGIs Lo) 


FIIRPMAT C135 SROAACNI Nate s TASC, 20TH 
FORMAT (13H NOOLON oat sy  TOsCEXs20TH)) 
KRRMAT (10K TRNGBLUKS, 16.2%, 7HN“BLIKS, Ib) 


“PORMAT (190F7,0) . 


FORMAT(CIHL, LUX, SAKAERNOYNARIC VELCITY peveen COMPUTATION, 


# ° O3X,12ree VELCTO we) 


LEMRMAT (4/7/ 12H PARTITION 32,73) 


~ FORMAT (25m IMELUEACE QF ROOY-GN HUDY)- : 
FORMATO SL OXeSAHEND YONVEL, THMESoFb10,4,5K, SHOTS, FIO,4 


9 SX, bHNPARTSII5) we: 
FORMATOCSLOX,LASRKEND VELCYP, TIMES 


ENO 


F10,0,5¥, 34DTS,F 10,4) 


SWHWGUTINE VVELSONVO VV, ZLeVXg VV orb 5, RR, V,W,VRTMAK) 


TATS SUARIMITINE COMPUTES PERTURHATION VELACITY COMPONENTS. OUE TO - 


“MV EXTFPNAL VORTICES AND TRETH IMAGES INSTDF 4 SONY WITH 


FLLIPTICAL CROSS SECTION 


"DEMENSTON VXCTIOVYC1) GCL) 


“COMMOMNJENMI 42,82 602 
COMIN JCOMA/SIG2—Me 


COMPLEX The VIsNSOT SeNSNLsST»SINe Sts TAUSCT VEL 


EXTERWAL 2,057 
PTS3,1461592565 
TLOZ0,001 

CTaCmOy £604,001 ,9) 
APsZAHPAR 
“R2ZSAehR 

| APF EARSRA 
APRASAPHeAPR 
R50,5#aPH 

HeBAPHO 

geerea 

S1G2=sRe 

THslMer yC¥YsZZ} 
SIsZ( TA) 

viecerry x(9,969,0) 
NSsNtTansn2 (Su) 


LOOP RAVER THE NUMBER TIE VAWTICES, av 


ah 
AQ 
WAU 
aBat 


wad 


mAQl 
wnat 
ARG 
wBGd 
wRUY 
wal 


-WRUY 
wAu)- 


wBUt 
wROL 


waa 
“WAG 


wAat 
wBu} 
WRaY 
wROt 
wAGt 
wSa{ 


wBaQ 
wRue 
wR? 
wRUa 
wWRY2 
aR 
whi? 
“B42 
whu2 
wBu2 
wRu2 
wAhu2 
wR 
wRa2 
4Bu2 
whud 
aRG2 


_WHaQ 


wau2 
wAae 
wR42 


. «842 


ahead 
wBaQ 
wRuU? 
waud 
aki? 
wHd2 
aha 
anaa 
whe 
anue 
ate 


141 
142 
145 
1a4 
14s 
145 
14? 


.{ va 


149 


“150 


151 
152 
153 
154 
155 
155 
157 
154 
159 
169 
Lot: 
162 
163 


ee ro . 
SORPNSUE WY & 


oe oe 
wi tu 


1a 


390 


aanaa. 


ao a an 


bey Tate 


wu? 

PAVEE VEL PCORCDENYCEY) «Ba? 
S1sZ( Tau) “Bap 
STHECONIGCST) waue 
CsC aes (SteSiu) «Aad 
IFC(D,LE,TLO) GA TN 2 wAu2 
VisVieGCI)/(SHeS]) wRua 
2 CANTY UE waua 
OSCaBS(SNek2/8 7H) w34a2 
TFCALE.ILE) GA TH 1 aBue 
VAISVIFGCTISESNeRAS5TAY wade 
CONTINGE waa 
wRu2 

VEL SO .SeCTeV) eOSOT/PY aBa2 
VSREALC VEL) wRu2 
wEeATMaG(VEL ) wu? 
AVSARS(V) wAY2 
ArsARS§(4) waua 
TFOV,GT,0,9,ANN,AV GE VATMAX) VEVRT“aAy wRu2 
TECV ALT MM ANOAV GE VOTHAX) VEeVR TAY whag 
TF Cw GT U0, ANDAR, GE VRTMAX) weVRT:tAXx wR&2 
TECW LT Og Me AND GARAGE VITUAX )wSOVRTMAX = wAa? 
RETURN wh4a 
END wha 
COMPLEX FUNCTION Z(CT) wRas 
; : wRUY 
THIS FUNCTION SUAROUTYNE COLCULATES THE SIGMA VALUE IN THE: © = WwAG3 
TRANSFORMED CCIRCLE) PLANE FOR GIVE* TAU IN THE PRvstcal PLANE —aBU8 
BOR AN ELLIPTICAL BUNNY wITH wINGS wAUS 
“843 

COMMON SCOMA/SI GA Ke aRGS 
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DESCRIPTION OF PROGRAM VPATH2 AND VPATHL 


This appendix is concerned with the description of the vortex chasing 
programs. They are used to accompany programs DEMON2 and WDYBDY in 
accordance with the procedures described in section 5 of this report. 


‘Program VPATH2 computes the paths of external vortices along a body 
with circular cross section with or without cruciform fins attached to it. 
The configuration can be pitched and rolled. The cruciform fins may have 
arbitrary deflection angles. Program: VPATHL determines the paths of 
external’ vortices along a body with elliptical cross section with or with- 


out a monoplane wing in the midwing position. 


In what follows, the basic theoretical method is described. The 
‘geometrical characteristics accounted for in the programs are listed. 
This is followed by a description of the flow of the programs and program 
Operation. Program limitations and precautions are discussed and the 
input and output described. Finally program listings are given for pro- 
grams VPATH2 and VPATHL. 


Program Description 


- The vortex chasing scheme implemented in programs VPATH2 and VPATHL 
makes use of crossflow plane solutions obtained from slender-body theory. 
Because of the linear nature of the problem it is possible to superimpose 


different solutions. 


Fundaméntally, at given axial stations, velocity components are com- 
puted in the crossflow plane at the points occupied by a finite set of 
external vortices in the presence of a wing-body combination. In this 
calculation, mutual interaction between the vortices, the interaction 
between the vortices and the wing-body, the effects of included angle of 
attack and roll, and fin deflection (if applicable) must be included. 
Once the lateral velocity components are known, the vortex locations at 
the. next axial station downstream can be determined by means of an inte- 
gration scheme. The vortices move from one axial station to the next in 
accordance with the flow angle calculated from the lateral velocity com- 


ponents. 


391 





APPENDIX L 


Appendix I contains the crossflow plane solutions for 8 different 
conditions and/or cross sectional shapes. In both programs, the calcula- 
tion is started at given axial locations (starting station) with a set of 
vortices with specified strengths and lateral coordinates. The geometry 
in the crossflow plane is specified a priori and the programs proceed to 


integrate in the downstream direction to obtain the vortex paths. 


Once the vortex paths are calculated over the length of body or body- 
wing of interest, the programs can calculate velocity components induced 
by ‘the set of vortices at specified points. In this process, the vortices 
are taken to be in the presence of the body ‘only, pes - the lifting sur- 
faces are not accounted for. This approach serves two purposes. First, 
for wing-body combinations, the effects of the external vortices with 
known paths induced in the flow tangency condition.can-be-.applied at the 
control points of the constant u-velocity panels laid out over the wings ° 
or fins in program DEMON2, Appendix J. Second, the velocity components 
induced by the external vortices in the presence of the body only are 
included in the calculation of pressures on the fins~and the body surface. 
Further discussions are given in sections 3.4 and 4.3 of this report. 


Geometrical Characteristics 
_ This section describes the geometrical characteristics which can be 
accounted for by the programs. Since the two programs. were written for 
different cross sections, the geometric details of the configurations . 
will be listed separately for each program. 
Program VPATH2 


Body: axisymmetric, constant cross-sectional area 


Lifting surfaces: cruciform fins, each fin planar, may ‘have breaks in 
sweep, each fin can be arbitrarily deflected 


Program VPATHL 


‘Body: elliptic in cross section, ellipticity constant, may 


change size of cross section 


Lifting surfaces: monoplane wing in midwing position, may have. breaks 


in sweep 
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Calculation Procedure 


In this section, the sequence of the calculative processes is 
indicated. The description will be given for both programs simultaneously. 
Important differences between programs VPATH2 one VPATHL will be pointed _ 


out, however. 


.After reading in the run title, body geometry and wing or fin geo- 
metry, the programs proceed to define the side edge of the wing or fin. 


Flow conditions, the permissible error used in the integration scheme and 


maximum magnitude. of the vortex induced velocity components are then 


a eh 





input to both programs. In addition, program VPATH2 reads in’ the fin 


deflection angles. 


' Both programs proceed to read the. iaterai esardinaces of ene vortices: 
at the axial station at which they start. . The geometrical characteristics 
of the configuration, at hand: and .flow conditions are, written out. Lead--., 
ing- and side-edge vorticity. characteristics, if applicable, are then: =. 
input to both programs. Their influence will be included.in the sonbied a 
tion of the vortex paths.: Program VPATH2 expects.this information for 4. 
fins, program VPATHL expects information for both sides of the monoplane 


Sf tt fede 8 : ale Ue teah) 


wing. ; eae oe 7 ate. tT 
At the axial station where the vortex path integration is startéd, 
program VPATH2 calculates: the body radius; the: distance: from the body: * 
centerline to the edge of the lifting surfaces’as seen in this crossflow.’”' 
plane. For this and all subsequent . axial stations, subroutine SHAPE “of ‘= * 
program VPATH2 performs this task. For bodies with elliptical cross 
section (and with constant ellipticity), subroutine SHAPE of program 
_VPATHL computes the horizontal ‘and’ vertical semiaxes in addition to the 
distance out to the edge of the monoplane wing as seen in the crossflow 


plane. 


After printing the vortex strengths and the initial vortex coordi- 
nates, both programs call on subroutine DASCRU to compute the flow angles 
at the vortex locations and to determine the vortex locations at the 
next downstream axial station. To accomplish the former, subroutine 
DASCRU calls subroutine F. The latter contains calls to subroutines 
implemented with the various crossflow plane solutions described in’ 


Appendix I. The two programs are equipped with different versions of 
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subroutine F on account of the different configurations and/or conditions 
handled. 


‘Consider program VPATH2 first. It treats a cruciform fin-body _ 
combination or body alone. Subroutine F in this program first calculates 
the lateral velocity components at the vortex points due to angle of 
attack and roll by calling. subroutine PITROL. The crossflow plane 
solution programmed in PITROL is given in Appendix I, section 2. The 
source term is omitted in that it leads to unbounded. potential at infinity. 
If two opposite fins are symmetrically deflected, subroutine SYMFIN is 
called from subroutine F to compute an additional contribution to the 
velocity components at the vortex points. The crossflow plane solution 
is given in Appendix I, section 3. If only one fin is deflected or if all 
fins are arbitrarily deflected, subroutine CRUCI is called by subroutine 
F to calculate the contribution to the velocity components: at the vortex 
points due to this condition. Then, if edge vorticity associated with 
the lifting surfaces is specified, its contribution to the velocity 
components at the vortex points is also computed. Subroutine VVELS is 
used, to accomplish this task. The solution’ ‘implemented in this subroutine 
is a specialized adaptation of the solution ‘given in Appendix I, section l. 
Finally, subroutine F calls subroutine VOTEX to compute the contributions 
to the: velocity components at each vortex point due to the effect of all 
vortices in the presence of the cruciform fin-body combination. . The 


solution for this sub problem is given in Appendix I, section 1. 


The version of subroutine F in program VPATHL ‘treats elliptical 
cross sections with or without a monoplane wing.” The effects of included 
angle of attack and roll are calculated by a different version of PITROL. 
The crossflow plane solution is given in Appendix I, section 6. Provision 
exists to account for a growing body by the use of subroutine EXPAND. 
The associated solution is given in Appendix I, section 8. Contributions 
from Specified vorticity associated with the monoplane wing edges are 
calculated with another version of subroutine VVELS. It employs an 
adaptation of the solution given in Appendix I, section 5. Finally, the 
contributory effects due to all vortices, in the presence of the monoplane 
wing-body, at each vortex location is computed by a call to a different 


version of subroutine VOTEX. The crossflow plane solution implemented in 
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it is described in Appendix I, section 5. The solutions given in sections 


LS and 7 in Appendix I only differ by angles of pitch and sideslip effects: 


\ 
i 


i 
aoe ee 
vortex location and passed back to subroutine DASCRU, the vortices are 


With the lateral velocities determined by subroutine F at ‘each 


moved to the next axial station in accordance with the flow angle calcu- 
lated from the velocity components. The velocity calculation process is 
repeated and the vortices moved to the next axial: station in the down-: 

stream direction. This process is repeated until the last axial station, 


specified in _the input, is reached: 


Both programs can proceed with: the calculation of velocity, components 
in the crossflow. plane induced by the. vortices at specified points. As 
mentioned earlier in this appendix, for the purpose of inclusion in the _ 
wing: boundary condition implemented in program DEMON2 , the vortices are 


considered to be in the presence of the body only.” 


Program Operation 


phd Programs VPATH2 and VPATHL are written in the FORTRAN, ‘Iv language 
(029 punch) and has been run on the cDc 6600 machine belonging to Boeing 
Computer. Services, Inc... Core requirement is about 60K octal words. 


°" In addition :to the standard input. (TAPES) and. ‘output, (TAPE6). tapes, | 
the program may ‘require additional devices such .as- disc: files. or tapes.. 
for reading or ‘storing data sets generated when certain options. are used. 
TAPE4 and TAPE7 are used for this purpose. One. data'set would cone of 
a.;set of control-point coordinates and the other would contain a set of 
perturbation velocities... It should also be noted that these programs 


‘contain complex variables... 


‘Running time required by both programs is a function-of the length _ 
over which the vortex paths are to be calculated and the permissible error 
E5 specified in the input. As an example, with E5 equal to 0.0001, 
running time should not exceed 5 seconds for a pitched and rolled con- 
figuration with about 8 external vortices including the computation of 


‘vortex induced velocity components at 268 field points. 


As an aid in debugging and quick visual inspection, both programs 


‘are equipped with a simplified plotting capability. They should only be” 


used with few vortices and over a short running length. 
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"Program Limitations and Precautions 


Thee: are certain limitations associated with the dimension state- 
ments programmed in the vortex tracking programs VPATH2 and VPATHL. The 
number of vortices to be tracked should not exceed 30. One fin of a 
cruciform fin configuration or one half of a monoplane wing must be 
described by a maximum of 7 points in planform. This poses a .limitation 
on the number of allowable breaks in sweep. Some care must be exercised 
xin the choice of .the permissible error, E5.. If its value is orders of 
magnitude smaller than to", computation time may become unduly long. 

The number of stations at which the vortex coordinates are printed in the 


output cannot exceed 50. 


Subroutine DASCRU adjusts the integration interval in accordance 
with the permissible error E5. If for some reason.it cannot satisfy the 
built in criteria for deciding whether or not given stepsize is accurate 
enough, DASCRU will stop reducing the stepsize after 32 attempts. The 
program will then stop and register STOP40. .A faulty crossflow plane 
flow field can cause this problem. . At times, the problem.can be allevi- 
ated by reducing the difference between the first and second: stations 
XIP (see input section). 


At the present time, program VPATHL is limited to elliptical cross 
sections with constant ellipticity. Program VPATH2 annot’ ‘handle expand- 


ing or ‘contracting axteymecrte cross sections. 


Both programs may suffer from slight numeniest errors when the | 
running length is very long. It is suspected to be caused by errors 
introduced by the integration scheme in subroutine DASCRU. This behavior 
can be observed when chasing a set of vortices, initially symmetrically © 
located relative to the free stream vector in the cross flow plane, along 


an axisymmetric body of considerable length (15 radii long). 


A further limitation.occurs when a vortex comes very close to the 
leading edge of a lifting surface. The computer program will tend to 
move the vortex away from the lifting surface, or it may move along the 
contour in an unrealistic fashion. This constitutes'a limit to the theory 
used in the programs. In reality, a vortex is made up of a cloud of small 
vortices with cores in which the lateral velocity components go to zero. | 


towards the center. In any event, such a vortex cloud passes right over 
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(and under) the lifting surface in question. [It is recommended in such a 
case to forego the vortex chasing calculation and to assume that the vor- 


tex moves back parallel to the body “centerline. 
Description of Input 


-This .section contains a description of. the input for programs VPATH2 
and VPATHL. There are some differences in.the input on account of the: 
differences in the configurations treated by each program. -The input for 
program VPATH2 will be described first. Then, the description of the 
input for program VPATHL follows with references made to items of: the _.- 
input for program VPATH2. Listings of all input variables are given at 


the end of the respective input descriptions. 
Input for program VPATH2 
Item 1 . 
The first card serves as identification and. may contain any alpha-. 
numeric information desired. This information is printed on the first.. 


' 


page of the output. 


Item 2 


The second card contains indices concerning the body, and Lifting-" 
surface geometry, control indices governing the number of axial stations 
at which information is. to be printed, reading in control- -point coordi- 
nates, writing velocity components,’ amount of output, and the: apeaon to 


pEane plots in the program geneEare? output. 


Item .3 
This card contains the endpoints for: each body section for which 


coefficients describing a meridian will be given (Item 4). Usually, only 
one endpoint is required; that is, one body section will be considered. 


Item 4 


For each body section, a set of: coefficients (7 maximum) are 
specified on this card. They are members of the polynomial shown below 


and programmed in subroutine SHAPE. 
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/ 2 2 
r_ x x x x 
| Cc) +c Cy (p) + C3 (7) + Cy + Co (F) + Ce (7) (L1) 


7 


where Cc, through Cc. are the coefficients, r is the local body radius, 
and £ is the body length. The body length 2 equals the difference of 


the endpoints specified in item 3. 


Item 5 


The coordinates of the fin planform outline corner points are read 
in if a fin or wing is present. Only one fin or one wing half needs to 
be described. The XF and YF coordinates are shown in the example shown 


below; XF is measured from the body nose and YF is measured from the body 


XF(1), YF(1) 


XF(2), YF (2) 





XF (3), YF (3) 
‘ XF (4), YF(4) 


centerline. Note: the axial coordinate of the trailing edge of the 
rootchord must be made to be slightly larger than the axial coordinate 
of. the trailing edge of the side edge. 


Item 6 


Flow conditions and fin deflection angles, if applicable, are 
specified on this card. In addition, the permissible error, E5, used as 
a criterion in the integration scheme programmed in subroutine DASCRU is 
read in. Note: E5 must not be taken too small or the running time 
required may become unduly large. This card also reads in the upper 
bound, VRTMAX, imposed on the magnitude of the vortex induced velocity 


components. 
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\ 
Item 7 


\ 
The number of vortices at the axial stations to be specified in 


item 9 are read in by this card. This arrangement allows for the intro- 
duction of additional vortices. This information must be supplied for 


increasing axial location (x,-station). 


Item 8 


The starting coordinates, in the crossflow plane with Yp to the right 
and z, upwards (i.e. the body coordinate system shown in figure 1), and 
strengths of the vortices are read in by these cards. If additional 
vortices are to be accounted for, the starting coordinates and strengths 
are read in at this time also. This information must be supplied for 
increasing axial location in synchronization with the number of. vortices 
of item 7 and the axial station of item 9. Note that coordinates VX (=y,,) 


and VY (=z,) are dimensional. 


Item 9 


These cards contain the axial stations at which the program will 
print vortex coordinates. Also, these stations are chosen such that they 
coincide with the introduction of additional vortices, if applicable, see 


items 7 and 8. 


Item 10. 


This and the next three items read in specifications describing 
leading- and side-edge vorticity characteristics. They are obtained from 
the results calculated by program DEMON2 described in Appendix J of this 
report. This card contains the number of stations in the spanwise direc- 
tion at which leading-edge vorticity locations and strengths are to be 
specified. This information must be supplied for all 4 fins of a cruci- 


form configuration. 


Item 11 


If the information of item 10 is read in as nonzero, the locations 
along the leading edge and the strength of the leading-edge vorticity are 
read in. Note that the dimensional quantity XLE is measured in the wing 
coordinate system, as calculated by program DEMON2, not the body coordinate 
system. This information must be supplied for all fins. 
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Item 14 


This optional input is specified when NCPIN of item 2 is read in as 
zero. . The number NCP is the number of field points at which vortex 
induced velocity components are to be computed on the basis of the vor- 


tices being in the presence of the body only. 


qe = 
Item 15 


If the information of item 14 is nonzero, these cards contain the 
coordinates, in the body coordinate system, if the fieldpoints at which 
vortex induced effects are to be computed. Note: in connection with the 
use of programs VPATH2 and VPATHL together with program.DEMON2, index ° 
NCPIN is set equal to 1 and the information of items 14 and 15 is read 


in by means Of a data set stored on TAPE4. 


INPUT VARIABLES FOR PROGRAM VPATH2 
(Circular Cross Section Bodies With Cruciform Fins) 


PROGRAM ALGEBRAIC SYMBOL eo Seas: is 
VARIABLE (IF APPLICABLE) ca re er COMMENTS 
Item l - (20A4) - Any’ alphanumeric information to identify: 
the -run. sks 
Item 2 (8I10) : 
NS Number of body sections for which coeffi- 
cients C(I,J) are required, 1< NS <7. . 
NF: Peering oS Ee diiy . Number of corner points used to define fin 
pee ‘geometry, 1 < NF < 7. 
NIP Number of axial stations to be printed in 
P : : output, 1 < NIP < 50. 
NCPIN NCPIN' =.1 Read in control point and body 
ay . .  HE9 7 pressure points from data set 
, (TAPE4). 
NCPIN’=:0. No input. 
NVLOUT NVLOUT = 1 Write velocities induced by 
: : ‘ moving vortices (and calcu- 
lated in this program) on 
data set (TAPE7). 
NVLOUT = 0 No input. 
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‘PROGRAM 


VARIABLE 


NOUT 


IPLT 


Item 3 


XE (I) 


Item 4 
C(I,J) 
Item 5 
XF(I). 
YF (I) 


Item 6 


ALFAC °' 
PHI 

D1 

D2 

D3 © 


D4 


ALGEBRAIC SYMBOL 


(IF APPLICABLE) 


(7F10.5) 


Boi 


(7F10.5) 
C.. 
13 


(8F10.5) 


(8F10.5) 


% 
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. COMMENTS .. 
NOUT = 1 Print additional output. ' 
NOUT = O Minimum output. - : 
IPLT = 0 No plots’ showing vortex 
positions in the output. 
IPLT = 1 Vortex positions shown in 


crossflow planes: 


Axial coordinate of the end of each ‘body 
section, 1 < I< NS. pas 


CG 


Coefficients in the body meridian equation, 
Ll<ig<Ns,1l<zs¢ 7, 


Optional input concerning. fin, jplanform:.-;,, ; 
geometry when NF #0. -: 


rae ges "Efe lt 


Axial coordinate of send point, w«. - 
l<tI< NF. ne a 


Lateral coordinate of nate corner Bonne 
l1<tI< NF. 


5 3) z LUNES 


Included angle of attack, measured between. 
free-stream velocity vector and body 
centerline. 

Angle of roll, positive right fin down. 


Deflection angle of upper vertical fin,... 
positive:trailing edges to right, degrees. 


Deflection angle of right horizontal fin, 
positive: trailing edge down, degrees. 


Deflection angle of lower vertical fin, 
positive: trailing edge to right, degrees. 


Deflection angle of left horizontal fin, 
positive: trailing edge down, degrees. 
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PROGRAM 
VARIABLE 
E5 

VRTMAX 


Item 7 


NVV (TI) 


Item 8 
VX (I) 
vy (I) 


G(I).. 


Item 9 


XIP (I) 
Item 10 
MSWR 
MSWL. = 
MSWU 


MSWD 


Item 11 


XLE (JLE) 
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ALGEBRAIC SYMBOL 
(IF APPLICABLE) 


(1615) 


_ (6F10:5) i 


< 


8 


: Pl N kK 
wo 


nae , 
ate y te ar Ply 


(8F10.5) 


*B,i 


(8110) 


errege 


(6F10.5) 


‘. velocities, use the value 0.35. 0 => geo: 


' 


.» Number.:of - leading-edge vortex information: ~ 


-4.Number:of leading-edge vortex information” 
-: Stations: for the left horizontal fin. 


COMMENTS 


Error allowed in integration subroutine 
DASCRU. Use the value 0.0001 or less. 


Maximum magnitude of vortex induced 


Total number of vortices at each axial 
station, 1 < I < NIP, NVMAX = NVV(NIP)..... 


. Starting coordinates of the vortices. 


y,-coordinate of vortex I. 


z,7coordinate of vortex Is | Es waaay 


B 


‘Vortex’ strength, counterclockwise positive” 
(when viewing forward), 1 < I < NVMAX, 
NVMAX = NVV (NIP). 


Axial.station at which output is required, 
1s I< NIP. 


f 


stations for right horizontal fin. 


% “ae 


Number of leading-edge vortex information 
-stations for the upper vertical fin. 


Number of leading-edge vortex information 
. stations for the lower vertical fin. 


NEDGV. = MSWR + MSWL + MSWU + MSWD. 


Optional input when NEDGV # 0. 


Wing x-coordinate of station on fin lead- 
ing edge. : 


PROGRAM 


VARIABLE 


CGLOC (JLE) 


GAMLE (JLE) 


Item $12 / 


NCW 


Item 13 


XSE (JSE) 


CGSELC (JSE) 


GAMSE (JSE) 


Item 14. 


NCP. 


Item 15 


CPX 
CPY 


CPZ 


ALGEBRAIC SYMBOL 
(IF APPLICABLE) 


Yue’ *LE 


TLE 


Vv 


eo 


(110) 


(6F10.'5) - 


w,SE : . 
Ysz’ 755 


Isr 


2 MSs 


(110) 


“(3F10.5 
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COMMENTS 


Center of gravity of the leading-edge vor- 
ticity distribution at x LES 

Strength of the vorticity distribution at 
XLE(JLE) . 


1 < JLE < NEDGV. 


Bebo oe 


Number of side-edge vortex information 


-“$Stations. Same for:ali*fins. 


NSIDGE =. 4 (NCW). 


“Optional-input when NSIDGE,# 0. 


,. Wing x-coordinate of station on fin side 
. edge ... 


Center Sf gravity of side-sdge vorticity 


distribution at *w/SE" 


we 4 wt be 


Strength Seed vorticity distribution at 
~RSBIISE) i woe capita 


a 
é 


1 < JSE < NSIDGE. 


, 


. Next two items are optional input for ~ 


“NCPIN® on -only. 


ees ‘of control points and body pressure 


points*or field points at which vortex’: 
-induced- velocities are to’be calculated. 


: tne ee : Bag 


Optional’ input when NCP # 0 specifying 
field point coordinates. 


Body “x-Coordinate of field point. 


Body y-Goordinate of field point. 


Body z-coordinate of field point. 
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Input for program VPATHL 
Item 1 


Refer to input item 1 under program VPATH2. 


Item 2 

Refer to input item 2 under program VPATH2. Only difference is op- 
tion to set optional output plot size. The bounds read in as item 4 :.. 
below. 
Item 3 

This card specifies the inverse of the ellipticity ratio of the 
elliptical cross section under consideration. This ratio is a constant 
for all axial locations. 
Item 4 


Refer to input item 3 under program VPATH2. 


Item 5 


Refer to input item 4 under program VPATH2. The polynomial is used 
to describe the meridian associated with the horizontal semiaxis of an 


elliptical cross section. 
Item 6 
Refer to input item 5 under program VPATHL. 


Item 7 


If IPLT equals 1 in item 2, the maximum and minimum values of the 
lateral coordinates are read in by this card. Now, XMAX and XMIN pertain 
to Yp coordinate and YMAX and YMIN pertain to Zp coordinate of the body 


coordinate system, see figure l. 


Item 8 


Refer to input item 6 under program VPATH2. Omit deflection angles. 


Item 9 
Refer to item 7 under program VPATH2. 
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Item 10 


' Refer to item 8 under program VPATH2. 


Item 11 
Refer to item 9 under program VPATH2. 
Item 12 


Refer to item 10 under program VPATH2. Only MSWR and MSWL need be 
specified since the lifting surface is a monoplane wing designated as 
right and left "fins". 
Item 13 


Refer to item 11 under program VPATH2. Here, Veaginge edge vorticity 


characteristics need only be specified for the right and left "fins". 


Item 14 


Refer to item 12 under program VPATH2. Here NSIDGE = 2 NCW. 


Item 15 

Refer to item 13 under program VPATH2. In this instance, this in-. 
formation is only specified for the side edges of the. right and left. 
"fins". ie 
Item 16 


Refer to item 14 under program VPATH2. 


Item 17 


Refer to item 15 under program ’VPATH2. a 


INPUT VARIABLES FOR PROGRAM VPATHL 
(Elliptical Cross Section Bodies With Monoplane Wing) - 


PROGRAM ALGEBRAIC SYMBOL 
VARIABLE (IF APPLICABLE) , COMMENTS °- 
Item 1 (20A4) Any alphanumeric information to TASHA 


the run. 
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PROGRAM ALGEBRAIC SYMBOL 
VARIABLE (IF APPLICABLE) COMMENTS 
Item 2 (8110) 
NS Number of body sections for which coeffi- 
cients C(I,J) are required, 1 < NS < 7. 
NF Number of corner points used to define fin 
geometry, 1 < NF < 7. 
NIP Pa "3 Number of axial stations to be printed in 
output, 1 < NIP < 50. 
NCPIN ; NCPIN = l Read in control point and body 
pressure points from data set 
(TAPE4). 
NCPIN = 0 No input. 
NVLOUT NVLOUT = 1 Write velocities induced by 
on moving vortices (and calcula- 
ted in this program) on data 
set (TAPE7). 
NVLOUT = 0 No output on data set. 
NOUT -  NouT = 0 Minimum output. 
NOUT = 1 Some additional debug output. 
NOUT = 2,3 Large amount of debug output 
containing information about 
intermediate complex variables. 
(use only when NIP = 2) 
IPLT . IPLT = 0 No plots showing vortex posi- 
tions in the output. 
IPLT = 1 Specify maximum and minimum 
x and y to be used in the 
plots, also see Item 4. 
IPLT = 3 Program determines plot size. 
Item 3 (F10.5) 
BFACT lfe Ratio of vertical semiaxis over horizon- 
tal semiaxis. 
Item 4 (7F10.5) 
XE (I) x Axial coordinate of the end of each body 


Bie section, 1 < I < NS. 
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PROGRAM 


VARIABLE 


Item 5 


C(I,J) 
Item 6 


XF (I) 


YF (I) 


Item 7 
xMAX 
XMIN 
YMAX 
YMIN 
Item 8 
ALFAC 
PHI 

E5 


VRTMAX 


Item 9 


Nvv (I) 


ALGEBRAIC SYMBOL 


(IF APPLICABLE) 


(7F10.5) 
tomer 
ij 


(8F10.5) 


(8F10.5) 


- (8F10.5) 


ae. 


(1615) 


APPENDIX L 
COMMENTS 


Coefficients in the body meridian equation, 
l<I<NS, 1<J< 7. 


Optional input concerning fin planform'= 


geometry when NF # 0. 


Axial coordinate of fin corner point, 
1 <I < NF. 


Lateral coordinate of fin corner point, 


1 <I < MNF. 


Optional input required when IPLT = 1 in 
Item 2. 


Maximum x-value used in program generated 
plots in output. 


Minimum x-value used in program generated 
plots in output. 


Maximum y-value used in program generated 
plots in output. 


Minimum y-value used in program generated 
plots in output. 


Included angle of attack, measured between 
free-stream velocity vector and body 
centerline. . : 


Angle of roll, positive right fin down. 


Error allowed in integration subroutine 
DASCRU. Use the value 0.0001 or less. 


Maximum magnitude of vortex induced 


velocities, if VRTMAX = 0, the value 
0.35 is used. 


Total number of vortices at each axial 
station, l < I < NIP, NVMAX = NVV(NIP). 
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PROGRAM ALGEBRAIC SYMBOL 
VARIABLE (IF APPLICABLE) COMMENTS 
Item 10 (6F10.5) Initial vortex positions in crossflow. 
plane. 
VX (I) Yp yp,-coordinate of vortex I. 
ee B 
VY (I) ZB OG Z,~ Coordinate of vortex I. 
ry i : 
G(I) vy Vortex strength, ‘counterclockwise positive 
* “00 (when viewing forward), 1 < I < NVMAX, . | 
NVMAX = NVV(NIP). 
Item 1l (8F10.5) 
XIP (I) Xp ‘ Axial station at which output is required, 
' 1 < I< NIP. 
Item-12 *(8110) 
MSWR Number of leading-edge vortex information 
stations for right horizontal fin. 
MSWL Number of leading-edge vortex information 
* stations for the left horizontal fin. 
_NEDGV = MSWR + MSWL 
Item 13 _ (6F10.5) Optional input when NEDGV # 0. 
XLE (JLE) XW LE Wing x-coordinate of station on fin lead- 
ing edge. 
CGLOC (JLE) Yur Zp Center of gravity of the leading-edge vor- 
: P ae : : : 
) : ticity distribution at XW LES 
GAMLE (JLE) vy Strength of the vorticity distribution at: ~ 
mS i - XLE(JLE) . 5G 
1 < JLE < NEDGV 
Item 14 (110) z 
NCW . Number of side-edge vortex information 
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stations. Same for all fins. 
NSIDGE = 2 (NCW). 


APPENDIX L 


PROGRAM ALGEBRAIC SYMBOL 

VARIABLE (IF APPLICABLE) COMMENTS 

Item 15 (6F10.5) Optional input when NSIDGE # 0. 

XSE(JSE) x Wing x-coordinate of station on fin side 

w,SE oy 
edge. 
CGSELC (JSE) Yor’2sr Center of gravity of side-edge vorticity 
' distribution at x 
w,SE° 
oe) oe Top . 
GAMSE(JSE) 1a Strength-of vorticity distribution at 
oo XSE(JSE). 
1 < JSE < NSIDGE 
Item 16 : (110) Next two items are optional input for 
ORY ; : NCPIN = 0, only. 

NCP Number of control points and body pressure 
points or field points at which vortex 
induced velocities are to be calculated. 

Item 17 2 ‘(3F10.5) . Optional input when NCP # 0 specifying 
field point coordinates. 

CPX si) = Xp ; Body ‘x-coordinate of field point. 

CPY Yp > Body y-coordinate of field point. 

CPZ z ‘Body z-coordinate of field point. 


Description of Output 


This section describes the output generated by programs VPATH2 and 
VPATHL. Only a few items in the output of these programs are different ... 
as pointed out below. The output to be described is generated when print 
control index NOUT is set equal to zero. For nonzero values, large 
amounts of additional output results. Thus, other than for debugging 
purposes, index NOUT must be set equal to zero in item 2 of the input for 
both programs. The results of the output Beet options are self evident 


and will not be discussed here. 


The first page of output contains the run identification and the 


geometry of the fin or wing planform. Included angle of attack and roll 
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are printed. Program VPATH2 also gives the deflection angles of the fins, 
if applicable. The permissible error in the integration scheme is 
specified. This output is followed by a list of vortex coordinates in 

the crossflow plane as a function of .increasing axial location. Quantity 
Y,VRTX is Yp and Z,VRTX is Zp? both in the body coordinate system, refer 
to figure 1. The vortex strengths divided by the free-stream velocity, 
GAMMA/VINF, are also indicated. This information is given for each of 
the output stations, “RIP, specified in ‘the input and printed as X. At 
each station, the local body geometry and semispan (distance from body 
centerline to edge oF fin or. wing as ‘seen in the crossflow plane) are 
written. Program VPATH2 gives the local body radius for the axisymmetric 
body. Program VPATHL ‘specifies the local horizontal semiaxis and the 


vertical semiaxis. 


The final item . in the output of boeks programs are the coordinates of 
field points (or control points), read ‘in by means of input or data set, 
and the velocity components induced by the vortices at the. points. The 
coordinates and the velocity components, are given in the body coordinate - 
system, refer to figure 1. The vortex effects are calculated on the basis 
of the vortices in the presence of the body only. 


Program Listings 


Programs VPATH2 and VPATHL are written in FORTRAN IV (029 punch) 
computer language for the CDC 6600 computer. Program VPATH2 consists of... 
a main routine, VPATH, and 12 subroutines. Program VPATHL consists of a 
Main routine, VPATHL, and 13 subroutines. The listings are shown on the 
indicated pages with the main program first and the subroutines following 


in alphabetical order. 
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APPENDIX L 
PROGRAM VPATH2 


ROUTINE IDENTIFICATION PAGE NO. . 
' Cols. 73-77 : a 

a an. ere 

2.  crucr isco? dt 

—3.. pasceru') © 03 at 

ie er eres (| eee | , 

Be RCT ue NNO BR ee 

6. _ PITROL Pe Jos mae aot 7 

7. PLOTVB, | [07 |... 427 


"8, SHAPE , 08 "430 
9.  SIMP 09 431 
SO! SVM IN’ oP OE CAE Pe a gga 


aE. “vOrER. O¢ =" ste ee en Re a age 
a a a hae (CY a 
Bg an be ee og Spgs SESE e ae ok ed a : 3 “434° ss 


a. 
toa 


Caine, a de 8 ar a ey SNe eer Sh A? SUEY 
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PROGRAM VPATH2 
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NAANAANANANAANIAANAANAAAAaAN 


ORAERAM YOATNHOCTSPUteNUTOLIT, TAPE SSTNPI'T, TAPER S(UTPUT, TAPES, TACET) 
VEWSTIN: VPATHO 


TRIS SOrGRS 4 CHMPUTES TRE PaTaS 49m voerTey PuBUCEA CONS SEL 
VELQCTIIFES at SPECTFIED FLELO PAINTS FOR A SET OF VIIRTICES Th TRE 
PRESENCE OF a w[hGenday Cn 
Re ALL OF THE FINS “AY AR ORERFLECTRO, SLEYNEQ HIEY THEQRY 1S USE 
TS THE CecpuTarion oF TUE C2USSFLIN VELOCITIES, 





TRE CUROT ate SYSTE: USER HERP 1S THE Boy CamenisaTe SYSTE” 


WETH TRE vesxTS AL ING THE BID Y CENTER@L ICE STASTING AT THE NOSE TYD, 


YeOxuTS Tui TRE RIGHT wHEN Liluktuts FORsARD,ZeAxXTS LP, 


HREM FIGS AGE CCESENT, THE VeAxITS FOLLS ALONG STGUT FIN, 
TSE Z2eAXTS ALONG Teh UPPEW FT~. THUS, THIS PRNGRA* BEREOR!S ale 
VORTEX Park CALCULATIONS Ts A RALLEL CUMROTNAaTE SYSTE*, 


ReakeaewawNITE? CRECTESSY FINS FivL Vawter nenkatanaarn 


DTA STON TLILE CQ). eX COOV eo KIP CSO pK (120) 
Ike SPM VXPCZUe S1e2dV eV CSG) 


COMME AVEC SAL mE EL DDoS Mae VECSII AVY CSO) GESOD SY eNlElL eo? Sy sk, 
UXtEC7YAKECTIAYECTIACUT,TIAJFIW 

Cilme ns JAE «ASAE, OT : 

CORSE SE TSRESILE C4) ,CGLUC C3 YY EL ASLE (RAV, 45 sR eM SL gt Sk MSel, 

1 MEMGEY, XTTPLE 

CHAP GEASTRE NGS KSFE (81), CGSELC CRO) ,GAYSECRO) SCH, NSIUGE, XTIPTE 
CII! APL TC SO, SEA TPL TCS te 52V¢ZPLTC 39,821 6 PLTOS2) ,ROT(3) 

® oXOQ097T,1b)V,YP2017, 34) 


HAMELTST ANE MUGS Sy ch HTP ee COT SULIT, SUT, VAT SAMS XE COPS YE, UV 


FORMAT (uaa) 
FOUMATCATLO) 
PURMATCTETO,S) 
FIRVATCERIGC,S) 
FOO aT (ee 65) 
FUGMAT C/SX,2ZOKLECAL ROY VATS 2 FINS, SK, 
1 29K al SEMY SPa: § 3 gf IN S/). 
Lt Fie AT (C4/5%,9 334 FULLiDER ArGLE OF ATTACKOGEG) & oF 10.5e 
1 2ue COLL AWGLECDEG) & oF1l0,57) 
12 bike aAT py, ¢un PANEL GFEL (VEL) t,//9X,96 VELTAIS ,F6,3, 
$ tie MEL TAZ ghirg $a 41N FELT4&3S .FA,S,11N NFLTAMS ,Fn.$//) 
21 RE RMATOSZ SIG KeSTITION STe 0b 5e9M yosbaedpnx, 
1 254 LNTEGRATTAN STe oO STZe = ,bIO S/S) 
22 EPRMAATETES SEX, PEL? 30F15.5) 
QS FURM AT CSS/ALGK, SH STEX COOURGTS ATES TS CANS SebLIIW PLANES //) 
Qe Fier aT Cs/4 56 T©JTPAL VewTEY PNSTT Tes at ¥ 3 eFo,3/) 
AT EMH AT CYONe TH VIMTE Lum, THe Ye VOT Ke png TH 2,VhTX POY, 
1 Lum aiwmasu ti gs) 
SO. FORMAT OILTELS) 


onwrren 


vecny 
vec 
vec) 
VPEOL 
vecat 
vPCul 


MISMATION aT ANGLE OF ATTACK 20 FULL, anY¥VeCnl 


vecol 
vecet 
VeCA 
veCr} 
Veco) 
VPC 
vVePCOt 
VPCOL 
vecay 
vec4 
veCoOl 
vecnt 
VPCe) 
VPC] 
vPC4) 
vecal 
VPC) 
veces 
vec 
vePCot 
VPC 


vecai 


YPC 
veca 
vocnt 
¥PCOL 
VPCud 
VPC 
veCht 
VPCAL 
VECO! 
VPCO) 
vPCat 
vOCOL 
vert 
VECOL 
VPC V4 
VPC} 
VOC 
vPC 41 
VPC 
VePCOL 
VPCSt 
VPCAL 
vecut 
VPC] 
vPcol 
VELA 


SE FOMMATOSZ/ Ok, TARCQISSFLOM® VELUCITIES AT CONTROL POINTS IMDLCED BYVPCOL 


1 VORTICES AYU THRTQ tf aGkS »/7/ 

Lame AIC LG ap Heme OV LOE ONY PAI LK OHZ RIDV Ge LIK eT HV pI OK eta) 
32 BLRMATOQN, 15,646 3h 19,5) 
mu ROE ATE REGIS) 


VPLAY 
vePCot 
VPCS) 
vena 


TOG BRAT CA/NC LHe), SORPERMTISSTALE RELATIVE ERRNYZES, USED Te LUTEGRAVPCAY 


ITTUN SCURME & GELQ9/) 


vecat 


TOY PERM AT CAAAAS CIR *) OL mSiNGUTINE CASCRU CaN SOT CATALTS Value FOR Tvelat 


2 OFrNw FNM wm 


se oe 
ewn- 


oe ee ee 
BSrnwawy 


www D 
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Vr WoO EN PSSA 


law 
ew: 


+ $% 


ww 
vs 


Seefrfrr &€ww 
GVEWN- SOF 


eee 
criw 


5) 


rows 
cw ue 


INTEGRATIC STEP 4eSUtHW)sI/~/) 
TOA FIIRGAT (CRSx,TS,2F 10,5) 
TOZ FvRMaAT C//BSX, VIMTNTEPPOLATEN VONTEY CIMOGIMATESSATY, IT, SXo 
1 e@nrv,1%y,2AH2V/) 
TON FURMAT CASA/ATXKeLCHF TE GECMETRY/LOX,LQKHFIN SEMISPAN, LIX, LHIe 1X, 


A F105, 

1 LUX, 254E TN ROUDTCHORD = oFIN,5/ 

3 VOX,eSHEIN RENT LE, XeSTATING oF 1A 57 

2 tOxX,2Sh : LeEo YueStTaTiune ,FLO,47 

3 LOX,eO“E TM TIP Lat. XeSTATI. = ,FIO.S/ 

a V9¥,25xH teFe YoSTATI-I2 = ,F10,57 

5 Lyx,eShEIN TIP TLE, YeSTATI Gn = oF 10,57 

6 10X,25H Tee. YeSTATIC = ,FLO,9s 

4 POX,2G4ETN RUOT TE, XeSTATI-ive ,FI10,5/ 

9 19X,254 TE, YeOSTATS:ivs JFLO,S,////) 


TOS FURBPAT (OKs TAp2X FAI Se LXE LG Set XeFk tS) 

TOK FORMAT C////190X%,e2OrFT*: LEADING ENGE VORTICITYS 
1 SX, SHILE SOM THX MXetuetY OR 7 BAR, Er, 1LHGAMMASVTNF,/) 

TOP FORMAT C///AL0Xe ASHE IN SIGE EDGE VURTICITY/S x, SHISE OX Pp LHK 6 TXe 
2 AAV IRF BAR Arp LI MGAMMASVINE LS) 

TUS FORMAT (15,3K12.9) 

T46 FORMAT CISsSEL12,5) 


c 
c 
Cc 
RANSS,14159926/180, 
Cc 
c 
C oeosoeeoes [neut eoveenecere 
Cc 
99 REANCS.VITITLE 
TECFOR(S)9205 
3B CCMTY WHE 
c 
C ge GEEMETCY ,, 
c : 
Cc 
C “Sse 0 BOCY SECTIONS *[TH DIFFRTERT GEOMETRY 
C NES 3 OF COQNER POTNTS GF CHUCIROR™ wING SECTIN'§ 
C UO 2 DF Ke STATIONS PRINTED Le cuiTpUT 
C KES K VALUES AT THE FSR OF EAC’ aNHY SECTION 
c Ca CHPFFICTENTS IN THE BONY GEUHETRY FOUATICN 
c KF eVFs Xx Ang Y HIODS NF THE FIO BREAK IN SxEFO POINTS, 
C NATFE BHEAE FINS ARE MUMBERED LSTOP, PSRIGHT, SaROTTI4, USLEFT, 
Cc 
PEAN(S, GUS NE NIPSNCOIN, WVLOUTS SOUT, TPLT 
RPEANCS,SIVCKE CI). LE3,NS) 
REAL CS SIVCCCET Je Sate Fol eteS) 
IFCSE PED) FEADCS, OV CXF CTY, YF CIV, Tei,Ne) 
c 
c 
c DETER™PNE DISTANCE FANM HODY CENERLIME TO FIN TIP(SSEMISPAY) 
c A'R KeLNCATIONS UF FIN TIP LEAUING EDGE AND TRAILING EDGE, 
C tat 
TE (NF ,EG,0) GO Th Ba 
vuaken 
CRESSQRT OCCUR CME DP OXE (CY) ROKER (CVF OIE CEL OCYE CVE OVE (LDA CYE CE) @ 
1 YF(11)) 


Mi Ay JTRVSNF 

IF CYECTI GT, YeAX) YoarsvF(T) 
AO COATISUE 

NEFMIsSNE of 

eer By TSt, she 
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vecel 
vVePCN! 
vecal 
vbC+1 
VPCOL 
vPcni 
vOCdol 
vPcol 
VPCul 
vecont 
VPC. 
VPCOL 
vVeCOL 
VPCO} 
voCrt 
VPCOL 
VPCOL 
vecot 
vecal 
VPCY2 
VPCOL 
vecol 
VPCOl 
vecoas 
VPC! 
VePCOL 
VECO 
VPCNY 
vecoal 
VePCuod. 
VPCNY 
veCul 
VECOL 
vecol 
Veco! 
vePcot 


99 


vecAl1oa 
VPCOVIOL 
vecoiio?g 
vecar11o03 
VPCO1104 
vPCO1105 
VPCO11C4 
VPCOLINO? 
VOCHYINA 
VPCAL1I09 
VPCO1150 
VPCOLLEI 
veCcotii2 
vecorii3 
VECOVING 
VPC91ILS 
VPCO1L116 
vPCI111? 
VECaiiiaA 
VPCOLLI9 
VPCONI 120 
vecoisal 
veCniie2e 
vecrii2$ 
VECHILAN 
vecat12s 
VECNI126 


MAAAMAANAAAANH 


-aANaANNAAAANADA 


ANAAANA 


aannanan 


at 


Re 


yPrstet 

TE CVF CTY ED Yeon AYR VEC TPL) ER YRMAK) GM fii AQ 
Te CVFCTY,EG,YYAX) GO TO BS 

COMTEVUE 

Gi TA AG 

Tarst 

[MAxPI oye! 


 XTYPLRSre (TAX) 


ae) 


Ag 


a 


vTYOLEsyeCT“AX) 
XTIP TRE SYA (Torey) 
VTPOTE SVE [Ane TL) 
Gee of ka 
XTTOLE SVE CTMAXRY 
XTTOTESuTIOLe 
CUNTINUE 


VPCONLI27: 
VPCNI12A. 
v>Co1129 
vVPCOLES2 
VPCAL1 S$! 
vPCait3e 
vPCH1133 
vecorr3d 
VPCO113% 
VELOITLS4 
VPCO11S? 
vPCNI13s8 
vecoi1139 
veconyyan 
vecoii4) 
Vecat ae 
VPCAL}243 
VPCOl1484u 


ALFAC eINCkUuSeD ANGLE OF aTTACK, PHTSRNLL ANGLE ROTH IN DEGREEVPCAI14S 


DP,R2,03-UG AWE Fy- OEFLECTI'S IN DEGSEFS, 


FINS 


ES s CERMISSIBLE RELOTIVE FRRUR IN THE BATH INTEGRATION 


READCS,AVALFAC PHT OL PAs 3,0 as ES ep VRIMAX 
TE CVRTAAK EG G9) VATMALEN, 3S 
HIESARS (DE VF4KS (02) eAKS C$) FAS (Fa) 

MEL st 

TE (HT NEU) MOELSI 


POSITIVE THAILING 
ERAGE OOeN FOR HOP, FINS,TRAIL ISG EDGE TO THE RIGHT FOR WERT, 


VPCO1144 
VPCO{a? 
VEOCO114sa 
vPca1y4a 
vec y11590 
VPC GVIS1 
VECO1LLS2: 
VPCOLISS 
vPCO1154 
VPCULISS 
vPCI1155 


KeSTATIGUSs IRTEGRAT ION TaFG, @ ESTVSAL VARTEY PENSITIO:S AvO STRENGVPCOL1S7T 


Svvos TOTAL “UMSER OE VURTICES AT RACH KeSTATION 


CEAC(S, SOV CIVVET A TSt,NEP) 
a vetivu(t) 
MVMAMENVVC(K[P) 


PEAD Tu C¥NSSFLO* 8TORTING CeChO PV aATES Asn) STRENGTHS FOR ALL 
VORTICES MEGAROLASS FE THE YeSTATION AT enTCH TREY START, 
THIS JNEIS “UST HE (MPYT FUR TASCREASING KeSTATION, 


HERE Seco V ECT) gg VOCRN TATE 
vVv¥¢( Uy, caCieryuate 


GOD ee GAMBA ULE Chur VE RCLOCK*TSE POSITIVE, 


whE YEEwTNG FOQ AND, 


READCSS7VCVKCT oe VYCL GCIs Lely VMAX) 
moo AR TRi,cv 


_ fseafet 


Kassel 
VuBCH,tT»,Vavx(t) 
VXPCUstT,2yavy(T) 
KC Py suxeyy 

MOCK avVET) 


WJRs vo VALUES BT THE '1P AOSTATTI GS AT emir CYTOUT BEAM, 
FIRST VALUE FOR 4] Car BR AY NUMREG LARGEW THAb. 


I'TEGQATION STAQTS BT NT&Ct) 


INTEGRATE: STER STZE DETFOMISEO HY SASCOU,,,H 


vPC01153 
VPCO1L15S¢S 
vePC 1149 
veColtat 
VEOCNL 162: 
vecattes 
VPCOLIA4 
VPCI116S 
VPCO1{oOA 
VPCULIn? 
VOCILT16A 
VPC01169 
VPCO1170 
vOCOlr7t 
VPCO1S72 
vPCNV1L7S 
VPCOLU74 
VEC OLATS 
VPCULITA 
VPCoL177 
VPCNL{74 
veC 1179 
VECAL1 aS 
VOCALIAL 
vecotiAe 
vecoti8s 
VPCOLLRe 
VEOCAILAS 
VPCoOLL as 
VPCOLIAT 
VPC 1.118 
VPCILLS9 


415 


416 


aa 


AnannaaAaanaAn 


-anNaananana 


"aAaAN 





REAN(S, OVC KTIPCTY eI SI, 21P) 


ASITE Cost) TITLE 

Te Cur NEO) : 

tewITE (5,704) VEAX, CHE, KE CLD, VE CLIO XTIPLE,YTIPLE,*TIPTE,YTIPTE, 
$ 4E Cre, VE CE) 

ARITECOstLVALFAC PHT 

ePITE(hsI2)O1L 928,04 

TE CNOUT E.G) “RITE (6.0ESUG6) 


WEAR ruMRERS OF FIM LESDTSG EDGE VORTEX JeEM STATIONS XLE FOR 
FACH FIN, 

FOR EAC CLE STATIONS, 29640 [IN VRAR "R ZHAR(CECGLOC) 4D STRENGTH 
NF THE VARTICIVY LVISTEYRUTION, 


NOTE? THIS VOETICTITY 13 FIXED IN POSITION IT AFFECTS THE FLOWFTELD 


NOYES XL€ 499 ¥SE ARE KEAN TM IN THE FIN COORDINATE SYSTEM AND 


14 
19 


Must BE TRANSFORMED Tr BODY COORDINATE SYSTEM, 


READ (5,4) Y94Re*Sul yr Sys 4S8wD 
NE OGVEMS+?Re'SwheMSaliok Ged 
Te CeEOGV F961 GO TN 19 

REO C557) CXLECTFVI  CGLOCCIEV) .GAaMLECIFY)» 
1 tFvs},*FOGV) . 
WRITE (4,766) 
OC 15 JLEsL.,SEOGY 
MLE CILEEXLECILE nF (1) ; 
wO8ITE (4,755) ILE, XLECJILE),CGLOC(JLE),GAMLECILE) 
CONTINUE 


READ mitit hE GE FIN STA EDGE VORTEX INFOQ STATIONS xSE FOR EACH 
GIN, : : : 


NOTE? THIS VOFTICITY FS ©TKED EN PUSLITON IT APEECTS THE FLOWFIELO 


1a 
ta 


FIR FACH ¥SE STATIG.. PEAY IM YnaP OR ZBARCSCGSELL) ANA THE 
STRESETH OF THE VORTICI YY OLSTRTSUTECiN 


ORAD (5,4) Cw 

“GINGEsuatiCr 

TE ONSITE ,FEQ.0) GA WS 1B : . 
READ (567) CXSECUSE),COSELC(JSE) -GAMSE(ISE), 

1 JSF 21,“SINGE) ; : 

“RITE (o,707) 

00 16 J5FS1,NSTOGE 

XSECISEISKSECISE) OXF (1) 

PATTE (6,715) JSE,XSECJSE) sCGSELCCJSE),GAMSE(CJSE) 

CNTY YUE 


aWITE (6,700) &5 

WRITE (6,29) 

wHITE (A, 26)xTP (1) 

COLL SHAPE CXIPEVIS*E NE, SLCC) 

wPITTE (6,97 PLNCSSL IC 

wRITE (6,27) 

YPTTE CO, 221(LoevXCL)ovV Cb eG )yob Bterv) 


CONVERT ANGLES FO SanTang 
aC wal Fal en ad 


WE SPRT a OAD 
PHI SAE 


vePOCULI9OA 
VOCILIGS 
vPC91192 
vecni193 
vPCNL{aa 
VPCHOLIISS 
VPCOL1I96 
vOCoO1197 
VPCOLL9AR 
VPC41199 
vepcai2no 
vPC1201 
VPCI1202 
vePOCALacs 
VPCO1204 
VPCAL2AUS 
VPCuL206 
v°C41207 
vecoi2oB: 
vecoy2c9 
vecatey19 
vVPC91211 
VPCO1212 
vecoter3 
vPCN1214 
vPCOL2ALE 
VPCOLl216 
vecaiai7 
VeECat2i4 
vPCOLaIs 
vPEn122e4 
vPCI12e1 
VECNI 222 
VECOLRAS 
VPCOUlZad 
vPCI1225 
VPCO122h 
VPC0I227 
VPC01228 
veEC01229 
VPC51230 
v9Cco1231 
vVPCOI252 
V2CH1233- 
VPCO12 34. 
vecata3s 
VPCO1234 
VPCol237 
vPC01234 
vPCui239 
VPC43 2405. 
VPCOL2d4 
vetnt2ua 
vPCO1240$ 
VOCcoleua 
VPCO1245 
VPCOL2dA 
VPC {Qa? 
VOCI120AR 
vPCN1209 
VPCA1A54 
VPCOLeS! 
vocs1252 


aanao anaANnNNn Aa 


aaan 


ao 
C 


oO 


Nyenise@an 
NeSNeeQan 
JV$sh §eran 
Veshaae agar 


ALZASTIN(ST CALI MCOS CRE) ; ea 
" RESASINOSTNC AC) SIA CUE)) ; | 
eee COMPUTE VORTEX PATHS USI*G D&SCHwH! INTEGRATION SURRCUTINE ceueee 


SIP {s-peel 
MEXTO(P Ler TPC1) 
AQ 20 Tstet “TP Y 
Tistet 
SIVSENVVCT) 
wVANeMUV CTE) 


“NVIsuvel 


Qa 


29 


358 
39 


hsewv 
atexrect) 
WImxyTP(tTe{) 


CELL RASCRUCAL, BL ete, Vile TEP SES, VRTMAX) 


TF TER GREATER THA’ S$2.NASCW “AD TRNYRLE GETTIAG STFP SIZE, 
THE ,CATHEQ THAY COM TINUING, ‘Tn IME INTEGOATIN®, STOP uo 
REQUCE KRIPCQVOXTECTYANN RERUN 


IF CIERGE.32) GO TE OR a 
90 1 2a “ 
wOITE (6,703) : 3 : ; 
STP st 

CONT PSUE 


ADO THE Es VORTICES Aum TrETS PUSTTIONS FOR. THE TEXT KefNTERVAL 


TECive FQ,4VvIGN Tu $9 E Bowe 
NO 3S wlanvighvn 

ILe2ente) 

KXBIL Se 

KOC I Yevn Kd) 

WOCKMyevY (KE) 

CONT Te 


NUTPUT VNBTEX PUSITLIOALS ak CONFIGURATION CHARACTERISTICS AT “THES 
STYATYON, ee te 


MOTTE (CO ,ANIT LHe 


3av 


CALL SwADE CHL,SLUC.5I CC) 

“RITE (9,9) PLOCZSLC 

WRITE (H,27) = , 

M3 23 Lsr,8 VN 

JE2wtal ‘ore tar 
KBSe] Ee. sé } ; 2 zs 
V¥OCTI,1 VI IXNC)) 

VXPCT Let, 2 SKN0K) 

WRITE CH 22M KOCS) MOK) 6 601.) 


E VORTEX LUCATTOn FUR PLAT 


Ove: Teele! 
XPLTCT,JCV}SAI 
YPOL TCT, SCV SEKI) 
ZOLTCTe ICV) SNlicn) 


¥V9C31253 
VOC)1254a 
VPCO1255 
VPE01256 
VECAI25S7 
vPCn1aga 
vPC01259 
vVPCN1L269 
VPCO261 
VPCAI 262 
VPCO124$ 
VEC) 12b4% 
VPCOQ1265 
VPCI1266 
VPCO1267 
VEEL 2b 
VPCO1269 
VPCN1279: 
vPC%1271. 
VPCIL27T2 
vecole7s 
VPCOL274: 
VeECO1L275 
VECO12ATA 
VECII277 
VPCN1L2ATA 
vPC01279 
VPCOL284 
vVPC9L281 
vPCA1282 
VECNL 283 
VPCO1284 
vPC 01245 
VPCOL2A 
VPCQL2R7 
VPC01288 
vPCO1289 
vPco129d 
VPCOL291 
VPCAL292 
vPCo1293 
VPC%1 294 
V9CN01295 
VOC01296 
VPCOL297 
vPCo129a 
vVPC)1299 
vPC01309 


VPCOLSC1 
VPCNI 32 
VPCN1 303 
veCoI3o4a 
vePCA) $05 
VPCUL $04 
VPCO1 $07 
vOCGL$0Oa 
vPCO1309 
vPC%1399 
VOCAL sit 
vPCN13t2 
VOCILS13 
VPCOL3La 
vOCI1315 
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23 COMTINUE 


¢ 


c : v9C91 317 
C SAVE KNOY PONENTS FUR PLOT VECOI3IA 
C : : VPCO1 $19: 
XPLTCL, 19) =Hl “vVPCO13$20 
VPLTCESTAVSRLOC VPCOL321 

ZOE T CVs TL VSRLOC VECNI 822 
YOLTC2, 11 )=5SL0C vVPCOLses 

20 CUNT SUE VPCa1 324, 

Cc. VOC 825° 
C PLOT VoRrTEX LGCATISNS ~VPCOS326 
Cc “ ¥PC%1327 
XPL TCT, 1YSKTP C1) VPCHl 328 

TF ¢CTPLT ST.) vPcoi3e? 

« CALL PLUTVSCXPL TS VPLT, ZOU Ty PLT pH IO LG NVNs SN ,RUT OXF o VE, NE KPA, YP2)VOCOL3SS 

c . VPOCOl $3} 
Co, CRMPUTE VELOCITIES AT THE SPECIFIES CONTROL POINTS INONCED BY MV vPCO1332 
C EXTERNAL VERTICES AND THEIR JPAGES, VPC91333 
C ° veECO1334 
c vPca1335 
C NTRS TE CONTECL PGINTS aRE PASSED THRANGK BY MEANS UF A HATA SET VPCAL SSA 
c T,E, “HE uCPIN IS NOY EQUAL TD UD INDEX NCP IS READ IN FROM VPCUL337 
Cc THE OATA SET AL SQ, ; VPC91 539 
C NATE SXeCNNRET ATE OF cuNTROL “payet MUST THEN BE TRANSFORMED 11) BODY vPCn1L339 
c COORATSATE SYSTEM, VPC91300 
Cc THIS IS 4 .E HELGw, vPCN1ss4t 
c VPCO13a2 
Cc VPCOLSU$ 
NCPS0 VPCO1344 

YF (NCPIN,YF 1) REWIND 4 VPCOL3US 

IF cn: oe 0) REwIND 7 vPCO1 $45 

Te (NCOTAAES, ay GD ™ 72. VPCOL3G7 

IF (CPIMN,*E.U) SEAC (4,745) CP VPC01348 

IF (ENF (4).%E,9) GO Ti) 99 VPCO14$a9 

Gu TN 73 vPC91354 

72 READ (5,4) “CP “VPCO15S1- 

73 CONTINUE VPCNAI352 
TECICPLEQ.0)GG TU 99 “VPCUL3SS 

ARITE CH, 5!) /VOC01354 

OC 69 JListence VPCOLS$S 

TF ("CPIN,ERQC) GU TO 76 ‘VPCO1356 

HEAD (4,715) TOOCPXsCOY.CPZ VPCO1357 
CPXSCPxrerF (1) VPCO138S4S 

GN Tn 71 vPCo13$9 

7H REAN(S,60ICPAOCPY,CHZ V98CF1 809 

T1 CONTINHE vPCO1361 

c ; VPCOL $42 
Coe DETERMINE THE XeSTATIUMNG ALJACENT TO TRE CONTROL POINT VOC OL363 
vOC91364 

OM ot Tst,vIP VPCOL365 

IF (COK,LTeXIPCI)) GNA TA 49 VPCN1 346 

Jsto} VPCO1 S67 

TF (2,F2,1) Je) VPC01365 

IF (CHK LE, XIP(IIIGON TO 62 VECNI3H9 

4} CONTISHE VPCO13870 

c ; VECNI371 
C NETERMINE SY TH TERPPULATING (mE POSTTTUS TN THE CeANSSFLAw PLANE UF ALLVECN1372 
c VORTICES AT EACH STATING CHK, VPC01373 
c VPCO1L474 
02 K8J+o1 VPCOLSTS 
Kisxror sy VECOL3TA 
x2axyP(K) VPCOL377 
oTin(xeaeC Px sf xeeoert) VECIL3TA 








VPCO1315 


PAs 


ae ee 


aAANANaANIANNaANANAA 


AAD 


aan 


aT2s(CRKeKII/S(xeeXt) : VPCN1379 


MVBNVVOSD) VPCOL3AN 
CALL SHAPE (CPx,¥B,SL) VPCO13A1 
TF CHT SEO) eRITE (6,745) : VPCOL SAQ 
MM eZ Tet,tv VOCII ZAR 
VXCT)SHeTLavxP( Se letrerTeanvul las tei) : vPC II 304N 
VYCTISSTLOVEPC Te Pe 2 ouT2evaP(K,1,2) : : ¥PCO1$85 
TE CST LEGO) GO TH 44 VPCIL3RS 
RITE (a,7C2) Love (Id,v¥CE) VPC O13A7 
AS CONT Se ; . vVPCIL3HRA 
d .VP8C0TSE9 

SURRATIAR VVELS CALCHL ATES VORTER VELOCITIES INCLUNAT GC EFFECTS VPC41 $90 
Btie THAGE VWIRTICES, CRITE R VIARTEY EFFECTS ARE OMITTED, VPCO1L394 

; . ; vPC91392 

CALL VVELSOC V,COV COZ vee VV eo GeRAg Vy, VQATAAXY VPCUL $93 
WRITE CH, 32) SLECPxeCOeeCPZ Vee : VPCO13940 
TE CHVL MITE, 9) GO TH 9 cain ; , Z VPCO1 395 
Thee Ue Ys, S _ : eS VPCO13%% 
AQETE (7,760) 1C,COx,CPY,CPZ, Ver * VPCA1397 
69 CONTI SUE x won ee a, VPCN1 $98 
Gi tn 99 Sa oe VPC41390 
2stor -3 te _ : VPCOS409 
Evo 5 eed eo VPCNL4OL 
SLBOWITTNE CRUCTONC Si, Xp %evSe%3) : vecne 1 

. veco2 2 

VERSIONS VPATH2 : vecn2 3 

=a ; ; vete2 & 

vPCN2 § 

aye R&R Ox,Y) OS Anew DPuaTES ITs Teé CHUSS FLX PLANE, VECC2 +4 
THATS Suen y 6 COMPUTES THE CROSSFLUS VELOCTTY COMPOLERTS AT A PAITNVECH2 7 
(%eY¥) QUE TO THE PEPLECTIGN OF A SINGLE FIN Te & WING @ BODY COMBINAVEETA2 8 
THE ANGIE OF DEFLECTIUN 13 9% PADTANS Ant THE FIN THAT TS PEFLECTED ITvecne 9 
IDENTIETED BY THE Comk nc, IF *-Col Tek RIGHT HORIZONTAL FIN TS HEFL VPCO2 14 
TR »CS2 FTC, sE Ceur th COUNTERELIICK MISE, » NUMFETCAL TSTEGHVATION TS UVPCIe 11 
DETEGMT E THE VELUCTTIES . Thr af CeRACY OF TNTEGRATIOC® TS GETERMINEDVPC2 12 
TRE TOLEQAPCE Tet © Le THE DATA STATEHEST, (A POT"T SEAR THE KONY REVPCN2 Lh 
MANY INTEGRATIUM POINTS, TRE SCHEME IS SINGULAR 0% THE BODY, vPC92 14 
veCIe2 15 

COMMON SAL KIA Re SePl ell veche ts 
ChMANs Aa, STGeSSeG4* , vpCne 17 
EXTER AL ECT vecoe 1A 
COMOLEX CP,TAU, TEs TPA, SIG+ SSE GP, kG, TI VEL, T22NSDT, THQ, 12, Ted, vPece2d 19 
16T, T21eT22,STP, Tan vecod 2 
DOTA TOL Sues vPCn2 2} 
sCaeq ae : veCIe 22 
KEX/SCA ; VPCC2 23 
Zv/3C8 . vePtne 24 
AZ=A/SCA s ve ‘ . vPC92 25 
AAsARA VPC? 26 
Bees SetCrs (aa) VPCO2 2? 
GOhis, VeGar me Juke : : . ; VPCv2 24 

: ee VPCO2 29 

TRANSFEQQM XZVY PF PREOER QUALR ANT , vPCo2 3 
vPCo?2 31 
THRELOATEMColL) aPl/2, : vPC0e $2 
xSAXKaCNS(TRIOVeSI* (THY : vPCae 33 
VSeve(as(twyexeaSIv( TH) . . . vPecon2 $4 
TALSC “PL xC¥S,4RS(YS)) , veC%2 35 


TYsTalleTac vecon : 
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aonannana 


22 


21 


33 


~ GOTH 3S 


31 


TPASITeAAnAasTT 
T¥2=eTPAm2, 
TRASTPASO, 
TECST“AG(T*2),GE,9,) fee CSUMT(TH2) ! ; 
TF CATYAG(T2) LIAO, Te 2selSGkT(TH2) , “oe 
IF CAP“AG( TPZ) GE,0,)TP23 CSIRT( TPA) 
TFECATMAGCTPPI LT 3, TOAB MeL SNRT( TRA) 

TPUZTOZet Ne ; 
SIGS, 5#(T424TP2) 
SS=STGeSIG 
EGPSCEx9 (CI *Gam) 
FGsa1,/£GP 
Tishel(S /(SIG*EGPI@1L s(SIhetGy)) 

xGstlo 

T20SC*PLX(9.09,) 

TALESIMP(N Se GAM ANGePET) 

IF CCAP SCTALSTAU/CAKS (TALIA T,TOLIGO TH al 

TF (NG.GT, 3000) vRITE (0,5) 

TECNG,GT.$U90IG9 TO 21 . 

FORMATOs/® SUHRY DOES NOT CONVERGE IN CRUCT #/7/) 
NGENGe2 

T20RT?PL 

6 Tn 22 

T2O0SCHMPLX(O.09,) 

NGB220 : 
T22R28T4P(GAM1,G4A",*G,FCT) 

TE (CA8H(T22@Ten)/CaAns(T22),_T,tLiyGa YO 31 
IF ONG, GT, 3900)4RITECH,5) 

IFCNG,GT,8600)G0 TO 34 

MOSNGaD 

Tenet2?p 


7 


x? 


CONT TNUE 

T2esTatete2 

NSNTS Se(FAveAAaSAS(TTeRTAli)) ef TPAeT4D) /sTPY 
VELSDeNSATH(CTLeCleTessgRrit(2,)I/PI 

VenFar (Vt) 

vised T4AGCVEL ) yo ; 
IF CYS,1T,9,)Vse0v aie eG 


RATATE VELOCITIES HacK 


VSSVaCNS( TH) ee eSIN (TH) 

WSEVARST'NCTH nel OS( THY 

ABARSCA 7 
X2XeSCA : 
Vevesca 

DE TURN ota 

FD : dan ean thon 


SURRQNQUTTNE NasScRu CMe Rg her pXOeHK,TER,FS,VRTMAL) | 
VERSIONE VPATHD 
THIS SUBRAUTIVE PEQFNRMS INTEGRATION 


ES SHNULH BE SET 19 5 TIMES TRE 
PESTRER RELATIVE PRECISION JF 


veCoe 
vecoe 
vecie 
VPCNe 
vecee 
vPCs2 
vecie 
veco2 
vPCN2 
veC%I2 
vPC92 
vecoe 
vPCC?2 
veco2d 
vecn2 
vePcoe 
vecoe2 
velne 
veco2 
vVPCh2 
vPcne 
vPCH2 
vPCS2 
vOCh2 
veco2 
vecne 
VPCO2 
VPC 
vPCne 
veCH2 
veco2 
vPCh2 
veco2 
vecoe 
vecaa 
vecb2 
VeCC2 
vPCoea 
VPCR2 
vecoe 
vPCh2 
VFC92 
vecee 
vPC0e2 
vPCco2 
vPC02 
vecoe 
vePCne 
¥PC0e 


VECO 
vPC1S 
veces 
vecas 
venus 
VeCNS 
vPCO 
VPC 


aonmwrii cw 


oo oo a' an 


AMS 


aAaAAAN 


yn 
15 


ray 


NIMENST IN 
Tt TEGER Se 


LEGICAL 


THE SOLUTION 


SECTS KOCTY 


OE, RH,“A, KX 


mata LE Rp PSPS, THREE FOURS US  gSeleSeSerde/ 


ThRQ@ 2 4 
IF CA @ AY 
TAL Ruen 
THeesthier 
HYINSO SUL d4S(m) 
bes, TOF, 

ROs TRUE, 

BXs, TRUE, 


S,1d5,e 


MESTGN(4BS(4) eA) 
XSA 
xXSex 
M310 Jeter 
TJkasmes 
aw (TISO0VSKOCD) 
COMP Te 
“Ssh 
R2zvernen 
HER, TONE, 


TEC MIT CUM SGT, ZE RN, AINA GE LER, IP CHLT, ZEQNAANN GG, Peete iad 


{ gn fF 20 
wsReXx ¢ 
Ba, FALSE, 
H3SH/THOEE 


CHECK FOR THE e@RNPER g1G" OE H 


CALCULATE SOLS, AT Ken 


HOTEE AQWOY an CONTATUS V FOR ODO THNEx,» rg EVEN INDEX, 


a5 


$n 
35 


ao 


as 


Mo 99 Swsl,5 


Cate FORO 9 Ky he hq VRTEAKY 


my 7% Lester 
Osh Saad (1) 
TUsCarvel 
TUKialidiels 
TIK2eTHA61 


GM Tt (25930035, 60905) ,S 


Oa 

ox (taatiaG 

6G TO So 
PaPBha(QeukK(1Je$)) 
6% Th SA 
RRETHNEE wt) 

-€ (TI 2} ar 


Os, 37Sa (Roan ( LIT)? 


69 TH 8A 


GBaK CIT SAL oF OURS 


ae (TUK Yak 


RENPSe (Genk (1JK2)) 


GM Th Se 
OePoa linear (JIK1)) 


vPC43) a 
vernas 14 
vpcos 1) 
veces 12 
vPCSs 13 
VECI3 14 
vecos 15 
vPC4o3 iA 
vecnas 3? 
vPCo3 14 
veco3 19 
VECA3Z 20 
vPCG3 21 
VPCO3 22 
vPcos 2s 
VPCOS Au 
vPCA3 25 
VECNS 24 
VeECO3 27 
VPTCNS 2A 
veC93 29 
vPCo3 34 
vVPCQ$ 31 
VPCHS 32. 
VPCOS 33 
VPCN$ 3a 
veco3 $5 
VPLS 34 
vPC03 37 
VPCOS 34 
vPC1§ 39 
veCy3s bd 
VPCIS at 
vPCH$ 42 
VPCO3 4% 
vePCO3 aa 
VPCNS 4s 
VPCuS bh 
vPCNS 4? 
veces 44 
VPEN3Z 49 
vecos SO 
vPc3 St 
vecns $2 
vPCNs S$ 
vecos 84 
vePCOs 55 
vecos $6 
VPC4S$ ST 
vPCo3 SA 
vPCo3 59 
veca$ 69 
veC43 o1 
vPCN3S 62 
VPC.3 65 
VPC)3 64 
veces #5 
VPC.S on 
vPC2S$ oF 
vPC.3 68 
vVECG3 #9 
vecaos 74 
vOCAS 71 
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St 


aM 


aan 


AANANnHN 


55 


of 


65 


To 


75 


ial?) 


95 
on 


aA 


95 


100 


10S 
9005 


422\ 


WS BAS (ee | UPGe( een tJK2))) 
wo( Tend (1 Ia} }e0 
TECSa st 5) GY TH 74 


auTEYATIC STEO CHANGE 


6 eahS§(x0r!)) 
asks 
TE(E,GE1,€°3) Ask e£S 


TEST 2dUSTYE NT OF THE STEP 


TEC Q.LT.° 
HOS TRU, 
Rus FALSE, - 

mesoOSean F : 

TEC AnS CNY LE Hep) GU Tr OS 


et eC NOP, Bx) GN TH 65 


THE STEP [S$ HALVER RESTORE x a%D XG, 
AS) GO BACK FORD 2PRPEATED TVTEGRPATION 


sITm THIS SEW STEP 


MSSIGACL em) emmype 
Bxa, FALSE, 
ON hy Jats” 
TIKOBNeJ 
wOC SISK CLIO) 
Cust] ve 
ysxs 
67 mH 15. > ' 
TECI GE USICSew) RES FALSE, 
COMTI ue 
GE TE €7569%040,455,993 68% 
Mavens 
6f T) 99 
wereOSans 
GQ Tr 90 
xSxeoPSon 
COT TNE 
TEST A PUSSTALF HOVBLIDG NF THE 
TEC NNT CHE ATD MH anN HRY) Ge TU 9S . 
HEHE} 
Axe, TQHE, 
Ame, TRUE, 
TE CSR fn 
mEHg 
TECRK iia, 
teR = 85 
Gij3 TQ 92905 
“G4 105 Tate 
MECTIS7ZE9N 
FONT TINUE 
RETURY 
ENO 


™m 5 


4—E) GO FN anus 





STEP 


vPC3 
VOC%S 
vec 
yeCrms 
vOCO3 
veces 
vPC4$ 
VPCn3 
VPC) $ 
vPCA3 
VOCS 
vPC93 
veCo3 
vecgy 
vecns 
vecns 
veto$ 
vPcr3 
VECXS 
v9C93 
veces 
VeECIS 
vPCQ3 
YOCCS 
vVeECRS 
VPC 
vecos 
veCys 99 
vPC%3$109 
vPcrsiy at 
VPCA3p0a 
vPCOS1ICS 
VPCO$IN4G 
vPCa310S 
VPCIS104 
vPC*S$167 
VPLS 
vPCA$199 
vecasi44 
vPcasitt 
vecosyi2 
VOC ISLLS 
vecostia 
vPCO3S115 
vPCCS116 
vecasii17 
vPCuS5t1s 
vPC 5119 
vPCos$120 
vecosi2t 
vPC S122 
veC95123 
vPCN$i2e4 
VPOA3125 
VPCISI25 
vPCosS127 





aAgaIaAnNIa 


MGAaANAIANNnAN . 


SUBROUTINE FCKGe Pst pad VRTMAN} 
VERSTONG YPATHO 


THTS SUGRAETIAE TS CALLED BY PASCRU TH CAaLCuLATE CROSS FLO 
PLANE VELOCITIES 


COMPLEX CLIeZeFCT, Suse Z 
Chem gvEL SAL GK. Oly NAS p04, v¥C509 0040500 08 sare, NEEL p\SeNP, 


“YME CTIA YE CTI AVE CTIFE (TAT STE TS. 


AAA 


wn 


$1 


17 


COVA seL KAA ee SePl ell 

CEMEOR SAL MK 278C, PHT : 

CAM HON PE TLE JEL E (80) p CGLMC (BD) pGAMLE LAD) »¥SoR, MSul gMSriie “8205 
1 <ENGV,XTITPLE 

Coma 73 TOENGSXSE CBO), CGSELC CAG) »GAMSE BOD Nek, NSIDGE , ¥T-TOTE 


Os 


NISENS TON LOCL OKC VCS eH OSOD DVM CSOD gH CSOD NCEA) 


EXTER AL ZeFCT,SIMP 

ClscuPr KCOeet,d 

PIsk,.14159265 

OHO ABR Talae®¥ 

Jseapo} 

KSJel 

vectjyexne J) 

vY (PT S¥O CK) 

C4ti, SHAPE (PX,a,S8) oe are 


TEE CUIRMTNATE VEEL) TS THE VenhO@NT ath IN THE CRASS FLUE® PLASE, 
CUMPRINATE VY¥CT) [8 Te ZeCOORD Tate IN TRE CROSS FLT. SLANE, 


COMPUTE VELOCITIES Tu THE CROSSFLUK PLANE ,,, 
VET) TS Tr THe YeNTRECTIIN, 
“(7) TS fu THe Zeotrectro~, 


RESARTC, Sa(SeSehewu/(Se3))) 

AQ 31 Jst,s 

ccc sis 

TECAL MFO. CCOI EL 

TROMP ECC 2041 

TF (OREO, NCCCSISI ; Mace 
Je (Da NE,O,I"CCC4)at 

MMenecl (2) sal ( 4) 

“VENCOCTONCOOS) 

nn £90 Tayerv¥ 

XSvxry) 

yevy(t) 

VSS0, 

¥ 330, 

TECAL SNE, OCICALL PITRE CAL exe Ve VSe4S) 
v(T)avs 

«(J)2-+s 

IPE CREER 2,969 TO 4? 

CALL PTTQI CRE Ye eK eVS,eS) 
v(T)av(ljend 

“(L)ys-(T)ov§ 

COT Ee 

TE CUNEL gt Ve eK OSIFIN EG IIG Tu ho 

TE CHM EN AIG Ti’ & . 
TEC 46,1960 TUS 

CALL SVMF TN OL ep NG Ke Vg VS_*S) 


VelLysvelrevs 


VPOCN4U 
vecog 
VPCAYG 
VPCO4 
vecog 
vPCAY 
Veco 
veCod 
vPCOd 
VOPCAYG 
vPCt4 
VPC 
VPC3G 
vPCou 
vVPCnY 
VPCOG 
VPC 
vPcoa 
vPCuG 
VOCNa 
veOCd 
verona 
VPCO8 
veC08 
VPCNG 
veova 
vecos 
V9C04 
vOCou 
vePCoe 
veOCOa 
vecns 
vPCNS 
veto 
vVPCOSe 
VPC 
VPCOe8 
vPCcoa 
vPC44 
vPCog 
vOCo™ 
vPCa4G 
VPCCG 
veco4a 
veCcoa 
VPCOU 


- VPC)G 


vPCiu 
veCoa 


“ yOCla 


yPCio 
VePCO4 


“ yeCog 


VPCNG 


- vVPCOG 
_vecna 


vVPCAS 
yocra 
vec ja 
VPC*%4 
VPCOG 
veCoa 


“ vePCIG 


“CLysnC1ye0$ ; VPCA4 &h 


S CONTINUE VPCOUW 6§ 

TE CMH,EO,2)69 TO 8 . VPCNY 66 

TE (SCO C2D ENA) CE! j : VPCOU 67 
TECMEC CED EO, 1CSS ; VPCud 6A 
TEORCCC2),F 2,1 URN? : : ; VPCOU 69 
TE(NCC OU) ESI VENSORG voce 7D) 

CALL CRUCT ONE o 09 Xe VesSeeS8) : : vPChu 71 
VCTJsvETI4eVS VPCNG 72 
“CLse (Lyons : : VPC4O8 75 
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THIS INFO etST be Tut FAR TNCREASTING xKeSTATION, 
HEPES eee VXETI,  YOLQURNITNATE 
V¥CTV, ZeCOURsNTe ate 
BOD Veg AMM As THF COUNTER RELOCK WISE POSITIVE, 
wMPN VIEWING FIRE AKD, 


DEAIDCTATICVECEVAVYCLI,GOL) sTatsveany 
Tot A fat,Nv 
Jzeete} 
Kgde! 
V¥OCT, TL YavK(T) 
V¥PCI,T,2P:8vV¥(T) 
KOC S)evecy) 
Q KOCK yavYCOT) 


¥TOs xe VALUES AT THE ATP WeSTATINAS AT HITCH Hutenit WENN 
FIRST vaLhk FuR CTD Cam HE ANY snSREQ La@GER THAN zE9n 
INTEGRATION STARTS AT X1TP(1) 

INTEGRATE: STEO ST2h CETERYINED HY HASCRL 


ao) 
ees 


VPLALISS 
VPLYULISS 
VPLULI54 
VPLOL157. 


VOSTATIONS, INTEGRATION [HFQ, * INITIAL VOAGTEY ONSTTINMS avyu STRENGVPLHUI15A 


veOLntys9 
VEL IOI164 
VEL Vlel 
VPL ALL H2: 
VPLAT1ES 
VOLO1164- 
VPLOV1AS 
VPLOLLads 
VPLO11E? 
VPLA1168 
VPLOL16E9 
VPLOLITA 
VPLOULTt 
VPLOLIT7T2 
VOLNL173 
YPLOLI7G 
VOLOLITS 
VPLOL175 
VPLO1177 
VPLOIL74 
VPLO1)79 
VPLOYTRA 
VPL O14) 
VPLOPTb! 
VPL ALS 
vVPLotias 
VEL AT ERS 
VPLILIAA 
VPLOIIAT 
VEL OYLAN 
VPLO1149 
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AaAanaaanann 


aaaaan 


a AAAAYN 


aan 





RELOCS OV CKIPCT) ,Ial,niP) 


wRITECHOoLYTITLE 

IF CMF YEU) : om 

LeRLTR (A, 708) VMAX, CHE,XECLI,YE CLI sXTIPLESYTIPLE, XTIPTE,YTIPTE, 
1 KF ONE),VEC“F) 

wQTTE (bet LIALE ACS PHT 

IF (mT SEO) WKITE (6,DES15) 


READ NUMBERS CR wING LEADING EDGE VORTEX INEM STATINNS YLE FOR 
PACH -I'G | 

FOR EAC re STATION, READ IN YRAR AND STRENGTH OF THE VORTICITY 
QISTRISUTION, 


NOTES XLE ANN XSE ARR REAM IN IN THE wING COORDINATE SYSTEM AND 


1s 
19 


MUST SE TRANSFORMED TO RODY COORDINATE SYSTE*, 


READ (5,4) “SReMS¥L 

NEUGVEMSwRe4Sal 

TF (CAENGY.E,0) GU TO 19 ; 
RESID (557) CXLECTFV)-CGLOCCTIFV) ,GAMLECIFV) e+ 

Lo TF veer Ero) ; 

WRITE (h,798) 

OF 18 JLEsi vfoGv 

XLECILFISXLECILE DKF C(t) 

WRITE (6,705) JLEOXLECJLE) -CGOLOC(JLED,GAMLECILE) 

CONTI Me : 


REAN NHVRER IF «ING STOE EOGE VORTEX INFN STATIONS XSE FOR EACH 
wING . nee 

FOR Facey ¥SE STATION, BEAD I YBAR AND STRENGTH OF TRE VORTICITY 
OISTRIAUTION, 


REAM (5,4) “Cw 

uSIMGE seal» ; 

TE CNSIOGE.EQ.9) GO TA 18 

READ €567) (XSECJSEY,CGOSELC(ISE) +GAMSE(JSE)s 

1 JS s1,%SI10GE) 

eRITE (60707) : 

0 16 JSERL,oSICGE 

XSECISESxSEC.ISE DXF C1) 


to ®RITE (4,769) JSE,*SEC SSE) CGSELCC USE), GAMSF(ISE) 
1R CONTIAVE 


“OTE? MERE QLUC se see gHUIRIZINTAL SEMT@AXTS, 


BLUC ecco e VERTICAL SEMISAKIS, 


WRITE (6.709) ES 

“RITE (6,25) 

aARITECO,25)XTPC(L) 

COLL SHAPE CXTPCE) PLAC HLUC,SLOC,RPLOC) 
SRITE (4,9) RLOCZALUC,SLUC 

WRITE CH227) 
wMQLTECoe22) (Lo VECLI oe VVC) GCL IL St esv) 


CONVERT ANGLES TH QANTAS 


aCsaLFaCaGan 


VPLO11LEA9 
VPLOIL91 
VPL 91192 
VPLOL193 
VPL0O1194 
VPLO1195 


VOL II 19: 
VPLOIIYT 


vPLQILO4S 
VPL91199 
VPLO1209 
VPLOL201 
VEL A1202 
VeLaL203 


VPLOL204' 


VPLO1205 


VPLO1206 


VPL9A1207 


VPL 91208! 


VPLOL2N9 
vPLOs21) 
VPLA12tt 
VELALAL2 
VeLOlel$ 
VPLOL214 


VPLOL215 


VPLOL216 
VOLO1217 


VPLOL214 
VPLOL219; 


VPL01220 
VPLOL22S 
VPL AL 222 


VPLO1223. 


VPLOL224 
VPLO1225 


VPLOL224 


VPLO1227 
VOLO1L22A8 
VPLUL229 
VPL 91254 
vPLOL231 
VPL912$2 
VPLO1233 
vPLO12a$4 
vPLo1255 
VPLO1236 
veLu1e37 
VPLO1238 
vPLO12§9 
VPLOL2409 
VPLOL204 
vPlLol242 
VPLOL203 
VPLOL204 
VPLOL2A4G5 
VPLOL 24h 
VPLOL247 
VPLOL20R 
VPLV1249 
VPLOL25" 
veLoresi 
VPLA1252 





RE SPrl akan 

OMTEBE 
ALSASIN( SIN (AC) *CNSIBE)) 
AE SASTV(STA (AL) eSIN(AF)) 


c 
C pws we COMPUTE VURTEX PATHS USING PASCW TRTEGRSTICN SUPRCUTINE sea ace 
c 


MIP$sufPat 

MSXIP(2eLTP CL) 

Mee 20 TSr,:- TPL 

TLsTel 

MvsNVVC(T 

NVNSNVV( TY) 

NVUsavet 

MSQaAV 

ALSxX TPT) 
“AtsxTPCted) 


we] 


CALL DASCALICAT BL pHoN, HM, “Ke TERSES, VRTMAX) 


TE TR GHEATER THAN $P2eUASCwWl. HAD TROUBLE GETTING strep SIZE, 
THES ,QATHER Tew CONTINUING «LTH THE INTEGRATION, STLP 4A 
RPEPUCE FIP C2) @XTP( 4) 489 BERUN 


aAanNana 


TF (TER,SE.32) GUO 1M 2A 
69 TH 29 

QA ARITE (A,7u1) 
STne 49 

29 CONT Peg 


oe ADD THE VEw VORTICES aul) THETR PGSTTIMNS FOR THE NEXT XeTNTERVAL 


aana 


TF (Nv ,FN, VIG TO 89 
NO 35 Kistet, vue 
JLeeuKxiet 
KeeJULe) 
MOC IL surrey) 

35 XOCKK)SvYt«y), 

FQ CLT L ee 


oe MUTBUT YORTER PNSITICNS A°t CORPIGURATION CHARACTERSSTICA AT THIS 
stariom, 


AaAAN 


WRITE CO,2@1)T1,A1—04 
CALL SwaPE (CAL,PLUCeBLUCSSLEC SHPLNC) 
SMITE (609) RLOC PRL UC. SLA 


Save ANDY ONT TS Klik PLAT 


ano 


KPL TCL, TH) En! 

VOR Tete li SsAL_Qc 

ZPLTCL,Ty VEAL 

YPLTCALTIYSSLOC 

wRITE (mh, 27) 

NO 23 Lael et vN 

Jzeatet 

KEJot 

VEOCTHteLef Sed) 

VEPCT Lgl 2238 (4) 

RITE CMe 22dLo XS), SOCK, GCL) 
Cc 
C SavE voetex Cocaties FCRQ FLOT 


VPLAL25$§ 
VPLOL294 
VPL91255 
VPLOLES» 
VPL 1257 
VPLO12548 
VPLA1259 
VPLAL240 
VPLO1261 
VPLOL262 
VPLU12n5 
VPLO! 264 
VOL 01255 
VPLOV24A 
VPLO1267 


‘VPLV1268 


VPLO1262 
VeLota27a 
VPLOL271 
VPLO1272 
VPLO01273 
VOLOLV27T4 
VPLIL275§ 
VPLA127H 
VPLOL277 
VEL ALATA 
VPLN12A79 
VPLO01280 
VPLOI2AL 
VPL 04282 
VPL 11283 
VPLYI2AU 
VPL 09285 
VPLUI2BO 
VPLO 1267 
VOL OL2AA 
VPLN12489 
VPL 1290 
YPLOI291 
VPL01292 
VPL01295 
VOLOI294 
VPLHTZ295 
VPLAL296- 
VPLOL297 
vVPL®129a 
VPL91299 
vVPLOLSaN 
VPLuI3t 
VPLOL302 
VEL OLsas 
VPLO1304 
VPL 91305 
VPLIL$06 
VPL91307 
VOL 01 $08 
VPLOLSNG 
VOLG13I0 
vPLOL3it 
vPLorsi2 
VOLOLS1IS 
VOLOL3t4 
VOLOL31S 
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C : VPLOLS16 


JCVAnTPleret . fe Vee VPLAIS17 
XPLTCT,JCV)=85 oS + VPLoL3is 

YPLTCT, JCV)SxC0) : vPL 91319 

ZPLTCTsJCV) FX") : sae ~ VPLO1329 

23 CANTINUE 3 ae vOLolseai 

20 CONTINGE : ; VPLNL322 

c . : : vPLI132$ 

fC PpLat vORTEx LOCATIUNS VPL 91324 

Cc aie wa. 8 VPLOLs2$ 

. XPLYCY,tVSxIPCs) . . VPLOL326 

TF CYPLT,GT.0) © VO“LNI327 

* CALL PLOTVBCXPLT, PLT, ZPLT/NPLT, STPLoNYNe 36,807 XF, ve, Fy XP2,YP2,vPL 01528 

* TPL) : ; ngs TENE gh Be VPLAL $29 

VPLIL3$1! 

pe RGaRUFE VELACT CIES aT THE SPECIFIED CUNTROL Ports TNOUEED GY AV . VOLVIS31 

, Cc FXTERNAL VORTICES AND THEIR IHAGES,. Pade 85 +149 VPL 91332 

c fe a Eg . VPLOL$33 

¢ . a er SM VPLO1334 

C MNTES TF CONTROL PHINTS aRE PASSEN THROUGH RY MEANS SF -A-DATA SET VPL ny 335 

C ToE, “HES “COTM 1S “OT EQS TO Oe INDEX A@P 13 PREAH IN FROM VPLO1336 

c THE mata SET 4LSQ, VPLO1337 

C NATE? ke CONPHENATE OF CONTROL POINT “UST THEN BE TRANSFCRSED Ti) BODY VPLO1$38 

c CUNROTNATE SYSTEM, ad . Ig) cs VPLO1339 

c THIS TS HOLE RELUY, . VPL915449 

Cc - : VPLO1341- 

C . ; vPLOLsa2 

vCPs0 : : VPLO1343 

JF (MCPIN ESO). REWIND & : VPLO!3H4a 

“TF CNVLNUT SEO) RE“IND 7 ; . VPLOL34aS 

TF CNCPT woe 6 T9 72 : ’ ; VEL HL SOA 

IF (NCPI., nb G) READ (4,745) NCP ft : VOL AL3SU7 

\F CRORE Cad” £9) GR Ta 99 : : VOL IL §a8 

6 TH 73 VPLO13409 

72 READ (5,4) “CP . VPL 01350 

73 COMTINGE VOLOISS1 

LF CNC FR FIGH Try 99 . vPLO13S2 

wRITE CO, 41) : ian VPLOLS53 

D0 69 Jitat..2 ; - ; VPLO1354 

TE CNCPIN,FA,9) GO TO 79 : VPLN1355 

READ (6,745) IC eCPXeCPY,CPZ VPLO13S6 

COxslOxeoxF (1) a VPL 1357 

Ge Tit TL : VPLO135A 

7G PFAL(S,60ICPX,CPY,CPZ - . : VPLOL359 

M1 CONTISUE VOL O1360. 

c . : VPLOLI6L 

Co, DETERMINE THE XeSTATIONG ADJACENT TO THE CONTANL PNINY VPLO1 3602 

Cc : : . VPLO!36$ 

. NO 61 TEI,nte ; : VPLO} Seu 
- IF (CPX,LT.XxIPCH)}) GO TO 69 VPL01365 
Joie VPLO1360 

TF (T,F9,1) Jt I VPLOL3ea7 

IF (CPX,LE,XIPECTIIGN TN 62 ‘ ; VPL 013608 

s ft CONTENHE. or VPLOLSO9 
c . : VPLOL3TD 

C METERMIAE RY THTEQPULATION THE PUSITIN~ [4 TRE CANSSFLMW PLASE OF ALLVPLOIST! 

: c VARTICES AT Fach STATINS CPX, VPLO1372 
4 c . ; VPLOI373 
DY 62 Keel a VPLOL574 
o VISXIP( ST) VEL OL37S 
: X2axYOcKy VPLOL374 
! wTLE(X20CE KIS (K2eK1) és 2 VPLALS77 


eTPS(CPVeri{ sf ceext) ; VELOLSTS 
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a -AaAnaAe 


oO AAnaAQAA 


Su 


NVSEVVE SS 


CALL SmAPE (COxsRH, KL, SL, ?PL) 


Te CNUNT See Ud 
90 63 Tst,vv 


“NITE (42793) 


VECTIEeTlevel( Jeet lonTeavxP(an,? 
VYCTIS< Ty avxPl( Jel, 2leo-TeavxP (ek, lee) 
TF ONOUT. EGY) GO TO 43 : 
WRITE (H&.7U2) Deve (ly ,v¥ CT) 


CONTISOE 


TeETPeatane(Ce72,CPv) 


SINTHESTS (THET®) 
COSTHSEMS(THETR) 


OCPTSSRAT(CPYSCPYSCP2aCPd) | 
RANOYSSHRTCL, UJUCSESTH SEL ) 826 (CUSTHsRB D882) ) 


IF (RCPT, LE. p RAONY 
GO TO 48: 
BANNVPSt CL eRROCY 
COYRERNDYPeCOiGTH 


tees SRACNVOWSINTH 


CIMT ENE” : : we ue 


60 T° 64 


ot} 


aay 


SuMQOUTTSE VVELS Escricexes VELOCITIES INDUCED SY EXTERMAL 


VIRTICES: ARNUAN ELL TPTIC4L CROSS SECTIAN Bahy FY SETTING 


THE ARGUMENT LIST. 


CALL VVFELSCUVeCPV es CPOZ YX oe VV yp GoWbeo rh eR Ap Va hg VRTMAX) - 


WRITE (A, 32) 


SLteCPOueCHy,COlseVy* 


1F Cuvinut,tA,o) GR Tn 49 


rCasit 


#PITE CP,7UK) TC eCOX, COV el PZ, V,X< 


CORTE NUE 
G6 TN 9a 
sTaP 

evn 


SURROUT PSE GASERu 


(Ap ayhe® 


pXdeek, TER,ES,VRTYAY) 


THIS SUBROUTIAE PERFORMS INTEGHATION 


OIMENS IO 

tT“ TEGER 
LOGICAL 

Mata Hogs 
TER a2 A 

TECK @ KY tele 
TSjysnes 


TRAST Sten 
MMTNAD NL eANS(H) 


eS 


SHULL PE SFT TA 


05 TIMES THE 


DESTREN RELATIVE PRECISION OF 
TRE SPLUTIG thy 


wi OVD KOOL) 
3w 


BE, nH, PR, RX 


ZEON PS, CPS, THHEE FNUR/ING 6 5 


Lede 3de0Kes 


Sse [Nv 


VOLAVI3Z7IF 
VPLC1380 
VPLO1381 
VPL ALEK 
VPLOLSA3 
VPLOL3S4 
VPLOL3&8S 
VPL 01385. 
VPLOI3A7. 
VPLOL3AR 
VPLOLSH9 
VPL 41599 
VPLOL391 
VPL01392 
VPLNI1393 
VOL 01894 
VPL 91395 
VPLOL39A 
VPLULS97 
VPLO1398 
VPL 91399 
VPLOLU04 
VPLO1804 
vPL tan’ 
VPLO1403 
VPLOL404 
VPLOLGOS5 
VPLNLans 
VPLULUO7 
VPLO1d09 
VPLO1Ld09 
VPLNIat9 
VELOL4AL1 
VPL L412 
VOLo1a1s 


VPLOe2 
VPLO2 
vPLOe 
VPLOe 
VPL 2 
veLO2 
vPL Ae 
VPLO2 
veLne 
VPLOe 
vPLf2 
VPL 2 
vePLNe 
vPL92 
VOL 42 
VPLN2 14 
VPLOe 
veined 14 
vPLA2 19 
VPLLe 2 
VPLN2 At 


ewN-w DEB WF VM OrWrweR 


ee ee ee 
S 


~~ 
~ 
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ang 


aAanaan 


A000 | 


fone re} 


Are, TRUE, 


Hes, TRUE, 


eke, TRU, 


in 


1S: 


1 


CHECK FOR THE PROPER SIGN NF H 


MESIGNCARS(H) Red) 


yea 
xSax 
nM 10 


Jeign 


TIMO2%eJ 


aK 
CONT] 
uSsH 
Askew 
AE S,T 


TEC IMT CCH GT, ZERN, 


warhex 
BRe.F 


CT.IKGPSXOCI) nu 4g 
NYE 


8 a : 
Que, ; 


60 TA 20 


ALLSF. 


20 HSSH/THOFE 


CALCULATE SOL“, AY X¢H 


NOTE? ARRAY #K CONTAINS Vv ne GOO INOEX.W FUR EVEN INNEX, 


as 


39 


$5 


ao 


4s 


no 90 


Ca 


Satie 
LL FOX0, yNp Ke VOTMAXY): 


On 79 Tete. 


So. 


Qsrsenn(T) 

TJKOsne] 

TuUKisIste! 

Ideas tree! 

60 TO €25930,55, 46545) ,5% 

R=f 

wK(TJ<1) 29 

GO TC SO 

QePSe(JewK(TJK1)) 

GA Th SO 

PSTHQEE #Q 

we ET J4 ODER. 

Ra, $7TSa(RewK (Tu) ) 
6u TNH SO 

ReeK (I IK1) oF OR eQ 

eK (TJKLIS8 : 
WsNbSa (Aen (1IK2)) 
69 Th So 
PsPSae(Newn (lL IK19) 

GB ARS(Ree « BOSE EE SENET INE IY 

“ROCT EWR IT IKO ee 
TF(Sr,4&E,5) Ge 1 79 


AUTUMATIC STEP CHANGE. .- 


EsaRS(xeT)) 
QsES 
TF(E,GE,1,E 3) USERF5 


TEST ADJUSTHENT NF THE STEP 
TECGLT,%. -OR, (NNT, HKD) GY IN OS 


H8e, TRUE, ae 
she hal SE, : 


ANN .G,GE,ZERN) IR, (HLT, ZFAI,ANN OLE, ZERO) I) 


vOLoed 
vPLo2 
VOL ne 
VOLoe 
VPL G2 
vPLOe2 
VPLO2 
vPLn2 
vPLO2 
vPLoe2 
vPLo2 
VPL G2 
veLne 
vPLO2 
vePLae2 
VELA 
vPLh2 
VPLO2 
VPL 92 
VPLoe 
vPLoe2 
VPLO2 
vPLO2 
VPLOe 
VOLC2 
VPLO2 
VPLI2 
VPL Oe 
VPLA2 
vPLO2 
VPLO2 
VPLO2 
VPLO2 
VPLO2 
VPLo2 
vPLOe 
VPLO2 
VPL Ne 
VPLN2 
VPLO2 
VPLOe2 
VPL92 
VPLA2 
VPLO2 
VOLO 
VEL 02 
VPLO2 
VPLoe 
VPLC2 
VPLO2 
VPLN2 
VPLa2 
VPLO2 
VeL a2 
VPLN2 
VPL Oe 
VPL fe 
VPLO2 
VEL D2 
VPLn2 
VPL02 
VPL a2 
vPL 2 





AAAHAM 


aan 


NNMAQDe 


ss 


64 


65 
7A 
a) 
ag 


AS 
Qn 


ag 


100 


105 
onary 


HEPSa 


TFCABS(K),GE,°¢IN) GA TO 55 


MBSIGS CL eH yeHuty 
Rus, FALSF, 
Ay 60 JVele 
-TYIRUSN OT 
BUCS ESRC LIES 
Cosry ve : 
x3x8 
eo TH AS 


THE STEP TS HALVEN RESTNRE X AND XO, 
BNO GU Hate FAQ CECEATED LS PEGRATION 


alts TefS NER QTFO 


IF (2066.9 i lay AEB, PAUSE. 


CONT TAUE 


BN 12> €75,90,60,45, 90).9" 


Keren § 

GO TO aC 

Mergeogerks 

GA 1) A 

YSKeDhen 
CHT Pe 


- TEST & POSSIBLE AUB ETS 


TF ONNT, (HEA BH,AND,HRI) 60 ¥8 95 


HSHOM 

Sys, TOE, 

Qaz, TRUE. 

F(R) gn 19 § 

Mews 

TECBY JR, JE? GB TD 9005 

tFR os 33 

$9 Ta 9005 

0 105 tates 
XOCT) aZb RO 

CORT TUE . 

RETURS 

EAN 


COMPLEX FUNCTION OBLUCZ) 


ah THE STEP 


THIS PUSCTION SURROUTTAE CALCULATES THE I[NTERNENTATE TRANSFORM. 
VOWTARLE » FUR TRE CONFORMAL TRANSFORMATION OE AN ELLIPTICAL 


BUDY sy TH WINGS TO A CIRCLE, 


COMMAN ZENE /O2 eb20K2 
Cham sone ys ZR, Zt 
LOK~ MEN ZENS J0eNZ 
COMMON SCMASOO gH 
COMMON sPARAMS/NOL:T 


COMPLEX ZeL2eNeULerovds va 


PAW Fuemar Cs/19X,aNZ2, 2x, UHNARL ITU, PHRE Oe BMT" s 1 ALS RHBE, OX» 2HIN) 
TAY FORMAT (1OXF ID, melteette Se2XFIVC eS FEIN, 51 


vPL2 a5 
VOL%2 Ba 
VPL92 67 
vVPL AS aS 
VPLO2 89 
VPL 92 95 
VPLC2 94 
VPLO2 92 
VPLN2 93 
VPLA2 Ou 
VPLA2 95 
VELA? 94 
VPLi2 97 
VPLO2 98 
VPLA2 99 
VPLC2100° 
VOL A210} 
vPLAet0A 
VPLO21905 
VPLO2194 
VPLO2ZINS 
VPLO2Z106 | 
VPLO2107 
VPLOA1OM: 
VPL 2199: 
VPLAA119: 
VPLO@L14 
VPL 22112 
VPLO2113 
VPL9ALLG 
VPLD2105 
VPL M2115 
vPL 2117 
VPL 22138 
VPLO2119 
VPL N21 2y' 
VPL®212\ 
VPL 92122 


“VPLO212$ 


VPLO2I24_ 
VOL a2Les 


VPLAS 
VPLS 
vPL a3 
VPLOS 
VPLOS 
VPL a3 
VPLO3 
vPL43 
VPLO$ 
VPLOS 
VPL9S 
ver as 
VPLO3 
VOLS 
voLos 
VPLOS 
VPLAS 


-e soe pe 4 
fcwenrO Gens VWVeuwuw DR — 


- 


-—- =e 
wow 


> 
> 
~Ul 
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aowa 


aan 


YE CNMUIT SEG AY eRITE (He 70) 
ZezZeZ 

ZeeKE srl) 

ZrearMaG(2) 

TE C2Q,NE,9.0) ZNBZIVSARS( LE) 
TECZTNE.O,9) 2ESZ2ZI748S8(71) 
223272 2b 7 +R2 

IF CANUTE D2) “RITE (6,701) 22 
VsaT~an(Z2) 

ayez1,9 : 
TFECY.L1,9,0) AYSe4,0 

AYZ=1,6 

IEC2TLLT,6,%) aY¥Zs0t,9 
ZZSCSIPT(Z2) eAVvesyZ 

TF (NOUTLEN,2) *RITE (5,701) ZA 


TECCAASCZII LE OMG AND, CREAL (ZI gLT,0,0)) Z2SCMPLX(OREAL (22), 


\ AT»8G0L2)) 
O60 780,S5e(1,007/22) 

Ik (NOUT,ER,2) ARITE (6,701) 22.0402 
wach, Se(2e7Z2) 

‘w2nl Os (ab euw) 

Ne Lusew 

PETUAr 

Ean 


COMPLEX FUNCTION N89Z¢S) 
CALCULATE CZETASOT AU 


COMMANSENMASSIT GA He 

LOMYON CONS ANEDZ 

COMO sCMUs62,61 

COMMON SOOM OH Sae ge 

CRYPLEx Ae 2eOnUZeGBl ee 

NSOZ29 Sal) VeSIG2e*2 ell Gt sG2) onwOZ 
RE TUR: 

ew) 


COMPLEX FUFCTION 0203908) 
CALCULATE GZ/DZETVA 


COMMON OOM I sA2eR!e42 
COMM sCOMA/STR2 he 

COMMA SCRYAS 02, 

COMPLEX *oSe%2eGbeStePole 
S2s8e3S 

G180, Set, God, 25eCd2ek2e+2)0(1,Vek2/82) 
7239469278 

ZeaZe2ed, O8STG2 
veaTVag(7) 

vésatvab(Z2) 

avyai,@ 
_a&vV2a1,0 





VPLO3 
VPLAS 
VPLOS 
VPLNS 
VPLO3 
VPLOS 
VELOS 
veLos 
vPLas 
VPLOS 
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Figure 1,- Coordinate systems and typical panel 
' layout shown for one fin-and quarter of 
the interference shell, 
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o @ fin dihedral angle, PHIDIH, fe sy ‘ Body interference panels: 


é = dihedral.angle of right ‘upper = emt A 
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= THTI(J), ty F Wi - Wind 


by u” dihedral angle of right 
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, a3 2. 5 eee nena 
t = dihedral angle of left . “2, BIP Vaz2 + aye 
4 or D “upper fin, PHIFD= -PHIDIH : azy + OY 


these functions are used in 
the transformation (rotation) 
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4. i" | = polar angle of right upper i V Aza + oYy system 


Lior Roo" ¢in, THETR°THETIT 


35 ort. polar angle of left lower 
fin, THETL=THETIT 
83 ecu polar angle of right lower 
sd fin, THETI= -THETIT 


“4-eroD. polar angle of left upper 
fin, THETD= ~THETIT 





Figure 3,~ Geometrical angles associated with case involving 
interdigitated tails on body with elliptical cross section 
as required by program DEMON2. Force coefficients 


associated with fins and body interference panel. 
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Figure 6.- Continued. 
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Figure 6.- Continued. 
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Figure 7(a).- Calculated pressure distributions along 
body meridians up to canard section; 
first sample case. 


—_ 


49:4: 


g[ 


s\~ 










| s» BODY NOSE 


VORTICES 





- @, = 14,216 


‘Moo= 1.70 
Q= 135° INCLUDING NOSE VORTICITY 


Pc ae x EXCLUDING NOSE VORTICITY 





1.2 
1.0 
0.8 
2.2 
2.0 
1.8 
1.6 
1.4 
1,2 





1.0 : 
0 2 4 6 8 10 12 WW 16 18 20 22 24 2 28 30 Xp. iN. 
EL = as ee Re eee (ee NO A) ees, CREE: ESRI RL SOE | : ‘, 
0 10° 20 30 49 50°60" 70 Xp, cM, 
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Figure 9.- Continued. 
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Figure 9.- Continued. 
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Figure 9.- Concluded. 
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Figure 10.- Output of program DEMON2, first sample case, step 
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“Figure 10.- Continued. 
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Figure 10.- Continued. 
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Figure ll(a).- Calculated pressure distributions along body 
meridians through canard section; first sample case. 
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Figure 12.- Calculated. span loading. on. right horizontal canard fin, 
_ first sample case, step 3. 
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Figure 13.- Calculated span loading on the upper vertical fin, 
first sample case, step 3. 
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Figure 14.- Calculated vortex positions, 
first sample case, step 5. 
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Figure 16.- Continued. 
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Figure 16.- Continued. 


ty 


es 











“1 PESL ANDY wantug 


544 


YeSTatiny aN, 23 


o% 
fe 


VOPTEY 


BPrwOVs enue 


2 


MeSTATION HO, 


‘eS 








+ 


+ 


VORTEX 


te: 


“ ONIN ECWN = 


y 


VORTEX, 
ot 2s 
, ae 
3 Poa 
a © 
§. 3.3 
6 
i 7 
Ly 
“uN, 2o 


ll voprer, 


LOCAL BUNy @antus 2 


aa. 


» LOCAL anny: zaozus 


a 


* 


Woes t 


Ne 


TaTiny <O8°25°- 





a 


x837,124 


Le 
. 


1, 300060 
y,VatTy 


Mel SSOGE SH] 
we A gmUQEeny 

el a7Suboecy 
oS 829KE OL 
eeNORT7E S01 
wme2tSSKEoCt 


24SEC Ony 


wp 2UUALE sO o,12754F 601 ©, 20911E 400 
K237,752- > INTEGRATING STEP SIZE 2 
1.50000 .° LUCAL ‘SEMT Spay S & ° 45,6400 
- : é to 
v,Vatx Z,verx - GANAS VINE ° 


|, 135466 OOS: 


m2 SUH ont 
eLIGALe ony 


we S3ATSE ON” 


e,51asdbeony 
e,22052F 004 
=, cShuueeny 
~,2e5ueskent 


x355.570 


3 t.39N00 


eevetn, 


Flzegh3S2abent - 
252K 2E eC f- 


el 12A8F 6g * 
wre SSQATE SN, 


2 we PaTISE on 
eo 2auTVEoOL 


ye 


K2$9,o00°.. 


1,30900 © 


v,vatnx” 


e,13UHSEsaL 


e230 Aor ery 


oH SGRSE 
> ? 


' 


@, SI9IQ Of 
~ wePASQHEont -- 


a 


‘ 


t 


oad 


2 


UCAL SE“? 3044. § 


e 


_ INTEGRATION STEP SIZE 8 


Zevaty 


o7 SHUBE O01 
st $Sedeeodt 
e2UURSE ont 
e2tSS1E OO} 
aPURANE Ont 
2 S3PH9E ON 
eSORTISE ON 


e2SIOBE SOT 


al SSG6E OO 


“ENCAL SEM] SPAN S 


ePO470F 40ty * 
e227 HE OL 


e2SNGtE ent 
o 33204Fe01 
eSI G30 SOL 


@,S19RSEeO1- 
fe? 


Pye 


TNTEGRATIAN 


pee 


a: aes 

*ZeVaTY. 
o252RIF 60) 
e 1 SS20E S01, 
ePO4 TOES 
0 2258SE Su 
ePATONE SN 
o S3PUKE ANI 
eSIIVVWVE ont | 


m.I12N9E ent 


INTEGRATING STEP SIZE 5 
8 Se a 


2.VRTY 


e230AbK ont. 
et SGUAbE OL 
2 75NHE ON 


Figure 16.- 


“LUCAL SEMT SPAN 


GAMMASVINE 
eROZUOE +0 
©, 8920%E +00 
ePUQI FE or 
eDAUUOE@OI 
= SUITE SOD 
©, 56Gu0Es0! 
eSUATE END 


.BO200E +N 
- AN2uCEsUU 


eP49t Teno 


eSSGU0ES 1: 
|, 59ta7E oon 


@,5AUUDE SO) 


eSPLATE S00" 
o F691 1E 400 


5.54000 


STO’ SIZE7e" 


2g eee 


Sc. «3.60000 


oe 
GaMMasuTvE, 


«A0249F 900 






694975 (E45 

oSAUINE SO 
~SItNTE S00 
© SAaane way 

eSSIR7E SON 
m. 9401 FECN0 


Pa 
+ 


«< 


GAMMASVINE. 


AMZN 900 
©, 40200E +90 
QUOTED - 


‘ 


. 


3,04900 


Continued. 


254290 


262400 


262000 


RPrwueuNe 


o, S3310Eo0t 02 30K2F 005 eSAUdCE wd 
@eSA57HE COL e27TT29F 04 oe SMLATESAN 
@,230KbF O01 « $5282E00! ©, SA4G0Eo01 
@e27732F 401 2S257HEeOt eSMATECOC 
wm e27TSunb ery 19K 32E001 e949 te)| se 


N 


y 


CROSSFLNw VELOCITIES ay CONTROL POINTS INOUCFO BY ‘vortices AND THEIR IMAGES 


I 


OFrFvuceVowueN 


x, aNDY ‘ 
230051402 
o37787E S08 
2 36902E 902 
oe 3HS10E%02 
e37THBLE SHS 
oe SAVUTE FOO 


A STUANECOS 


a 37970E+02 
e3B9S1E 902 
o3TLASESU2 
o SROTVE C02 


~ , SB9SHE COD 
«37 S09 02, . 
eSBL0SF 602 © 


eobreor tue 
2 3hoSt, F*02 | 
LUTTATES D2 | 
» SRIMZE SOR 
S681 HE O02" 


oe S7RBIE OOD 


@ SASKTES02 
TS700CEsoa 
e STITHE SOD 
o SAGSIE +02 
oS7T145E202. 
0 SBP TNE SND 
0 SA9ISHE +02 


e3T309E+N|D 
eSATHSE OS® 
2 SAIVHVE S02 


e SHOSSE SND © 


o S77TBTE S02. 
0389426 402 | 
S81 HES Oa’, 
o37ABIE SD. 
oe 38947F O25’ 
S2O0NE SDS | 
a S7T9THESO2 
a SAISIE SOS . 
STLBSESO? | 
eo SROTOESN2 


e3AVSOE +O 


o $73S09E +02 
o SH165E+00 
oe 3AFO0E%02 
«3 0051E 902 


| SOV TATE +02 


2 3AVGLE OG2 
e SHBLOR MGA 
eo S7IBLE S02 
» SBQR7E SOR 
o STNOOR SOD 
o 3 79O7HE COA 
2 SA95S1E O92 
a S7LASE SND 


3 


y,8O0Y 

s1S310be01 
et SSLOE Ong 
e1S31VE+0) 
e199B87E+0} 
eI 99GTE CO] 
oN 99BTE CUI 
e2U6GUF ey 
22 UOGUuE 0} 
e24OOuE en} 
2293Q0E 401 
ePOSQVE Ny 
e293U0E40) 
oe SUC1GR OMY 
o S492 6E 00] 
eS SO1GE O04 


@,1S310E901" 
w,1SSLOE SOL 
eISS1vE 40) 

1998 TESOL: 


=, 19987E O03 


eg 1 99A7E S04: 


#, 2400KE 401 


e,2UbbuEocy 


~,2460ut oo} 
© .29340F O04 
©, 29340E eu 
=, 2934bke0} 


@,34016F +01 


o, Suu Leeeot 
eT SS2E013 


eT3S2LES13 | 
eTES2IE ONS. 
SOSOR3E=13 
SOS9R3ES13 | 
eP5OSSECNS - 
sD POQRE er? | 
ellAaueele2. 


a Ssuo1ee sor | * 


sl14GdFes2 - 


e14NWbete 
214090E@=12 
el GO9GEet2 
eto33SEete 
o1633SEe12 
el O3SS5SESI2 
e, /3521F 0158 
eo, 73821E°13 


=, 7S571E a! 4, 


@ 959A3E 1S 


© ISIASESIS. 
2, 959AZE RNS 


eo, l1S4ekoli2 
©, 118dubel2 
@m,116autes2 
wel sGINEat2 


POS ax 000 St 


2,R00¥ 


oeeeeeesve 


SsSsocop79o0 909° 


oo 
ee 





aISSLAESOL® 
et(SSINE ONG. © 
eA S31 OR OOF S 


\ 


L9VBTE SOT 


N9DATE OOS: 


21 G9B7TE4O1 * 


2 2U6K4E 404 


oP KbOIEFOL - 


a 24H6UEF0}: ~ 


eP2DSUGE COS 
eAPTUNE ony 


e29SUNE HOF: - 


BANE S01 
a SUNDAE SOL 
2 3aniee eo) 


weIStingedt 
#1531 E04. 
ew 19IHTE Ot 
~~, 199ARTF 01 

eo! PIRTE SOL 


@AUnMuE et: . 


= 20AEuE +0} 
wm e2UbnuE ed 
~.298u0b ont 


1 Vet SSLOECOHE , 


v 
e22501E 00} 
e19927E@04 
e1779RE@N 
o81619E 80} 
eS737SE OO} 
233859F a0} 


a S83QBE O04 -- 


4OSSSE°Ot 
eS7SO4E@O1 
40999 001 


2 3825RE “01. 


2 358S1E 601 
eSO017TE OO! 
e S4tRdbeoO} 
325286604 
e25922E001 
2241059F 0} 
st 9S07E@O1 
eS1219F HOt 
2S34N8F oD} 
eAH996F O01 
259830} 
eT OL AI ed) 
eB4SS0F@01 


eSOB9SESOL 


TS91L0E@O1 
2F45S58E@01 


e4S99SEROS, 


aSTBRGE=OL 
eT A9G1E@O) 


_ Paassaneon * 
o2530SE 400 | 
225802400 - 
sl T1OSEe0: 
.-g 16549F900- 


"9 19861E409 


ve MOLOF oO! | 
te gh OSHOR END 
ig 121 TUE S90 


e218U7E Ot 
9 2509UE #0} 
ee7Sitha0t 
wo 14S21F 0M 
©, 19929F ent 
& 253A5E S01 
o7FL07TE SOF 
207006E=01 


eOti7senot 


eS5b11 E901 
g422R9F 001 
430d75F a0 
25997F 01 


"25009001 | 


s24101E~0! 
s135U8F a0} 
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Figure 16.- Continued. 
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Figure 17.- Input for program DEMON2, first sample case, step 6. 
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Figure 18.- Continued. 
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Figure 18.- Continued. 
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Figure 18.- Continued. 


6SS 


Dar 
2o7 
2oA 


as 
—- Sc OPvoeovVif5«wn= 


ae ee ee 
S2rvenocwn 


uNnn 
wines 


ww 
-—D.Ee Pu FRe 


“ 
N 


Sewyuo 


33,35500 Ye2uiae «49749 

33,355%0 1.27500 =,29562 © 

33,35590 1, $0090 20000" 
THETA, xn va A 
NEG, é 


PRESSURE CUEFFICLENTS AT SOINTS tn BONY FERLD TANS 


e21S93F OM 
el TARTESD 
eI GRATE AID 


NYT 


TATAL MUMBER OF PAQESSUSE PHIATS,ICPT2 aA 


14,2500 
22,5000 

33.7500n 
aS, nnnng 
SH.25000 
67,59000 
78.75900 
90,0900 
191,25000 
112,59008 
123,75994 
135,909n00 
144,25090 
157,56090 
164,75000 
180,09006 
193,25000 
202,50000 
213,75000 
225, 00005 
244,25000 
2u7,50000 
256,75000 
270 ,00090 
P41,25000 
29250606 
INS, 7SHDA 
$15,60090 
3An, 25000 
§$37,50000 
$44,75990 
Jan ong 


11,.25909 
22,5000 
33,75094 
25,00090 


25,14474 
As, iuuta 
as,tuura 
25,1)4u74 
as,ieata 
25,14470 
25.1407 
25,14a7u 
25,14474 
25,14474 
25,14474 
79,14u74 
25,14u74 
25,1447 
25,14474 
25.1074 
25,i0u7a 
25,14474 
25,1474 
PS,h4u7e 
25,1474 
24,18078 
25,1007 
25,14u74 
2S,14474 


25,1447 | 


25,144074 
eS,tauts 
25,14u74 
25,1494074 
25,14474 
es,)44a7a 


aT yi9737 
27,19747 
27,19737 
27,19737 


1.27502 
¥,e01940 
1.08491 
oF1920 
oFteeeu 
89709 
025342 

eo ,cnnan 
2.25562 
2.49749 
2, 72274 
2.91924 
o1, 9809) 
=1,201G4 
a) ,275h2 
01,5909 
-1,275f2 
w1,ecina 
e1 0K044 
2, 91S24 
e,?ePpeu 
e,a9ad 
2, Psdn2 
2 OMN00 
225562 
9497489 
272228 
eFtV24 

1 UBOFL 
1,2u pou 


1,272 


1, $0090 


1.27562 
1.27104 
ans SPR | 
29194 


0255h2 
249749 
o7222a0 
091920 
1.96594 
L,edieg 
¥,27592 
1, $¢000 
1.27509 
1,29104 
1,MAney 
2919240 
eT222u 
249749 
2S3n2 
20004 
~.25562 
2.49709 
*.7ee2u 
ew Frsan 
o1,0909) 
o1,29)04 
o1,27502 
o1,350%0 
e1.A7so2 
el,euing 
e1MhOS] 
o,91924 
w Tee 


o,49749 


25362 
_ O00 


e2b3n2 
+4929 
»7222u 
291924 


. Figure 18.- Continued. 


ROMY CINGs 


20037H 
eDN1TH 
090878 
20978 
eo ONTEAR 
Pu eal) 
210taG 
eIMth? 
229169 
290459 
2 O055R 
eO01TSR 
eo INIGAR 
200459 
NNT AO 
290462 
200148 
00S be 
29016R 
o0NiTt 
200873 
200176 
eOO1TR 
2Ontan 
anny ae 
e NAAR 
2OOyAa 
2atgau 
eGO{Aa 


se ONG AZ” 


001A? 
oO0tan 


HNDY RIGS 


2Onyut 
200148 
eT 
eOpal 


@, StB9KE =O} 
~,B990UE WO} 
™,) SH90Ee00 


vInt 


13 


214660 
a OOTRY 
203527 
2.2208 
2, 0529 
o,ndyay 
202186 
213545 
225022 
2 $2525 
o2bnb!t 
17597 
o11050 
019535 
eIS7t7 
o17Sua 
»1¢aan 
eOASTI 
92287 
#02207 
oOSu37 


©,01198 


oP 3041 
eOT077 
einnne 
2 f2uno 
215092 
017506 
a9 RS 
21 9AG3 
219045 


e17S4qa-- 


1a 


215258 
eisaoy 
0958S) 


1900136 


eTQtT 


©,03004 
201196 
OSES 
092205 
© ,022ARRK 
o,0F571 
2,144090 
e,17544 
e,IS7I? 
weli3d7 
e.t145i 
2.17543 
=.260657 
©.32523 
@,25422 
e.1$s4a 
=,02185 
04122 
095290 
202267 


2.05525. 


-,097K2 
2, 14660 
e,17S4a 
°,190440 
=, 1964} 
Lee Be tae) 
~.t7503 
e1SORT 


"#412476 


=.9999R 
=,07074 


©, 0K00R 


= 602928 


- S,00043 
rO0134 


Co.LIN, 


#.09556 
#00552 
o,0ngu7 
2, 0n3un 
=,00337 
=,09342 
©,00327 
@,09323 
#09520 
= ,003St7. 
@,9931h 
@,0N5ts 
©,90316 
©,09517 
09320 





“elnn323 


@,09327 
@,00532 
©,00337 
©, 9n3ar 
© ,00347 
2.00352 
©,09356 
°,00360 
o#,99563 
2,09$66 
#00567 
© 00368 


fe, 00367 


©,09366 
#209363 
2.90540 


=.9N293 
2, 0290 
=.99286 


°.0928) 


CP, KERN, 


003653 
e21e9n 
e,095400 
#01952 
2.11680 
09320 
Poet ta-) 
205799 
095251 
293129 
099659 
008965 
2 Othod 
3130 
205231 
008799 
eOS407 
90320 
2.01600 
201930 
ee NS4S 
eVtorr 
eM 305S 
0GG779 
205299 
205998 
005819 
708940 
205849 
205598 
298299 
ohu779 


245au 
eo3uny 
2014403 
SOLELY) 


0 
iy 
0 
0 
a 
0 
) 
0 
0 
0 
0 
0 
0 
0 
A 
te) 
0 
0 
0 


0 
o) 


D) 


c, 


C] 
9 
0 
4 
0 
0 
0 
0 
0 


0 
° 
0 
0 


NR/DX 


209000 
20000 
200090 
Anand 
209090 
Onn 
P9000 
eH0000 
200000 
onnnn 
209000 
209000 
209000 
20000 
200000 
200990 
.00FDD 
.oonon 
2 ONNND 
200900 
,OGGEG 
pura 
DErioal 
Oar ae 
2NNOHh 
,ornnn 
299000 
200000 
eh OAD 
290000 
2nnoon 
200090 


20000 
200000 
600000 
00000 


P/PI NE, 
WEAN, 


1.07390 
1.93019 
2 9RBOD 
oFA09) 
oMhOd2 
1e90AU07 
LeORKRON 
teli7si 
1o.15R2 
1.04331 
1.09426 
LelFna? 
1.99uAA 
1.96532 
1.105AR2 
1oti7se 
1.0A89$ 
1e9%hUb 
eFMhAn 
0 VOCAB 
2 FAK9H 
$,O3ay7. 
1.07390 
1.09K68 
$,19720 
Telt3PAr 
1,1t772 
1611955 
2,99771 
1.89324 
tein7ta 
1e09H47 


1,09233 
129eARn 
1,0294K 

sI92h1 


PsPyHP, 
LIN, 


299279 
6 992F9 
299209 
099309 
eF9319 
099329 
oF9538 
. 99546 
099558 
099358 
eo VOGA 
6 993H2 
eI93m1 
e FOSSA 
0I955S 
099 $06 
oF Z 5A 
099329 
099319 
eFIS09 
499209 
.992A9 
099279 
099PT4 
699245 
099260 
99257 
099256 
099297 
29920 
2FIQ25h 
299271 


2990% 
299050 
.99u22 
s99ast 


09s 


OPVINVELV—DoriF Fen 


Sr.eSucn 
67,59000 
7A,75000 
90,00000 
191,25090 
112,50000 
123.7500 
135.0000 
196,25000 


-157,90000 


168, 75000 
159,00000 
191,25000 
202,59006 
213,75000 
225,09000 
236,25000 
247,50000 
258,75000 
270,9006n 
P8t.25096 
292,59000 
393,75000 
315,v000n 
326,25000 
337,59000 
34a, 7S000 
SoO,unn en 


wit 
_11,25000 
2?,99090 
33,75090 
4§,nnnnn 
56,25000 
67.50000 
7A,79000 
9A, n00nH 
19t,25000 
112,50000 
124$,75000 
145,00000 


146625000. . 
157,59900 


168, 75009 
159, 00000 
191,25000 
292,50000 
213,75000 
225,90000 
2.36,.25090 
247, 50090 


.25A, 75000 


279,00000 . 


241,25090 
292,50000 
39$,75000 


27,19757 
27,1973? 
27,19737 
27,19737 
27,19737 
27,19757 


27,19757 | 


27,19737 
27,19737 
27,19757 
27,19737 
27,1973? 


“27,19737 


27,19737 
27,19737 


(2719737 


27,19757 
27,19787 
27.19737 
27419737 
27,19737 
27,19737 
27,19737 
a7,1975? 


OT 19737 


27,19737 
27,19757 
27,.19737 


, 


en Bes 
29,25000 


29,25000 
29,25090 
29,25000 
29,25000 


29,25900 
29,25000 


.29,25900 . 


29,25000 
29,25000 


29,esnnn | 


29,25000 
ay,esauna 
29,25000 


. 29,25000 


29,25000 
29,25000 
29,2500 
29,25000 
29,25000 
29,25900 


29,25000 
.29,25000 


29,25000 
29,25nny 
29,25004 


29,25000 


270208 
2897a9 
225362 

2 5haany 
#75302 
©, 49769 
©, 722240 
©,91920 
91,0809) 
e1 201g 
st,e7see 
a1, senna 
#927502 
m1 ,e0106 
21,0409) 
=, 91904 
oe, 72224 
©,497409 
2.25362 
eenoro 
2eS55h2 
eFGTug 
27?2ee4 
91924 
1,vae9) 
1,ening 
_1,2e75¢2 
1,3990 


et nr 
1,27592 
1,291%4 
1, 04991 
291920 
272224 
49749 
02S $62 
2.09000 
#25362 
, 2897409 
2.772724 
#91924 
1.0809) 
e12nins 
21,27562 
a1, 38009 
7127502 
“1.20104 
ob oan 
2.91926 
2.72224 


+e, 49749 


2.25302 
oP MOOG 
eSSn2 
249799 
eTee2u 


y 


1, 0AP9] 
1.29100 
1,27502 
1, 39000 
1.27562 
1,20360 
1, 08093 
eF192a 
072220 
289709 

J g2d3e2 
#09690 
© 25342 
°,497u9 
o, 72220 
= ,919R4 
01,0809) 
e1,20104 
=1,27502 
ot, song 
et,27502 
el,evitau 
=),08041 
#919240 
e,?e22u 
©,49749 
2 7025562 
200000 


, 2eh3e2 
149749 
+7 A224 
91920 
1.0409} 


wad ,2O10a 


1 227502 
1.50000 
1427902 
Y,2010u 
1,0R0G4 
291920 
072228 
2e974yg 
025362 
oe GNAY 
©,255¢2 
+ 0.4974u9 
se, 7Teeeu 
2, 91928 
=1,us09] 
21,201.04 
ob e752 
-1,30000 
eterynp 
o1,201°40 
=f .GA094 


BONY BINGE 


eONLgAR 
001 3H 
090435 
200138 
00932 
2AP E30 
oAO13G 
eNO 30 
2010 
209430 
000182 
200133 
290485 
eNO13H 
aAALyA 
09014) 
o9OtG3 
+ 001405 
eanyu? 
- 09108 
200156 
00015) 
eONgSt 
009tS2 
e045) 
2nntst 
+ 9 AM150 
a N0F4R 


bee 
+e OM1 PY 
"6402 
- @ANtAn 
oh 9418 
s0O11e 
eONtG 
notte 
Ott 
294199 
201K 


- 99908 


‘ 


+ 00808 
20.0,108 
eg OAMEMR 


~ 9AH1ne 


oooith 
nite 
2O911G 
oNnita 
eN018 


~ 299920 


eM A122 
ePOLPS 
0 0125 
299476 


2 AOI 


+ 


eO0128 


=, 0000K 


=, 05983 


.9G9R9 


210535 
oPsT7Al 
eervua 
028582 
et754o 
eteAag 
el 3319 

yy fO71G 
17Saa 
et 4eSt 

+ Mb b2? 

0311S 

Pus LY 

2nn040 

202927 

296050 

,OTTAS 


209006 


eti225 
214377 
21756 
+ 1%bSS 
2201h3 
019285 
+1750 


7 5 
15 v0 
“ae yy 
“ef pesA 
> terre 
.ne 704 
93136 
#01525 
©,027K2 
20594 
20P296 
oi7774 
025764 


> ,22597 


017546 
* 14169 
“pL O98 
217099 
ei7sua 
014172 
009125 
eO8ROt 
aA3id2 
HUT 
.of0u9 
eNbAtsy 


- a5312 


206094 
2N907K 
ot3S7a 


o.OSi7 


=, 0An28 
#,1e252 
e,i7sag 
o,te71a 
o,13318 
o,12804 
#17543 
°,20579 
©,27702 
w,2s7e1 
=,10553 
=, 00984 

203985 

204050 

290136 
2.05645 
11490 
2.15258 
e,17540u 
o,19234 
oe, anit 
a, 19664 
©,1754$ 
2 Q10373 
.&,11220 
=,09040 
©,07780 


8S th ® 

2. 0h051 
=,06047 
ate 0G3tS 
2.03136 
= ,0080§ 
2.09925 
=,30173 


| 9,175400 


.e,$7499 
=, 14967 
1168 


9, 1.7543 


2, 22595 
=.23703 
o,17772 
@,0A292 
o,00591 

2027%6 

201527 
#03132 
#08703 





- @,la7Ay 
915259 


ey 17500 
©,198A1 
=,21059 
#,20331 


2.00277 
#00273 
#,00269 
=.90206 
#00263 
°,00261 
©, 08260 
=,00259 
#,90260 
2,0h2o4 
=,09263 
-%,09266 
00269 
2.00273 
.%_00277 
© ,0neay 
e% 90286 
, 209290 
=,00293 
#00297 
=,0n5ng 
©, 00302 
#00303 
@,09503 
=,00503 
#,09302 
=,00500 
#.09297 


2 Sass, 
2.00847 
2. n02us 
-,09259 
2.09255 
°,9n232 
=, 0N228 
.=,00220 

#,0neat 
. 00219 

2,09217 

=.90216 

-.on21s 

#00216 

2.00217 

#00219 

o,90e2t 


s 


4 


. 00220 


o,ane2n 
. 2.00232 


2800235 


a, 90239 
©,00248 
°,00247 
#,09250 
e,0n252 
=,992Sa 
#00255 


Figure 18.- Continued: ** 


©, O08UR 


.onua? 
205057 
099513 
295810 
094687 
2OS2u4 
2060246 
e0S2uh 
o046RB 
09510 
205513 
eH30Sb 
200046 
2 0NBU9 


#200367 


eA1dey 
293000 
200565 
7009985 
205198 
2 O5GR8 
oOSR25 
.95978K 


+005h25 


e0SGAR7 
095196 
200994 


200633 
- Muay 


003427 
eO177S 
e0NGHHY 
001080 


+ 992960 


095176 
2 0h0HS 
2055640 
0 950H3 


e070 


005644 


+ 2955440 


006045 
05175 
092959 
009978 
206h2 
201773 
eb3426 
.0uuu0 
20461 
204473 
eOUbD] 
005102 
205761 


0,0NN00 
0,090N0 
0.90000 
o,0nnag 
0,0n090 
0,00n04 
0,00000 
0,90N0N 
0,090n0 
0,98000 
.0,00000 
0,00000 
0, d0000 
0.09000 
0,00000 
9,00000 
0,anano 
0,0nn0n 
0,09090 
0, 00000 
9,90n99 
0,0nnno 
0.90000 
0,00090 
0,00nNn0 
0,90000 
0,09000 
0,00000 


ay 


” 


* v 
0.00900 
0.90000 
0,0nnNO 
0.00080 
0,0000n 
0,9n000 
0,0n900 
0.09000 
0,00nn0 
0,00n00 
0,0n0N0 
n,oanno 


+0, 00000 


0,99900 
0,09N00 
0,99000 
o.,anano 
0,090N0 
0.09000 
0 onan 
o,onnn6 
0.90040 
“0, 90000 
0,00000 
0,0n0n00 
0,90n90 
0.99000 


PAPAS 
1,009A0 
$.0n183 
1.111S2 
1.91755 
1,094UR¥ 
1.ihene 
1.12186 
1.19603 
1,094R4 
1.41755 
1.91982 
1,0a1Re 
1.00982 

eFA2BS 

299269 
102915 
1.04879 
1.09234 
1.101% 
1.19515 
1.18102 
1,197R4 
1912093 
1.tt74$ 
felii0o 
1,19512 
1,101048 


+ 


1,09532 
1_eMHOAY 
1.90953 
1.05892 
1.01503 
1.07145 
1.05988 
Veseary 
1.17270 
1.11256 
1,214097 
1.t2Kno 
‘Hels457 
1.11256 
t.17270 
1,29470 
1.059%H 
1.92181 
1001539 
4.04587 
1.0n932 
p-agag 
1.09356 
1,090409 
1.09598 
1,i0ans 
1011655 


Tae F 


299000 
e95au8 
2 990K 
099462 
0 F9UH8 
699472 
99075 
299075 
299075 
o99u7e 
FOGK8 
099462 
2994456 
299GUR 
229040 
29943) 
299U22 
e99atG 
o9FUNG 
299000 
299594 
099390 
oFO387 
F93R7 
99387 


- 9 99990 


099390 
299400 


29950 
099504 
99516 
299520 
099532 
299539 
099506 - 
299582 
099557 
099561 
0995H3 
2 995KU 
299565 
29956) 
099557 
2995S2 
995Ub 
299559 
299532 
2995240 
199516 


499508 
~ 299503 
49 FOURS 


299U90 
2 990K 
279UARG 


T9S 


24 
29 
3a 
Si 


- 
209 PWR KNOWN 


POPrPnHer KF Cw 


toun: 


315.0060 
sen.esnon 
337.50000 
34a, 75000 
Ban, c0nn0 


11225000 


22.50000 
33,75000 
45, 00000 
Sm,25090 
&7,50000 
78.75000 
aa, n0006 
191,25006 
112,.50000 
123.7500 
135,0000n 
146,25009 
157,5000n 
168,75900 
tAN,00N00 
191,25900 
207,50000 


213,75000. 
225.0000. 


P$me25N0N 


247,50090— 
254, 75006 


270, 00)00 
2AL.25090 
292.50990 
893,75990 
345,000%0 
$26,25090 
3s7,5n090 
yGA,75000 
Ban, annoe 


V1,250990 . 


22 .50000 
34.75000 
“45,00000 
Sa.25000 
A7.50000 


TAQTSOND. 
 90,09000 . 
104,25000, 


112,50000 
123, 75h00 
135,00000 


“$46,25000~ 
157, 50000. 


29,25n00 
29,2500 
29,2506 
29,25900 
29,2590 


a 


$1,30265 
$1,359 265 
31.30203 
31, 50203 
$1, 502n3 
34,59268 
S1.30Q45 
St, $2203 
$Y. SC205 
31, $9263 
Vi, 3u2rs 
$1,50205 
3st. dC 253 
31, 59263 
$1,3592603 
31,5925 
31,50268 
$1,302K3 
34, 50243 
31,30 AH3 
31, 59263 
31, 39263 
31,5%265 
$1..30263 
$1,30R08 
31,3025 
$1.30203 


“31439703 


51.50268 
$1, S0a63 
31.39263 
$1.59263 


33.45526 
$3. 39825 
35.35826 
33,59526 
BBLS5520 
38, 55526 
3$,3557h 


34, $5526 © 


$3, 39526 
35255520 
3$,55426 





38, 55526 


33,35526 


34535526 


29192 
eORest 
e28tGs 
027592 
250690 


1.27502 © 


$,291049 
14,0809 
eA) 8Pa 


2722246. 


24o74Ng 
225 $62 
ogee 
2 ,253n2 
2, 89749 
©, 7224 
2.91994 
=} a CRE 
o1,29104 
=1,27502 
o1, 58009 


m1,27502 | 


ei,enyna 
21, 9Ana4 
2.81924 
20, 792?4 
ob9709 
2,255n2 
2 L009 
225362 
42749 
~7?eeu 
oF FAK 
1,0R091 
1,78tee 
“4.27592 


1, 30000 


1,2%Sne2 
t,edtea, 
1 POE 
W128, 


TP224 
49748 





2572024 


#91924 | 
a1, oKo9g | 
a7, 20500 _ 





25342, 
2, Guna. 
2.25 Sha, 
2, 49749, 


=.91920 
=,72224 
2,49749 
=.e5562 

e208 


the 
ey ac Ar 


rf 


125302 
eNVtag 


wf222u., 


eF1GRu 
1,9AN94 
1,201948 
1,27592 
1,3unean 
1,275%2 
1,20 ted 
1, 08091 


e819Aa | 


372224 
140749 


e2dan2. 


*,9On00 

e.2h502 

oe, 497g 

=,722206 

©, 21928 

of nang 
et cotue 
o1,27502 
er, s0ury 
#1,27S02 
el,20ina 
oh,0nn%y 
#.91928 

°.72e24 

©4919 

me2htne 

20090 


c253h2 | 


ot9749 


eleeea. 


2e9192u 
1,oek09¢ 
1.2008 
1.27992 
1.35000 


1.27502 | 
1.20394. 





eONAR 
200927 
O01 26 
000125 


2 


2 Agas 
eNO AS 
Tis ura 
Pre mr) 
2 ONNGK 
2Onney 
200095 
20IneG 
09WN9G 
200002 
290094 
ennngy 
eON09L 
299092 
Pau 
290neg 
299095 


200097 — 


209098 
200100 
oAnyre 
OMT A3 
000905 
2ON106 
eONINT 


Pas 


290409 
2 ogag 
2 AAT Ag 
eA OZOA 
eo IO1O7 
290906 


ANDY 8 THis 


nanan, 
2 O60R9 
209087, 
DADRA 


2 00Ru, 


onary 

2900K2, 
eMANAY. 
e OQCAQ, 
2OA079- 
00078 

2ON07R | 


2OAGTAL 
eORA79. 


. 9 IN4PR 


-s17586 
20883 
221052 
219823 
217544 


“ROOV WINGS th 


1403s 
el23sa 
10856 
26955 
2O24nd 


2,00014 


eONS77 
2O73at 
otSt87 
e29775 
rae BE) 
217546 
215291 
ethene 
a fKN26 
17544 
old$na 
210270 
207449 
oOOFS3 
606937, 
694973 
201912. 
100630, 
202472 
a MARIS 
eiegee 
ot7S5uS 
020 9GA 
221963 
.7esus. 
o17Sua 


17 


ot32or- 
21Otue 
R909 
2ORUSy. 
2OKUbS~ 
,04NAg, 
2OGTRy 
97905” 
13999" 
21RB95 
of 97t2 
. 1.7546.. 
ethNg. 
2/09AS,, 


=,13371 
2.09074 
=,06058 
=,95306 


#01995 


=, 90964 | 


=,0n934 
=, 06935 
=, 07471 


+e e19272 


2,14 S68 
«,17544 
=,1F019 
#.16205 
@,152A9 
e,1754$ 


-,2091h 


=,20772 
2.15154 
#07338 
2.01573 

200019 
2.02464 
2.96933 
2.10457 
2.12337 
*,14u340 


“ea, 8750s" 


a,17544_ 


=.205ue 
e.2196§ 
o,209n7 
e,175404 
#,1282n 
©, 06874 


©, 02068. 


©, 006288 


,03838. 


290325 
#0075 


s.9RGSG 


#,19140 
o,11972 
2 taBAn 
217546 


218249. 
eJA9RG, 
016096 


|e,175as” 
=,19798, 
°, 18892. 


709256 
#,99255 
*,9%2%4 
*,00252 
=,90250 


e,9n2t0 | 


2.09297 
o,00203 
#,09200 
=,9019%H 
2.90495 
=,00190 
2, 00187 
a, 90485 
eNAtns 
e,99182 
2.90382 
°.So1h2 
Pe ok) 
=, 09885 
© 00147 
o,0n190 
— 00195 
#90896 
#,0n200 
~ 02ers 
7.09297. 
#,00210 
2.00218. 
-,90215 
7.0216 
7.99217 
#,00218 
-,90217 
7.90216 
2.90215. 
m,0N215 


2.99180 
=,0017R 
-,00175 
e.antre 
©,90169; 
-.991h6, 
=, 04163. 
90161, 
2.90159. 
e,ON1SA. 
7.00157, 
=.99157 
*.00157 
2, 09158, 


094028 
sOSTAL 
2951402 
204899 
0472 


09533 
009449 
eOuuny 
e9S759 
202695 
092360 
095342 
e9S0I0 
2060405 
2 OS9R4 
205922 
206105 
25922 
09596 | 
204045 
205915 
eOS3u4 
002357 
M2094 
003758 
»O4un2e 
aNOQAy 
205436 
293092 
o0S595 
094658 
eN5hoS 
eD8OnR 
295653 
0 UL658 
093592 
203099 


21208 
02243 
203664 
20Gdta 
eM NOKS 
093928, 
290190 
095169. 
295999, 
2OAENS, 
2 OA0S5 > 
oOH152. 
20K0S6 
2OH105 


0,09900 
0,00096 
9,09009 
0,00009 
0,09000 


0,07090 
0,000 
o,9nan0 
0.09900 


0, 0nnnH 


0,09000 
0,08nGo 
9,000nn 
0,99n04 
0,99000 
0,99NN9 
o,00neA 


0,090N0 


v,09000 


0,09000 © 


a,0n000 
0,90980 
0,006%0 
0,00009 
0, cana 
9 00N90 
o,oannn 
a,0nnn9 
0.9009 
a, 09906 
9,09000 
0,09990 
0.99999 
o,G98e9 





=) 
Oraree 4 


60,9000 
9,00000 
0, nnnng 


0.00000 


0,00090 
o,0nnn0 


0.00000. 
0,09N00 


0,00000 
o,0nen0 
0.99000 
0,070%0 
0,00000 
0.00000 


1.12195 
1.19654 
1eduoy 
1.09345 
1,09Nu6 


1,049485 
1,0AG14 
1,04964, | 
1.97604 
1,C544R 
1,00778 
LeOKTAL 
2e)5)907 
1.12280 
1ederas 
1619989 
1.3235! 
12199489 
1.420965 
1637279 
1.19166 
1,0675A 
1, 04749 
1.05444 
PeA7HOS 
1, PROG 
9,0PuN9 
1,06950 
1.04254 
1.072K9 
1.0Q24 
1.19457 
$.17275 
1.99457, 
1.Aaues 
1.07?h6 
1.06250 


A.M2037 
1,065$7 
1,07413 
{,9A921 
1.99HA4 
1.97946 
1.GA4Ru 
1,)0457. 
1.12155 
1.12350 
1.12259 
1.12406, 
{.ieest 
1.12359 


0 99GKY 
099uRG 
2P9URD 
299u90 
099095 


099575 
99582 
099508 
099596 
eFDHNS 
£99609 
Phe 
PAT yo! 
299626 
099629 
09Gb 
eF2nse 
099634 
To 
eI2h2h 
299621 
0 F9GIA 
2 FIGNG 
099603 
299496 
099588 
249542 
09957S 
299570 
099546 
0 F9GK2 
099560 
099559 
222560 
2 99GK2 
099546 
oF9K70 


099685 
oFImuy 
18H te 
Fade 
099658 
eIWGbAG 
09970 
aVInTe, 
eVONTH: 
eFIHAY, 
FIRS 
eFOHAS 
aF%BRY 
Se 


79S 


i) 
16 
17 
1A 
19 
20 
21 

2? 


23 
2u 
25 
26 


2a 
29 
50 
vu 
$2 


SFOoORPMF MC UN 


CNMNUVN NUNN UVR Oe ee eee eK 
POPWINOANK SOFINPAMAOWN 


1O4,7SH94 
1A8N,900000 
194,25n00 
202,590006 
2t3,75000 
225,0000n 
234,25990 
247,50090 
25%, 75008 
270,090000 
241,25900 
292,500.09 
393,75090 
315,00NN0 
326,25000 
337,80n00 
34a,75000 
yon, n0n00 


35,55526 


33.5580 
$3, 895e0 
33, 35520 
34,35526 
33,3552 
$3, 35526 
$3,35520 


$3,35526 
35,55525 
35, 555e6 
$$.35576 
33, 55520 


33,35S20 . 


33, 35520 
33,3582 
34,35S20 
3$.3555¢e0 


1,2 7HA2 © 


Poe 
eters 
ey ,2cjyaa 
or, oRO9L 
= 9tuau 
=, 722eu 
2 eu7ug 
=, P5502 
PhD 
225302 
FFT 
72224 
91920 
YL ueoot 
ryecied 
127902 
t,3euco 


ee Sde2 
e.h0000 
=.25362 
o,u9tud 
=,72224 
=.9192u 
el OXO9y 
el,2%1ue 
at,27Su2 
=r, 390049 
1.27502 
e1,2cins 
otnhuot 
1, 91924 
e720 
2,097ad 
=.2%360 
*.v0000 


. 


2 NOMRN 
eDOORY 
200K? 
eDONRYS 
20ONRG 
2 NONRG 
eONORT 
eNOARYG 
20NNONH 
OANA - 
200092 
eONN98 
2AAN94Y 
eOONQ- 
209094> 
090093 
25092. 
200091: 


TOTAL NUMBER CIR PRESSURE POTHTS,JCPTB 2HA 


CONTHNL BOPNT Chinen yates Fox 


x(J) 


1,25112 
2, 346A7 
3,59222 
1.49505 
2.48119 
5,54072 
1.nnnr? 
a.97570 
3.55122 
1, 74064 
2,67919 
3.95572 


1,949%2 


2.70b67 
3.54022 
1.23112 
2,3R ar? 
3,547 ?e 
1,41545$ 
2,4A119 
3.54672 
1.AN017 
2.57570 
3,85122 
1, 7AUbs 
2,47019 
3,85872 
1.96912 
2.76457 
3, SANA? 


YOJ) 


1,5$09H 
1.5309 
1.55696 
1,99870 
1,99A70 
1.99870 
2,46h4u0 
2, bonus 
2.4hbun 
2,954un5 
2 e9Suny 


2.954%: 


3.40154 

$.40154 

3,4715K 
21,5599 
°1.55996 
75, 55096 
ot mr 
o1, 99870 
-1,97870 
=2,Ubb64u0 
ee, lonun 
~2,4>hun 
=2,95un3 
22,98uny 
2?,93un8 
°3,4915K 
o3,4001S8 
=5,49154 


2d) 


©,90009 
0.60000 
4,990u00 
O,0000 
0,06000 
9,99004 
9,000n0 
9,9006N 
9.00000 
4.90000 
O,cuunn 
9.90004 
9,00900 
9,00000 
0,009000 
9,00G00 
a,onnny 
9.90000 
0,09090 
0,09000 
0,09050 
9,00000 
0,90009 
0, 909000 
B9NG0Nn 
9,9N000 
0,00000 
0,0000U 
9,00900 
09,0900 


oy 
aot 


35 CHOROWISF AY 


AND 
RUG 


aT RO09F ANS 
eh TASRE SNS 
eOSTAAR eA 
eo TAOARE OAS 
eb TRRTF ANS 
eH SS39F ADS 
eT25U3F RAS 
eABLUZF oA 
eb Ut rTFaN3 
eT2oPib eos 
eHAHORE RNS 
eb4AQRFeNY 
eo T2AISF ONS 
ehV1 Nb eG 
eADTASE AN 
eANAAGE @AY 
ahOUnSF eds 
eSESMAF ONS 
eS 397TUE RDS 
eSFIANF OOS 
eSASOIF a3 
eABNO1 Fe d¥ 
eSFSI9F AOS 
a SALVE ON 
eb2tOyrans 
eHFAQNE ONY 
A SSIORE ROY 
obl2aseonsy 
eSA3TEF RAS 
eSSTINB ANY 


218250) 13995 00159 
eo! 75uG"  ©,07944 >, 00154 
ot GRAS e.981TH =o ANthy 
11970, DUDAR eNOS he 
219139 #06462 169 
eOKNST — @ OHEST 0172 
204TH] 709003 ©,00175 
e989 =,19105 2.90178 
=, 03833 7.15292 #09180 
o.oseqa #,175d4 =,99183 
-,9US851 e,2i1aa ~,00185 
295159 =. 22674 eo OOtkh 
e1t7GM © ,2145H 00187 
217805 =, 17540 0017 
2234uso e.1th99. ew nnte7 
e22h74° ©,05158 ©, 01h 
g2tiea 200553 . ©, 0N1A5 
005917 


o'7Saa. 


2 yN0183 


2 0S99R 
AULT.) 
o0U195 
«93922 
e0MeRQ 
eOuutt 
03647 
202245 
eUL207 
601338 
0925U5 
200200 


2055738. 


206100 


205573. 


004200 


. 02Suu 


000537. 


5 SPANWISE PANELS ON wIhG 1 NR R, 5 
5S SPANWISK PANELS ON*ING 3 OR UY 


AV(J) 


eAmatteoo 
el2ndee ond 
2126058900 
eT4025F any 
e7T4UNS9E OO] 
e74051E 904 
+ YAURSE COL 
e4ASOOF@O1 
eARSLOE MOL 
34101 F =O} 
e S41 ONE COL 
o SU17T7E S01 
ePSPG0E eM 
e2S$O9b ONY 
e2532HE 201 
of 26uUSk 400 
al 2ndSk 400 
ol ARuSt 00 
»TY120E 004 
~ TAL QS enh 
e743 29EmN1 
eFbKQTE RNY 
eFFositol 
oFAayobodt 
o 343296 -01 
oe SASSSF AOL 
034$30E 201 
2251 9E@DI 
e255 heny 
e25S2SE 01 


Awd) 


el 2h9UE 209 
2g12693E400 
+ 126896400 
eTUSKIE ROY 
275596 904 
eTUSSBR COA 
e42061E801 
s49NU3E O04 
289027E 893 
oSuTaoe ens 
2 347PSE=01 
eSOTLIE SCY 
s2590RE 204 
e25495E001 
o25PASE SO} 
2 17HQUE 600 
a1 2691E 490 
eL20AR9E 400 


. y TUSAL Red 


2 74$59E 001 
o TUSSHE ©01 
eAWMHILE SM 
289NU SFO] 
eH ON QTE MO} 
e SUPUOE OO] 
6 S54725E 901 
eS 4711E 00) 
o2590RE@01 
e2SKO5E 0) 
oPSABSE RNY 


Figure 18.-. Continued. 
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Figure 18.- Continued. 
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Figure 18.- Continued. 
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Figure 19.- Calculated pressure distributions along body 
meridians from canard section to body base, first 
sample case, step 6. 
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Figure 20.- Calculated span load distribution on right horizontal tail fin, 
first sample case, step 6. 
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Figure 21.- Calculated span-load distribution on upper vertical fin, 
first sample case, step 6. 
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Figure 22.- Configuration used’ for second ‘sample case. 
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Figure 23.- Geometrical details, idealizations of configuration 
used for second sample case. 
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Figure 24.- Body source paneling layout, second sample case. 
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Figure 24.- Continued. 


584. 


1.50 2.50 3.50 4.50 5.50 6.50: 7.50 


“50° 


1.50 


4.00 





SS eee 





~3.00 -2.00 -1-00 0:00 1.00 2.00 3.00 4.00 


(c) End View 


_ Figure’ 24.- Concluded. j 
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. Figure 25.- Input of program WDYBDY, second sample case, step 2. 
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Figure 26.- Output of program WDYBDY, second sample case, step 2. 
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Figure 26.- Continued. 
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Figure 26.- Continued. 
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Figure 26.- Continued. 
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Figure 26.- Continued. 
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Figure 26.- Concluded. 
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Figure 27(a).~ Calculated pressure distributions, second sample case. 
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Figure 29.- Output of program VPATHL, second sample case, step 4. 
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Figure 30.- Input of program DEMON2, second sample case, step 5, 
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Figure 31.- Output of program DEMON2, second sampel case, step 
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Figure 33.- Input of program DEMON2, second case, step 10. 
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Figure 34.- Output of program DEMON2, second sample case, step 
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Figure 34.- Continued. 
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